大学计算机二级VB试卷

一、选择题(每题1分，共30分)1、能被对象所识别的动作与对象可执行的活动分别称为对象的b。

A)方法、事件B)事件、方法C)事件、属性D)过程、方法2、执行语句Print Val("12A12") 的值为b。

A)12A B)12C)1212 D)12A13、下列是合法的VB变量名。

A)_ab B)W_cdeC)5student D)Name&City4、表达式6.5 * 5 Mod 28 \ 8的值是C。

；32.5 32.5A)0 B)1 C)2 D)35、如果在立即窗口中依次执行下列命令：a=8：b=9Print a>b则输出的结果是C。

A)1 B)0 C)False D)True6、下列表达式的值为真的是D。

A)"A">"a" B)"9">"a"C)12>12.1 D)"That">"Thank"7、表示“X>Y>Z”，正确的VB逻辑表达式是A。

A)X>Y And Y>Z B)X>Y>ZC)X>Y OR Y>Z D)X>Y And >Z8、函数CInt 、Int 、Fix 都返回整数值，以下能正确地描述它们返回值的大小关系的是 A 。

A)CInt(-4.51) ＝ Int(-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 Integer C)Dim abc As String D)Dim abc As Date10、可以查找字符串中给定字符串位置的函数是 D 。

A)Ucase B)Len C)Mid D)Instr 。

11、数学表达式对应的正确Visual Basic 表达式为 C 。

A)-b + Sqr(b * 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 。

A).frm B).vbp C).bas D).frx13、Visual Basic 程序中的注释所使用的字符是 A 。

A)′ B): C)\ D)_14、要使一个文本框对象能够显示多行文字，应该将对象设置为 True 的属性值是 B 。

A)TextB)MultiLine C)Style D)Visiblea acb b 242-+-15、执行下面语句后，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)Caption 属性值为*C)password 属性值为空D)Passwordchar 属性值为*17、窗体上放置了三个文本框，若在Text1中输入456，在Text2中输入78，在程序中执行了语句Text3 = Text1 + Text2后，则在Text3中显示。

A)434 B)45678 C)溢出D)语法错误18、下列选项中，是十六进制数。

A)1234 B)&1234 C)&O1234 D)&H123419、执行语句Print Int(4*Rnd+1)后，不能可能出现的值为。

A)2 B)3 C)4 D)520、语句段a=3: b=5t=a: a=b: b=t执行后，。

A)a值为3，b值为3 B)a值为3，b值为5C)a值为5，b值为3 D)a值为5，b值为521、Print方法可在上输出数据。

①窗体②文本框③图片框④标签⑤列表框⑥立即窗口A)①③⑥B)②③⑤C)①②⑤D)③④⑥22、在运行程序时，将焦点移至指定的控件或窗体，则需使用的方法是。

A)Change B)SetFocus C)GetFocus D)Move23、在Visual Basic中最基本的对象是，它是应用程序的基石。

A)标签B)窗体C)文本框D)命令按钮24、下列语句中的语句可以用来正确地声明一个动态数组。

A)Private A(n) As Integer B)Dim A() As IntegerC)Dim A(,) As Integer D)Dim A(1 to n)25、有程序代码：Text1.Text="Visual Basic"，其中的Text1、Text 和"Visual Basic"分别代表。

A)对象、值、属性B)对象、方法、属性C)对象、属性、值D)属性、对象、值26、在程序中可以通过复选框和单选框的属性来判断它们的当前状态。

A)Caption B)Value C)Checked D)Selected27、用窗体的属性来设置窗体的标题。

A)Style B)Text C)Caption D)Name28、如果在两个菜单命令项之间加一条分隔线，可在标题文本框中键入。

A)－B)＋C)& D)#29、假设变量Lng为长整形变量，下面不能正常执行的语句是。

A)Lng=16384*2 B)Lng=4*0.5*16384C)Lng=190^2 D)Lng=32768*230、在Form_Click事件中执行如下语句的正确结果是。

Print Format(1236.54,"+##,##0.0%")A)123456 B)+123,654.0% C)+123,6.54% D)+123,654二、阅读程序(每题2分，共20分)1、在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：程序运行后，单击命令按钮，在文本框中显示的值是什么？Private Sub Command1_Click()Dim i As Integer, n As IntegerFor i = 0 To 50i = i + 3n = n + 1If i > 10 Then Exit ForNext iText1.Text = Str(n)End Sub答：2、建立一窗体并编写下列事件过程，单击窗体执行该事件过程，其输出结果是什么？Private Sub Form_Click()Dim x As Integerx = Int(Rnd + 4)Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "合格"Case ElsePrint "不合格"End SelectEnd Sub答：3、运行程序，当单击窗体时，窗体上显示内容的第三行是什么？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 s1 >= "0" And s1 <= "9" Thenj = Val(s1)n(j) = n(j) + 1End IfNext iFor j = 0 To 9Print j; ":"; n(j)Next jEnd Sub答：4、当发生Command1_Click事件后，以下程序输出结果是什么？Private Sub Command1_Click()Dim y As Integer, i As IntegerDim a(8) As Integery = 18: i = 0Doa(i) = y Mod 2i = i + 1y = y \ 2Loop Until y < 1For j = i - 1 To 0 Step -1Print a(j);Next jEnd Sub答：5、写出程序运行时单击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 Sub答：6、写出程序运行时单击Command1后，在窗体上的输出结果。

Private Sub Command1_Click()Dim i As Integer, a As Integera = 1For i = a To 5 Step a + 1a = a + 1Next iPrint a, iEnd Sub答：7、写出程序运行时单击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), LBound(a)End Sub答：8、写出程序运行时单击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 Sub答：9、建立一窗体Form，然后编写如下程序。