大学计算机二级vb试卷()

1、一、选择题（每题1分，共30分）1、能被对象所识别的动作与对象可执行的活动分别称为对象的A)方法、事件B)事件、方法C)事件、属性D)过程、方法2、执行语句Print Val("12A12") 的值为 b 。A)12AB)12C)1212D)12A13、下列 是合法的VB变量名。A)_abB)W_cdeC)5studentD)Name&City4、表达式6.5 * 5 Mod 28 8 的值是 C 。;32.532.5A)0B)1C)2D)35、如果在立即窗口中依次执行下列命令：a=8: b=9Print a>b则输出的结果是C 。A)1B)0C)False

2、D)True6、下列表达式的值为真的是D 0A)"A">"a"B)"9">"a"C)12>12.1D)"That">"Thank"7、表示“X>Y>Z ,正确的VB逻辑表达式是A 。A)X>Y And Y>ZB)X>Y>ZC)X>Y OR Y>ZD)X>Y And >Z8、函数CInt、Int、Fix都返回整数值，以下能正确地描述它们返回值的大小关系的是 AA)CInt(-4.51)= Int

3、(-4.51) < Fix(-4.51)B)Int(-4.51) < CInt(-4.51) <Fix(-4.51)C)CInt(-4.51) < Fix (-4.51)< CInt(-4.51)D)Int(-4.51) < Fix (-4.51)= CInt(-4.51)9、与语句Dim abc%乍用相同的语句是B 。A)Dim abc As LongB)Dim abc As IntegerC)Dim abc As StringD)Dim abc As Date10、可以查找字符串中给定字符串位置的函数是D 。A)Ucase B)LenC)MidD)Ins

4、tr 。11、数学表达式_b+Jb2 _4ac 对应的正确Visual Basic 表达式为C。A)-b + Sqr(b *2a b - 4 * a * c)/ 2 * aB)-b + Sqr(b * b - 4 * a * c)/ (2 * a)C)(-b + Sqr(b * b - 4 * a * c) / (2 * a)D)(-b + Sqr(b * b - 4 * a * c) / 2 * a12、窗体文件的扩展名是 A oA).frmB).vbpC). basD). frx13、Visual Basic 程序中的注释所使用的字符是A 。A)'B)：C)D)_14、要使一个文本

5、框对象能够显示多行文字，应该将对象设置为True的属性值是 B oA)TextB)MultiLineC)StyleD)Visible15、执行下面语句后，Len函数值最大的是C 。Dim IA As Integer, B As Single, S As String *5, Ch As StringIA=32767 : B=23.5: S="A" :Ch="abcd"A)Len(IA) B)Len(B) C)Len(S) D)Len(Ch)16、若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置。A)Text属性值为*B)C

6、aption 属性值为*C)password属性值为空D)Passwordchar属性值为*17、窗体上放置了三个文本框，若在Text1中输入456,在Text2中输入78,在程序中执行了语句Text3 = Text1 + Text2 后，则在 Text3 中显示。A)434B)45678C)溢出D)语法错误18、下列选项中，是十六进制数。A)1234B)&1234C)&O1234D)&H123419、执行语句Print Int(4*Rnd+1) 后，不能可能出现的值为 。A)2B)3C)4D)520、语句段a=3: b=5t=a: a=b: b=t执行后，。A)a值为

7、3, b值为3C)a值为5, b值为3B)a值为3, b值为5D)a值为5, b值为521、Print方法可在 上输出数据。窗体文本框 图片框 标签列表框立即窗口A)B) C)D)22、在运行程序时，将焦点移至指定的控件或窗体，则需使用的方法是 。A)ChangeB)SetFocusC)GetFocusD)Move23、在Visual Basic 中最基本的对象是,它是应用程序的基石。A)标签B)窗体C)文本框D)命令按钮24、下列语句中的 语句可以用来正确地声明一个动态数组。A)Private A(n) As IntegerB)Dim A() As IntegerC)Dim A(,) As

8、IntegerD)Dim A(1 to n)25、有程序代码:Text1.Text="Visual Basic" ,其中的 Text1、Text 和"Visual Basic" 分别代A)对象、值、属性B)对象、方法、属性C)对象、属性、值D)属性、对象、值26、在程序中可以通过复选框和单选框的 属性来判断它们的当前状态。A)Caption B)ValueC)Checked D)Selected27、用窗体的 属性来设置窗体的标题。A)StyleB)TextC)Caption D)Name28、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中键入

9、。A)-B)+C)&D)#29、假设变量Lng为长整形变量，下面不能正常执行的语句是 。A)Lng=16384*2B)Lng=4*0.5*16384C)Lng=190A2D)Lng=32768*230、在Form_Click事件中执行如下语句的正确结果是 。Print Format(1236.54,"+#,#0.0%”)A)123456B)+123,654.0% C)+123,6.54%D)+123,654二、阅读程序(每题2分，共20分)1、在窗体上画一个名称为Textl的文本框和一个名称为Command的命令按钮，然后编写如下事件 过程：程序运行后，单击命令按钮，在文本框

10、中显示的值是什么？Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNext iTextl.Text = Str(n)End Sub2、建立一窗体并编写下列事件过程，单击窗体执行该事件过程，其输出结果是什么?Private Sub Form_Click()Dim x As Integerx = Int(Rnd + 4)Select Case xCase 5Print "优秀"Case 4Pri

11、nt "良好"Case 3Print "合格"Case ElsePrint "不合格"End SelectEnd Sub3、运行程序，当单击窗体时，窗体上显示内容的第三行是什么?Private Sub Form_Click()Dim s As String, i As Integer, n(9) As IntegerDim s1 As String * 1, j As Integers = Trim("12345a307291b233")For i = 1 To Len(s)s1 = Mid(s, i, 1)If

12、s1 >= "0" And s1 <= "9" Thenj = Val(s1)n(j) = n(j) + 1End IfNext iForj = 0 To 9Print j; ":" n(j)Next jEnd Sub4、当发生Command1_Click事件后，以下程序输出结果是什么?Private Sub Command1_Click()Dim y As Integer, i As IntegerDim a(8) As Integer y = 18: i = 0Doa(i) = y Mod 2i = i + 1y =

13、y 2Loop Until y < 1For j = i - 1 To 0 Step -1 Print a(j);Next jEnd Sub5、写出程序运行时单击Command1,窗体上显示内容的第二行是结果什么Private Sub Command1_Click()Dim ch As String, i As Integerch = "DEF"For i = 1 To Len(ch)ch = Mid(ch, 2 * i - 1, 1) & Left(ch, Len(ch)Print chNext iEnd Sub6、写出程序运行时单击Command1,在窗体

14、上的输出结果Private Sub Command1_Click()Dim i As Integer, a As Integer a = 1For i = a To 5 Step a + 1a = a + 1Next iPrint a, iEnd Sub7、写出程序运行时单击Command1,在窗体上的输出结果Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, a(5) As IntegerFor I = 1 To UBound(a)a(I) = I * 2 + 1I = I + 1Next IPrint a(3), LBo

15、und(a)End Sub8、写出程序运行时单击 Command1,在窗体上的输出结果Private Sub Command1_Click()Dim n As Integer, j As Integerj = 0: n = 0Do While n < 3j = (j + 1) * (j + 2)n = n + 1LoopPrint j; nEnd Sub9、建立一窗体Form,然后编写如下程序。程序运行后，单击窗体的输出第三行结果是什么?Private Sub Form_Click()Dim i As Integer, j As IntegerDim t(10, 10) As Integ

16、ert(i, j) = (i- 1) * 3 + jPrint t(i,j);Next jPrintNext iEnd Sub10、建立一窗体Form,在窗体上画一文本框 Textl和一命令按钮Command歌后编写如下程序，运行程序后，单击命令按钮，在 Text1中输出结果是什么？Private Sub Command1_Click )Dim Fb(10) As Integer , I As IntegerFb(l) =2: Fb(2)=3For I = 3 To 5Fb(I) =Fb(I - 2)+ Fb(I - 1)Next IFor I = 1 To 5Text1 = Text1 &a

17、mp; Str(Fb(I) &Next IEnd Sub三、程序填空(每空2分，共20分)1、下列程序的功能是从键盘上按行输入一个3X4二维数组，求二维数组各列的和，输出到窗体请在下划线处填写适当的内容。Option Base 1Private Sub Form_Click()Dim a(3, 4) As Integer, s(4) As IntegerForj = 1 To 4Fori = 1 To 3a(i, j) = InputBox("请输入一个元素的值")Next iNext jForj = 1 To 4s(j) = 0Fori = 1 To 3Next

18、iNext jFor i = 1 To 4Next iEnd Sub2、下列程序的功能是求一维数组的最大值和最小值及其下标，请在下划线处填写正确的内容。Option Base 1Private Sub Command1_Click()Dim t(10) As Integer, min_i As IntegerDim max_i As IntegerFor i = 1 To 10t(i) = InputBox("请输入一个元素值")Next i min_i = : max_i= For i = 2 To 10If Then min_i = iIf Then max_i= iNext iPrint t(min_i), min_i,t(max_i),max_iEnd Sub3、下面程序的功能是用直接选择排序法将数组a中的10个整数按降序排列，请在下划线处将程序补充完整。Option Base 1Private Sub Command1_Click()Dim a, i As Integer, temp As IntegerDim j As Integer, k As Integera = Array(678, 45, 324, 528, 439, 387, 87, 875, 273, 823)For i =k = iFor j =I