当前位置:首页 >> IT认证 >>

VB练习题(2)

一,单项选择题(1-251 题) 1.以下 4 种描述中,错误的是__ D __. A. 常量在程序执行期间其值不会发生改变 B. 根据数据类型不同,常量可分为字符型常量,数值常量,日期/时间型常量和布 尔型常量 C. 符号常量是用一个标识符来代表一个常数,好象是为常数取一个名字,但仍保 持常数的性质 D. 符号常量的使用和变量的使用没有差别 2.下面合法的常量是___ D ____. A. 1/2 B. 'abcd' C. 1.2*5 D. False 3.Visual Basic 中可以用类型说明符来标识变量的类型,其中表示货币型的是 ___ C ____. A. % B. # C. @ D. $ 4.下面___ B____是不合法的整常数. A.100 B.%O100 C.&H100 D.&O100 5.以下关键字中,不能定义变量的是___A____. A. Declare B. Dim C. Public D. Private 6.表达式 16/4-2^5*8/4 MOD 5\2 的值为___B____. A. 14 B. 4 C. 20 D. 2 7.用十六进制表示 Visual Basic 的整型常数时,前面要加上的符号是 ___A____. A. &H B. &O C. H D. O 8.Visual Basic 日期型常量的定界符是__A_____. A. ## B.'' C. () D. {} 9.数学关系式 3≤x<10 表示成正确的 VB 表达式为___B____. A. 3<=x<=x AND x=3 OR x<=x AND

10.下面正确的赋值语句是___C____. A. x+y=30 B. pi*r*r=y C. y=x+30 D. x=3y 11. \,/,Mod,*四个算术运算符中,优先级别最低的是___C____. A. \ B. / C. Mod D. * 12.表达式 ASC("F")的类型是__C_____. A. 字符表达式 B. 关系表达式 C. 算术表达式 D. 逻辑表达式 13.下面语句中有非法调用的是___ ____. A. x=Sgn(-1) B. x=Fix(-1) C. x=Sqr(-1) D. x$=Chr$(65) 14.表达式 23/5.8,23\5.8,23 Mod 5.8 的运算结果分别是___ ____. A. 3,3.9655,3 B. 3.9655,3,5 C. 4,4,5 D. 3.9655,4,3 15.如果变量 a=2,b="abc",c="acd",d=5,则表达式 a>c AND b<c 的值为_______. A. True B. False C. Yes D. No 16.下面不正确的赋值语句是___ ____. A. x=30-y B. y=r.r C. y=x+30 D. y=x\3 17.为了给 x,y,z 三个变量赋初值 1,下面正确的赋值语句是___ ___. A. x=1:y=1:z=1 B. x=1,y=1,z=1 C. x=y=z=1 D. xyz=1 18.以下 4 类运算符,优先级最低的是___ ____.

A. 算术运算符 B. 字符运算符 C. 关系运算符 D. 逻辑运算符 19.如果在立即窗口中依次执行下列命令: a=8 b=9 Print a>b 则输出的结果是____ ___. A. 1 B. 0 C. False D. True 20.已知 a="12345678",则表达式 Left(a, 4) + Mid(a, 4, 2)的值是

___B____. A. 123456 B. "123445" C. 123445 D. 1279 21.在 Visual Basic 中,y1+z2=a*Sin(b*x+c)+k 表达式的类型是 ___B____. A. 算术表达式 B. 关系表达式 C. 逻辑表达式 D. 字符表达式 22.下列表达式的值为真的是___ ____. A. "A">"a" B. "9">"a" C. "That">"Thank" D. 12>12.1 23.在下列算术运算符中,运算等级最高的是___A____. A. 取负(-) B. 乘,除(*,/) C. 取模(MOD) D. 加,减(+,-) 24.如果变量 a=2,b=3,c=4,d=5,表达式 NOT a>b AND NOT d<c 的值 是______. A. True B. False C. 1 D. 0 25.在一个有(1)逻辑运算,(2)算术运算,(3)关系运算混合在一起的表达式(无 括号) 中,其运算顺序为____C___. A. (1)(2)(3) B. (3)(2)(1) C. (2)(3)(1) D. (2)(1) (3) 26.表达式 A%+B&+C!-D#的结果为____D___. A. 整型 B. 长整型 C. 单精度型 D. 双精度型 27.下列符号中,可以用作 VB 变量名的是___C____. A. c%ab B. 3sum C. sum3 D. Len 28.在下列表达式中,正确的日期型常量是___D____. A. "12/04/01" B. 12-04-2001 C. {12/04/01} D. #12/04/01# 29.条件:1<X<=2 或 10<=X1 AND X=10 AND X1 OR X=10 OR X1 OR X=10 OR X1 AND X=10 AND X=10 or x"b" And 93 的值为___ A ____. A. True B. False C. 表达式有错 D. 条件不足 39.在窗体模块的声明段中声明变量时,不能使用的关键字是___ D ____.

A. Private B. Public C. Dim D. Static 40.选拔身高 T 超过 1.7 米且体重 W 小于 62.5 公斤的人,表示该条件的表达 式为___ C A. T=62.5 B. T>1.7 Or W1.7 And W 41.在过程内部定义的局部变量,仅在声明它的___ B ____中有效. A. 方法 B. 过程 C. 属性 D. 对象 42.假设 A="Good Morning.",B="Afternoon,Boys.",下列表达式中结 果是"Good Boys."的是_ A__. A) Left(A,5)+Right(B,5) B) Right(A,5)+Left(B,5) C) Mid(A,1,5)+Mid(B,1,6) D) Right(A,5)+Right(B,5) 43.下列关于变体类型的描述,其中正确的是___ C ____. A. 变体是一种没有类型的数据 B. 变体的空值就表示该变体的值为 0 C. 一个变量没有定义就赋值,该变量即为变体类型 D. 变体是赋给变量某一种类型数据后,就不能再赋给它另一类型的数值 44.下列程序段的运行结果为____B___. For i=3 To 1 Step -1 Print Space(5-i); For j=1 To 2*i-1 Print "*"; Next j Print Next i A. * B. ***** C. ***** D. ***** *** *** *** *** ***** * * * 45.执行 PRINT 18/2*3,-3^2 命令后,输出结果为___C___. A. 3 9 B. 3 -9 C. 27 -9 D. -9 27

46.执行 PRINT 9.4\3.7,9.4 MOD 3.7 命令后,输出结果为___ A ____. A. 2 1 B. 3 0 C. 2 20 D. 1 2 47.运行以下程序段后,输出结果为___ C ____. x%=1/4 y%=11/4 PRINT x%;y% A. 0.25 0.75 B. 0 2 C. 0 3 D. 1 3 48.窗体里有两个对象,分别是图片框 Picture1 和标签 Label1,下面关于 Print 方法 的使用 中,错误的一条是___ D ____. A. Picture1.Print 147 B. Print 147 C. Printer.Print 147 D. Label1.Print 147 49.下面的___ B ____语句可以实现:先在窗体上输出大写字母 A,然后在同一行的 第 10 列 输出小写字母 b. A. Print "A";Tab(9);"b" B. Print "A";Tab(10);"b" C. Print "A";Space(10);"b" D. Print "A";Tab(8);"b" 50.阅读下面的程序段: n1=InputBox("请输入第一个数:") n2=InputBox("请输入第二个数:") Print n1+n2 当输入分别为 111 和 222 时,程序输出为___ A ____. A. 111222 B. 222 C. 333 D. 程序出错 51.语句 Print Format("HELLO", "<")的输出结果是____ B ___. A. HELLO B. hello C. He D. he 52.设 a=2:b=0,则语句 Print (a=2) And (b=-2) 的输出结果是___ D ____. A. True B. 结果不确定 C. -1 D. False 53.以下程序段运行后,输出字符的排列顺序是___ D ____.

For i=1 To 6 If i Mod 2=0 Then Print "#"; Else Print "*"; End If Next i A. #*#*# B. ##### C. ***** D. *#*#*# 54.用 MsgBox 函数显示的对话框,以下叙述正确的是___ D ____. A. 该对话框有一个"确定"按钮 B. 该对话框有"是","否"两个按钮 C. 该对话框有"是","否","取消"三个按钮 D. 该对话框通过选择参数可以得到以上不同的的按钮组合 55.与语句 Dim abc%作用相同的语句是___ A ____. A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date

56.设 a=1,b=2,c=3,d=4,则表达式 IIf(a5,-1,0)后,x 的值为___ D___. A. 5 B. 6 C. 0 D. -1 71.表达式 Int(5*Rnd+1)* Int(5*Rnd-1) 值的范围是___ D____. A. [0,15] B. [-1,15] C. [-4,15] D. [-5,15] 72.可以同时删除字符串前导和尾部空格的函数是___C____. A. Ltrim B. Rtrim C. Trim D. Mid 73.当函数 MsgBox 返回值为 1,对应的符号常量是 vbOK,那么此时表示用户做的 操作是___ A___. A. 用户单击了对话框中的"确定"按钮 B. 用户单击了对话框中的"取消"按钮 C. 用户单击了对话框中的"是"按钮 D. 用户单击了对话框中的"否"按钮

74.函数 Int(Rnd*5)+1 产生的随机整数的范围是___D____. A. [0,6] B. [1,6] C. [0,5] D. [1,5] 75.在 VB 中,InputBox 函数的默认返回值类型为字符串,用 InputBox 函数输入数 值型数据 时,下列操作中可以有效防止程序出错的操作是___A____.

A. 在函数 InputBox 前面使用 Val 函数进行类型转换 B. 在函数 InputBox 前面使用 Str 函数进行类型转换 C. 在函数 InputBox 前面使用 Value 函数进行类型转换 D. 在函数 InputBox 前面使用 String 函数进行类型转换 76.已知 a="12345678",则表达式 Right(a, 4) + Mid(a, 3, 2)的值是___B____. A. "123445" B. "567834" C. 123445 D. 567834 77.表达式 Len("123 程序设计 ABC")的值是___A____. A. 10 B. 14 C. 20 D. 17 78.赋值语句 g = 123 + Mid("123456", 3, 2)执行后,变量 g 中的值是___D____. A. "12334" B. 123 C. 12334 D. 157 79.如果 x 是一个正实数,对 x 的第 3 位小数四舍五入的表达式是___B____. A. 0.01 * Int(x + 0.005) B. 0.01 * Int(100 * (x + 0.005)) C. 0.01 * Int(100 * (x + 0.05)) D. 0.01 * Int(x + 0.05) 80.以下程序执行后,输出的结果是___A____. m$="123" n$="456" k$=LCASE$(m$) j$=UCASE$(n$) Print k$ , j$ A. 123 456 B. !@#$%^ C. 49 52 D. 33 36 81.MsgBox 函数的返回值的类型是___A____. A. 整型 B. 字符串 C. 逻辑值 D. 日期型

82.A=5,B=8,则(B-A)*Rnd+A 的结果是介于___A____之间的数. A. 5~8 B. 0~5 C. 3~5 D. 0~3 83.使用下列语句:Dim x(1 to 10,3) As Single,则数组占用内存空间的字节数是 ___C____. A. 132 B. 80 C. 160 D. 120 84.用 Select Case 语句选择|x|10 D. Is 10 85.若 x=1,执行语句 If x Then x = 0 Else x = 1 的结果是__D_____. A. 实时错误 B. 编译错误 C. x=1 D. x=0 86.以下程序代码能执行的是___C____. A. If a=1 Then b=0 Else c=0 End If B. If a=1 Then : B=0: ElseIf C=0 Then : D=0 C. If a = 1 Then b=0 ElseIf c = 0 Then d=0 End If D. If a = 1 Then b=0 Else If c = 0 d=0 End If 87.下列程序段的循环结构执行后,i 的输出值是___C____. Dim y as Integer For i = 1 To 10 Step 2 y=y+i Next i Print i

A. 25 B. 10 C. 11 D. 因为 y 初值不知道,所以不确定 88.循环结构 For i = 1 To 10 Step 1.5 的执行次数是___A____. A. 7 B. 8 C. 9 D. 10 89.下列结构中不属于循环结构的是___C____. A. For/Next B. While/Wend C. With/End With D. Do/Loop 90.下列结构中不属于分支结构的是___ C____. A. If/End If B. Select Case/End Select C. With/End With D. If/Else/End 91.以下程序段的运行结果是___ D____. Private Sub Form_Click() m=1 n=1 Do m=m*n n=n+1 Loop Until n > 4 Print m End Sub A. 25 B. 45 C. 55 D. 24 92.以下程序段的运行结果是___A____. Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f=1 n=4 For i = 1 To n f=f*i s=s+f Next i If

Print "s="; s End Sub A. 33 B. 34 C. 35 D. 36 93.以下程序段的运行结果是___B____. Private Sub Form_Click() Dim I As Integer, X As String, Y As String X = "ABCDEFG" For I = 4 To 1 Step -1 Y = Y + Mid(X, I, 1) Next I Print Y End Sub A. ABCD B. DCBA C. DEFG D. GFED 94.以下程序段的运行结果是__C__. Private Sub Form_Click() Dim b As Integer, k As Integer b=1 For k = 1 To 5 b=b*k If b >= 15 Then Exit For End If Next k Print k, b End Sub A. 3 15 B. 2 12 C. 4 24 D. 5 15 95.以下程序段的运行结果是___ A____. Private Sub Form_Click()

a=1 b=a Do Until a >= 5 X=a*b Print Str(a) & "*" & Str(b) & "="; Str(X), a=a+b b=b+a Loop End Sub A. 1*1=1 2*3=6 B. 1*1=2 2*2=4 C. 1*1=1 3*3=9 D. 1*1=2 3*2=6 96.以下程序段的运行结果是___B____. Private Sub Form_Click() x = "abcdef" y = Asc("b") - Asc("a") z = Len(x) Print y,z End Sub A. 1 2 B. 1 6 C. 2 2 D. 2 6 97.下面程序段运行后,显示的结果是___A____. Dim x If x Then Print x Else Print x+1 A. 1 B. 0 C. -1 D. 显示出错信息 98.运行下列程序段,显示的结果是___A____. x=Int(Rnd)+5 Select Case x Case 5 Print "优秀" Case 4

Print "良好" Case 3 Print "通过" Case Else Print "不通过" End Select A. 优秀 B. 良好 C. 通过 D. 不通过 99.下列 If 语句统计满足性别为男,职称为副教授以上,年龄小于 40 岁条件的人数, 不正确 的语句是___D___. A. If sex=〃男〃And age0 Then n=n+1 B. If sex=〃男〃And age C. If sex=〃男〃And age D. If sex=〃男〃And agey,x,y) B. If x>y Then Max=x Else Max=y C. Max=x If y>=x Then Max=y D. If y>=x Then Max=y Max=x 101.以下正确的程序段是___ B___. A. For x=1 To Step 10 B. For x=3 To -3 Step -3 ? ? Next x Next x C. For x=1 To 10 D. For x=10 To 1 re: ? ? Next x Next y If i=10 Then GoTo re

102.下列循环能正常结束的是___C____. A. i=5 B. i=1 DO DO i=i+1 i=i+2 Loop Until i10 Loop Until i=1 103.若要退出 For 循环,可使用的语句为____D___. A. Exit B. Exit Do C. Time D. Exit For 104.当 a=1,b=3,c=5,d=4 时,执行下面一段程序后,x 的值为___B___. If a If c x=1 Else x=2 End If Else If c0 y=x+1 Case Is=0 y=x+2 Case Else y=x+3 End Select Print x;y A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 106.下面程序段的作用是___D____. m=0:n=0 For i=1 To 10 x= Val(InputBox("请输入 x 的值:"))

If x>0 Then m=m+x ElseIf x="副教授" AND A$="女" THEN N=N+1 D. IF A$="女" AND (B$="副教授" OR B$="教授") THEN N=N+1 110.以下程序段执行后,变量 s,x 的值分别为___ C____. Dim s As Integer, x As Integer s = 10: x = 1 Do While x c Then d = d + x(i) c = x(i) Else d=d-c End If Next i Print d End Sub 程序运行后,单击命令按钮,输出结果是___C____. A. 89 B. 99 C. 23 D. 77 129.以下程序段的运行结果是__D__. Private Sub Form_Click() Dim ary(1 To 4) As Integer Dim i As Integer Dim sum As Integer sum = 1 For i = 1 To 4 ary(i) = i sum = sum + ary(i) Next i

Print sum End Sub A. 8 B. 9 C. 10 D. 11 130.下列语句声明的数组 a 包含的元素个数有___A____. Dim a(3 ,-2 to 2,5) A. 120 B. 75 C. 60 D. 13 131.以下程序输出的结果是___C____. Option Base 1 Private Sub Command1_Click() Dim a%(3,3) For i=1 To 3 For j=1 To 3 a(i,j)=i*j Print a(i,j);〃〃; Next j Print Next i End Sub A.1 2 3 B.1 2 3 C.1 2 3 D.1 1 1 231123246222 323123369333 132.与语句 Dim abc%作用相同的语句是___A____. A. Dim abc As Integer B. Dim abc As Long C. Dim abc As String D. Dim abc As Date 133.定义数组 A(1 to 5,5)后,下列哪一个数组元素不存在___C__ A. A(1,1) B. A(1,5) C. A(0,1) D. A(5,5)

134.在 Visual Basic 应用程序中,以下描述正确的是___B____. A. 过程的定义可以嵌套,但过程的调用不能嵌套 B. 过程的定义不可以嵌套,但过程的调用可以嵌套 C. 过程的定义和过程的调用均可以嵌套 D. 过程的定义和过程的调用均不可以嵌套 135.在在窗体上添加一个命令按钮 Command1 和一个文本框 Text1,然后编写如下 事件过程: Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b End Sub Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0 Call p1(x, y, z) Text1.Text = Str(z) End Sub 程序运行后,单击命令按钮得到的结果是___B____. A. 0 B. 12 C. Str(z) D. 没有显示 136.假定有如下的 Sub 过程: Sub swapp(x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click()

Dim a As Single Dim b As Single a = 5: b = 4 swapp a, b Print a, b End Sub 程序运行时,单击命令按钮得到的结果是___D__. A. 5 4 B. 1 1 C. 1.25 4 D. 1.25 1 137.运行下列程序,单击命令按钮后的结果是___C____. Function fun(a As Integer) b = 0 Static c b = b + 1 c = c + 1 fun = a + b + c End Function Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Sum = Sum + fun(a) Next i Print Sum End Sub A. 24 B. 12 C. 15 D. 32 138.阅读程序: Sub subp(b() As Integer)

For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8 subp a For i = 1 To 4 Print a(i); Next i End Sub 程序运行时,单击命令按钮得到的结果是___A____. A. 2 4 6 8 B. 5 6 7 8 C. 10 12 14 16 D. 出错 139.假定有以下函数过程: Function func(a As Integer, b As Integer) As Integer func = a + b End Function 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() p = func(10,20) Print p; End Sub 程序运行时,单击命令按钮得到的结果是___C____. A. 10 B. 20 C. 30 D. 40 140.假定有以下两个过程: Sub s1(ByVal x As Integer, ByVal y As Integer)

Dim t As Integer t = x x = y y = t End Sub Sub s2(x As Integer, y As Integer) Dim t As Integer t = x x = y y = t End Sub 则以下说法中正确的是___B____. A. 用过程 S1 可以实现交换两个变量的值的操作,S2 不能实现 B. 用过程 S2 可以实现交换两个变量的值的操作,S1 不能实现 C. 用过程 S1 和 S2 都可以实现交换两个变量的值的操作 D. 用过程 S1 和 S2 都不能实现交换两个变量的值的操作 141.假定有以下函数过程: Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1)) + s1 Next i Fun = s1 End Function 在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim str1 As String, str2 As String str1 = InputBox("请输入一个字符串") str2 = Fun(str1) Print str2 End Sub 程序运行后 , 单击命令按钮 , 在输入对话框中输入字符串 "abc", 则输出结果为 ___D____. A. abc B. cba C. ABC D. CBA 142.在窗体上添加一个命令按钮 Command1 和两个名称分别为 Label1 和 Label2

的标签,在通 用声明段声明变量 x,并编写如下事件过程和 Sub 过程: Private x As Integer Private Sub Command1_Click() x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = y End Sub Sub proc(ByVal a As Integer, ByVal b As Integer) x=a*a y=b+b End Sub 程序运行后,单击命令按钮,则两个标签中显示的内容分别是___B____. A. 5 和 3 B. 25 和 3 C. 25 和 6 D. 5 和 6 143.下列程序输出结果为___A____. Private Sub Command1_Click() For i = 1 To 3 GetValue (i) Next i Print GetValue(i) End Sub Private Function GetValue(ByVal a As Integer) dim s As Integer s=s+a GetValue = s End Function A. 4 B. 5 C. 10 D. 11 144.以下程序的运行结果是___C____. Dim x As Integer, y As Integer, z As Integer Sub s2(a As Integer, ByVal b As Integer) a=2*a b=b+2 End Sub Private Sub Command1_Click() x=4 y=4 Call s2(x, y) Print x + y End Sub A. 0 B. 8 C. 12 D. 14 145.以下程序的运行结果是___A____. Private Sub Command1_Click() Dim a(1 To 4) As Integer

For i = 1 To 4 a(i) = i + 5 Print a(i); Next i End Sub A. 6 7 8 9 B. 12 14 16 18 C. 2 4 6 8 D. 1 2 3 4 146.以下程序的运行结果是___C____. Private Sub Form_Click() a = 1: b = 1 Print "A="; a; "B="; b Call mult(a, b) Print "A="; a; "B="; b End Sub Sub mult(x, y) x=2*x y=3*y End Sub A. A=1 B=1 B. A=1 B=1 C. A=1 B=1 D. A=1 B=1 A=1 B=1 A=1 B=3 A=2 B=3 A=2 B=1 147.在窗体上添加一个命令按钮 Command1 和 3 个名称分别为 Label1,Label2 和 Label3 的标 签,然后编写如下事件过程: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z=n+z y=y+z x=x+z Label1.Caption = x Label2.Caption = y Label3.Caption = z End Sub 程序运行后,连续 3 次单击命令按钮后,3 个标签中显示的内容分别是___C____. A. 10 10 10 B. 30 30 30 C. 30 30 10 D. 10 30 30 148.在窗体上添加一个命令按钮和一个文本框,然后编写如下事件过程: Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next i n = 10 Text1.Text = n + arr(5)

End Sub 程序运行时,单击命令按钮,则文本框中显示内容是___B____. A. 10 B. 15 C. 25 D. 24 149.以下程序段的运行结果是___C____. Private Sub Form_Click() Dim x As Integer x=3 Call abcd(x) Print x End Sub Public Sub abcd(n As Integer) n=n+5 End Sub A. 3 B. 5 C. 8 D. 10 150. 一个工程中包含两个名称分别为 Form1 和 Form2 的窗体 , 一个名称为 mdlfunc 的标准模 块.假定 Form1,Form2 和 mdlfunc 中分别建立了自定义过程,其定义格式为: Form1 中定义的过程: Private sub frmFunction1() ? End Sub Form2 中定义的过程: Public sub frmFunction2() ? End Sub Md1func 中定义的过程: Public sub md1Function () ? End Sub 在调用上述过程的程序中 , 如果不指明窗体或模块的名称 ,则以下叙述中正确的 是___D____. A. 上述三个过程都可以在工程中的任何窗体或模块中被调用 B. frmFunction2 和 md1Function 过程能够在工程中各个窗体或模块中被调用 C. 上述三个过程都只能在各自被定义的模块中调用 D. 只有 md1Function 过程能够被工程中各个窗体或模块调用 151.以下程序段的运行结果是___B___. Function abc(n As Integer) As Integer abc = n * 5 + 10 End Function Private Sub Form_Click() Dim x As Integer x = abc(2) + 100 * abc(1) Print x

End Sub A. 2 B. 1520 C. 1500 D. 700 152.以下程序段的运行结果是___C___. Private Sub Form_Click() Dim x As Integer x=4 Print x; Call test(x) Print x End Sub Public Sub test(i As Integer) i=i+1 End Sub A. 4 6 B. 4 4 C. 4 5 D.5 4 153.以下程序段的运行结果是___B___. Private Sub Form_Click() Dim x As Integer x=4 Print x; Call test(x) Print x End Sub Public Sub test(ByVal i As Integer) i=i+1 End Sub A. 4 6 B. 4 4 C. 4 5 D. 5 4 154.下面的子过程语句说明合法的是___D____. A. Sub f1(ByVal n%())% B. Sub f1(n%) As Integer C. Function f1%(f1%) D. Function fl(ByVal n%) 155. 要想调用子过程后通过参数返回两个结果 , 下面子过程语句说明合法的是 ___C___. A. Sub f2(ByVal n%,ByVal m%) B. Sub f1(n%,ByVal m%) C. Sub f1(n%,m%) D. Sub f1(ByVal n%,m%) 156.下列程序运行后显示的结果是___A___. Public Sub F1(n%,ByVal m%) Private Sub Command1_Click() n=n Mod 10 Dim x%,y% m=m\10 x=12:y=34 End Sub Call F1(x,y) Print x,y End Sub A. 2 34 B. 12 34 C. 2 3 D. 12 3 157.在过程定义中用___C___表示形参的传值. A. Var B. ByRef C. ByVal D. Value

158.窗体的标题栏显示内容由窗体对象的___D____属性决定. A. BackColor B. BackStyle C. Text D. Caption 159.以下关于窗体的描述中,错误的是___A___. A. 执行 Unload Form1 语句后,窗体 Form1 消失,但仍在内存中 B. 窗体的 load 事件在加载窗体时发生 C. 当窗体的 Enabled 属性为 False 时,通过鼠标和键盘对窗体的操作都被禁止 D. 窗体的 Height,Width 属性用于设置窗体的高和宽 160.若要取消窗体的最大化功能,则可设置___C___属性为 False 来实现. A. ControlBox B. MinButton C. MaxButton D. Enabled 161.窗体的边框风格由窗体对象的__B___属性来设置. A. BackStyle B. BorderStyle C. WindowState D. FillStyle 162.若要以程序代码方式设置在窗体中显示文本的字体大小,则可用窗体对象的 __C__属性来 实现. A. FontName B. Font C. FontSize D. FontBold 163.在代码编辑窗口内将窗体 Form1 的 Caption 属性设置为"时钟",正确的书写 形式是 ___B____. A. Form1.Caption" 时 钟 " B. Form1.Caption=" 时 钟 "C. Caption= 时 钟 D. Form1.Caption(" 时钟") 164.若要设置文本框中文字的显示颜色,则可用___B___属性来实现. A. BackColor B. ForeColor C .FillColor D. BackStyle 165.若要使窗体启动时,位于屏幕的中间,则可通过___C____属性来设置. A. Top B. Left C. StartUpPosition D. WindowState 166.若要将窗体隐藏起来,则实现的方法为___A____. A. Hide B. UnLoad C. Show D. WindowState 167.若要求在文本框中输入密码时 ,文本框中只显示 #号 ,则应在此文本框的属性 窗口中设置 ___C___. A. Caption 属性值为# B. Text 属性值为# C. Passwordchar 属性值为# D. Passwordchar 属性值为真 168.若要将某命令按钮设置为默认命令钮 ,则可设置___C____属性为 True 来实 现. A. Value B. Cancel C. Default D. Enable 169.若要设置命令按钮的工具提示,则可通过___D____属性来设置. A. Caption B. Text C. Value D. ToolTipText 170.若要使某命令按钮获得控制焦点,则可使用___B___方法来设置. A. Refresh B. SetFocus C. GotFocus D. Value 171.标签的边框风格,由____A___属性的设置值决定. A. BorderStyle B. BackStyle C. BackColor D. AutoSize 172.若要使标签的大小自动与所显示的文本相适应 ,则可通过设置__A__属性的 值为 True 来

实现. A. AutoSize B. Alignment C. Appearance D. Visible 173.若要使文本框成为只读文本框,可通过设置___C____属性值为 True 来实现. A. ReadOnly B. Lock C. Locked D. Enabled 174.若要设置定时器控件定时触发 Timer 事件的时间间隔,可通过___A____属性 来设置. A. Interval B. Value C. Enabled D. Text 175.若要获知列表框中列表项的总项数,可通过访问___C____属性来实现. A. List B. ListIndex C. ListCount D. Text 176.若要向列表框添加列表项,可使用的方法是___D____. A. Add B. Remove C. Clear D. AddItem 177.设组合框 Combo1 中有 3 个项目,则能删除最后一项的语句是___B____. A. Combo1.RemoveItem Text B. Combo1.RemoveItem 2 C. Combo1.RemoveItem 3 D. Combo1.RemoveItem Combo1.Listcount 178.下列控件中,没有 Caption 属性的是___B____. A. 框架 B. 列表框 C. 复选框 D. 单选按钮 179.复选框的 Value 属性值为 1 时,表示___B____. A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作错误 180.将数据项"China"添加到列表框 List1 中成为第一项,应使用语句____A___. A. List1.AddItem "China", 0 B. List1.AddItem "China", 1 C. List1.AddItem 0, "China" D. List1.AddItem 1, "China" 181.假定时钟控件的 Interval 属性为 1000,Enabled 属性为 True,并且有下面的事 件过程, 计算机将发出___D____次 beep 声. Private Sub Timer1_Timer() For i = 1 To 5 beep Next i End Sub A. 100 次 B. 1000 次 C. 5 次 D. 以上都不对 182.如果每 0.5 秒产生一个计时器的 Timer 事件,那么时钟控件的 Interval 属性应 设为 ___C___. A. 5 B. 50 C. 500 D. 5000 183.将命令按钮 Command1 的标题作为文本框 Text1 的文本内容,应执行语句 ___B___. A. Text1= Command1 B. Text1.Text= Command1.Caption C. Text1.Caption=Command1.Caption D. Text1.Text= CStr(Command1) 184.表示滚动条控件取值范围最大值的属性是___A____. A. Max B. LargeChange C. Value D. Max-Min 185.程序运行后,在窗体上单击鼠标,此时窗体不会接受到的事件是___C____.

A. MouseDown B. MouseUp C. Load D. Click 186.下列控件可以用作其他控件容器的有___D____. A. 窗体,标签,图片框 B. 窗体,框架,文本框 C. 窗体,图像,列表框 D. 窗体,框架,图片框 187.改变驱动器列表框的 Drive 属性将激活___A____事件. A. Change B. Scroll C. KeyDown D. KeyUp 188.在窗体上添加一个列表框和一个文本框,然后编写如下两个事件过程: Private Sub Form_Load() List1.AddItem "357" List1.AddItem "246" List1.AddItem "123" List1.AddItem "456" End Sub Private Sub List1_DblClick() a = List1.Text Print a + Text1.Text End Sub 程序运行后 , 在文本框中输入 "789", 然后双击列表框中的 "456", 则输出结果为 ___B____. A. 1245 B. 456789 C. 789456 D. 0 189.在窗体上添加一个文本框,然后编写如下事件过程: Private Sub Form_Load() For i = 1 To 10 Sum = Sum + i Next i Text1.Text = Sum End Sub 上述程序的运行结果是___A____. A. 在文本框 Text1 中输出 55 B. 在文本框 Text1 中输出 0 C. 出错 D. 在文本框 Text1 中输出不定值 190. 对 于 窗 体 Form1, 执 行 了 Form1.Top=Form1.Top-100 语 句 后 , 该 窗 体 将 ___A___. A. 上移 B. 下移 C. 左移 D. 右移 191.在窗体上添加一命令按钮 Command1,并将其 Caption 属性设置为 cmdAA, 名称属性设置 为 cmdBB,则关于该控件的语句____C___是正确的. A. Command1.Left=100 B. cmdAA.Left=100 C. cmdBB.Left=100 D. 以上语句都不对 192. 如果每 2 秒产生一个计时器事件 , 那么时钟控件的 Interval 属性应设为 ___C___. A. 2 B. 200 C. 2000 D. 5000 193. 窗 体 上 有 一 个 公 用 对 话 框 CommonDialog1, 则 语 句 CommonDialog1.ShowSave 的作用是 ___D____.

A. 显示"打开"对话框 B. 显示"颜色"对话框 C. 显示"字体"对话框 D. 显示" 另存为" 对话框 194.在窗体上画一个名称为 List1 的列表框,一个名称为 Label1 的标签;列表框中 显示若干 城市的名称.当单击列表框中的某个城市名时,在标签中显示选中城市的名称. 在 List1 的单击事件过程中能正确实现上述功能的语句是___D____. A. Label1.Caption = List1.ListIndex B. Label1.Name = List1. ListIndex C. Label1.Name = List1.Text D. Label1.Caption = List1.Text 195.为清除图片框 Picture1 中的图形,下列方法正确的是___A____. A. Picture1.Picture=LoadPicture("") B. Set Picture1.Picture=LoadPicture C. Picture1.Picture=LoadPicture("C:\Winap.Bmp") D. Set Picture1.Picture=LoadPicture("C:\Winap.Bmp") 196.因修改文本框中的数据而触发的事件是___A____. A. Change B. GotFocus C. LostFocus D. SetFocus 197.刚建立一个新的标准 EXE 工程时,不在工具箱中出现的控件是___C____. A. 单选按钮 B. 图片框 C. 通用对话框 D. 文本框 198. 下面对语句 Open "Rizhi.dat" For Output As #1 的功能描述错误的是 ___C___. A. 以顺序输出模式打开文件"Rizhi.dat" B. 如果文件"Rizhi.dat"不存在,则建立一个新文件 C. 如果文件 "Rizhi.dat"已存在,则打开该文件,新写入的的数据将添加到文件末 尾 D. 如果文件 "Rizhi.dat"已存在,则打开该文件,新写入的的数据将覆盖原来的数 据 199. 执行语句 Open "Sample.dat" For Random As #1 Len = 50 后 , 对文件 "Sample.dat"中 的数据能够进行的操作是___C___. A. 只能写不能读 B. 只能读不能写 C. 即可以读,也可以写 D. 不能读,也不 能写 200.以下哪个不是 VB 中的数据文件类型____B___. A. 顺序文件 B. 数据库文件 C. 随机文件 D. 二进制文件 201.下列说法错误的是____C___. A. 当用 Write # 语句写顺序文件时,文件必须以 Output 或 Append 方式打开 B. 用 Input 方式打开一个文件时,对同一个文件可以用几个不同的文件号打开 C. 用 Output 和 Append 方式打开文件时,不用将文件关闭,就能重新打开文件 D. 用 Append 方式打开文件时,进行写操作,写入文件的数据附加到原来文件的 后面 202.下面几个关键字均表示文件的打开方式,只能进行读不能写的是___A____. A. Input B. Output C. Random D. Append 203.下列哪个不是写文件语句___D___. A. Put B. Print C. Write D. Output 204.以下叙述中正确的是___B___.

A. 一个记录中所包含的各个元素的数据类型必须相同 B. 随机文件中每个记录的长度是固定的 C. Open 命令的作用是打开一个已经存在的文件 D. 使用 Input#语句可以从随机文件中读取数据 205.在窗体上添加一个命令按钮 Command1 和一个文本框 Text1,然后编写如下 事件过程: Private Sub Command1_Click() Dim s As String * 20 s = Text1.Text ?? End Sub 该程序的功能是当单击按钮 Command1 时,把变量 S 的内容写入一个顺序文件 dat1.dat 中, 正确的程序段是___B___. A. Open "dat1.dat" For Input As #1 Write #1, s Close #1 B. Open "dat1.dat" For Output As #1 Write #1, s Close #1 C. Open "dat1.dat" For Random As #1 Write #1, s Close #1 D. Open "dat1.dat" For Binary As #1 Write #1, s Close #1 206.FileFiles.Pattern="*.dat" 语句执行后,FileFiles 文件列表框中显示___A____. A. 只包含文件扩展名为".dat"的文件 B. 第一个 dat 文件 C. 包含所有的文件 D. 显示磁盘的路径 207.目录列表框的 Path 属性的作用是___A___. A. 显示当前驱动器或指定驱动器上的路径 B. 显示当前驱动器或指定驱动器上的某个目录下的文件名 C. 显示根目录下的文件 D. 只显示当前路径下的文件 208.为了使 Drive1 驱动器列表框,Dir1 目录路径列表框和 File1 文件列表框同步 协调工作, 需要__A__. A. Drive1 的 Change 事件过程中加入 Dir1.Path = Drive1.Drive,在 Dir1 的 Change 事件中 加入 File1.Path = Dir1.Path 代码 B. Drive1 的 Change 事件过程中加入 Dir1.Path =Dir1.Path,在 Dir1 的 Change 事件中加入 File1.Path = Drive1.Drive 代码 C. Dir1 的 Change 事件过程中加入 Dir1.Path = Drive1.Drive,在 Drive1 的 Change

事件中 加入 File1.Path = File1.FileName 代码 D. Dir1 的 Change 事件过程中加入 Dir1.Path = Drive1.Drive,在 Drive1 的 Change 事件中 加入 File1.Path = Dir1.Path 代码 209.以下程序运行后,a1.dat 文件的内容是___B____. Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open "d:\a1.dat" For Output As #1 f1 = 2 f2 = 3 f3 = f2 + f1 Write #1, f1 * f2, f2, f3 Close #1 End Sub A. 2,3,3 B. 6,3,5 C. 2,5,6 D. 无内容 210.以下能判断是否到达文件尾的函数是___D____. A. BOF B. LOC C. LOF D. EOF 211.在一行写多条语句时,每个语句之间用___B___符号分隔. A. , B. : C. , D. ; 212.VB 6.0 作为一种编程语言是基于以下___C____种版本语言. A. FoxBASE B. C C. BASIC D. PASCAL 213.一条语句要分行书写,用___C____符号作续行符. A. + B. - C. _ D. ? 214.VB 6.0 的标准化控件位于 IDE(集成开发环境)中的___B___窗口内. A. 工具栏 B. 工具箱 C. 对象浏览器 D. 窗体设计器 215.下面___A___是合法的变量名. A. X_yz B. 123abc C. integer D. X-Y 216.关于 Visual Basic 应用程序正确的叙述是___A____. A. Visual Basic 程序运行时,总是等待事件被触发 B. Visual Basic 程序设计就是编写代码 C. Visual Basic 程序是以线性方式顺序执行的 D. Visual Basic 的事件可以由用户随意定义,而事件过程是系统预先设置好的 217.下列操作不能打开代码编辑窗口的是___D____. A. 选中对象,单击鼠标右键,在弹出菜单中选择"查看代码" B. 选中对象,双击鼠标左键 C. 按功能键 F7 D. 按功能键 F4 218.保存文件时,窗体的所有数据以___B___存储. A. *.PRG B. *.FRM C. *.VBP D. *.EXE 219.下列哪组语句可以将变量 a,b 的值互换___B____. A. a=b : b=a B. a=a+b : b=a-b : a=a-b C. a=c : c=b : b=a D. a=(a+b)/2 : b=(a-b)/2 220.以下程序段执行后,整型变量 n 的值为___A____.

year1 = 2004 n = year1 \ 4 + year1 \ 400 - year1 \ 100 A. 486 B. 496 C. 506 D. 466 221.将一文本框与数据控件相关联,需要设定文本框的___C____属性. A. DataMember B. Datafield C. DataSource D. DataFormat 222.窗体 Form1 上有两个文本框 Text1,Text2 和一个命令按钮 Command1,编写 如下两个事 件过程: Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = "123" Text2.Text = "321" End Sub 程序运行时点击 Command1 按钮,窗体上显示的运行结果是___B____. A. 444 B. 123321 C. 321123 D. 132231 223. 在窗体上添加三个文本框 , 名称分别为 Text1,Text2,Text3, 一个命令按钮 Command1. 如果在 Text1 中输入 150,Text2 中输入 200,则执行下列程序后,Text3 中显示的数 为__D__. Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m < n Then t = m: m = n: n = t End If Do r = m Mod n m=n n=r Loop While r 0 Text3.Text = Str(m) End Sub A. 200 B. 150 C. 100 D. 50 224.下列程序是在列表框 List1 中显示 3 个学生的名字.用户点击列表框中的某个 名字后, 文本框 Text1 中显示的是___B____. Dim student(0 To 2) As String Dim grade(0 To 2) As Single Private Sub Form_Load()

student(0) = "章力" : student(1) = "刘唯" : student(2) = "方红" grade(0) = 92.5: grade(1) = 73 : grade(2) = 84 For i = 0 To 2 List1.AddItem student(i) Next i List1.ListIndex = 0 End Sub Private Sub List1_Click() Text1.Text = grade(List1.ListIndex) End Sub A. 被选中的学生名 B. 被选中学生的成绩 C. 第一个学生名 D. 第一个学生的 成绩 225.以下程序段的执行结果是___B___. a=10:y=0 Do a=a+2 y=y+a If y>20 Then Exit Do End If Loop While a<=14 Print "a=";a;"y=";y A. a=18 y=24 B. a=14 y=26 C. a=14 y=24 D. a=12 y=12 226.以下叙述中错误的是___A____. A. 在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B. 以.BAS 为扩展名的文件是标准模块文件 C. 窗体文件包含该窗体及其控件的属性 D. 一个工程中可以含有多个标准模块文件 227.关于 VB 中的监视表达式,错误的叙述是___A____. A. 监视表达式不能引起中断 B. 可使监视表达式为真时引起中断 C. 可使监视表达式的值变化时引起中断 D. 监视表达式可以监视对象 228.在属性窗口中,属性有两种排列方式,分别是___D____. A. 日期和时间 B. 事件和对象 C. 文件大小和名称 D. 字母顺序和分类顺 序 229.下列哪种操作不可以打开属性窗口___A____. A. 双击代码窗口 B. 双击任何一个对象 C. 单击鼠标右键 D. 执行"视图"菜单中的"属性窗口"命令 230.以下程序段的运行结果是___C___. Private Sub Form_Click() Dim x() As String a = " How are you!" n = Len(a) ReDim x(1 To n) For i = n To 1 Step -1

x(i) = Mid(a, i, 1) Next I For i = 1 To n Print x(i); Next i End Sub A. !uoy era woH B. !uoy era woh C. How are you! D. how are you! 231.以下程序段的运行结果是___D____. Private Sub Form_Click() Dim nsum As Integer nsum = 1 For i = 2 To 4 nsum = nsum + factor(i) Next i Print nsum End Sub Function factor(ByVal n As Integer) As Integer Dim temp As Integer temp = 1 For i = 1 To n temp = temp * i Next i factor = temp End Function A. 10 B. 13 C. 23 D.33 232.以下程序段的运行结果是___C___. Private Sub command1_Click() Const n = 4 Dim xx(n) As Integer For i = 1 To n xx(i) = i * 2 Print xx(i); Next i End Sub A. 1 3 5 7 B. 1 4 4 1 C. 2 4 6 8 D. 4 1 4 1 233.以下程序段的运行结果是__B__. Private Sub Form_Click() Dim m As Integer Print fac(4) End Sub Private Function fac(n) As Long If n = 1 Then

fac = 1 Else fac = n * fac(n - 1) End If End Function A. 20 B. 24 C. 18 D. 16 234.以下程序段的运行结果是___C____. Private Sub Form_Click() Dim s As String, once As String, sum As Integer For i = 1 To 5 once = InputBox("请输入一个字符") '分别输入 A,C,A,D,E sum = sum + checks(once, s) Next i Print s; sum End Sub Private Function checks(ByVal x As String, y As String) As Integer If x "A" Then y=y+x checks = 1 End If End Function A. ACA 3 B. ACA 5 C. CDE 3 D. CDE 5 235.以下程序运行的结果是___D___. Option Base 1 Private Sub Command1_Click() Dim a,b(3,3) a=array(1,2,3,4,5,6,7,8,9) For i=1 To 3 For j=1 To 3 b(i,j)=a(i*j) If (j>=i) Then Print Tab(j*3);Format(b(i,j),"# # #"); Next j Print Next i End Sub A. 1 2 3 B. 1 C. 1 4 7 D.1 2 3 4564524646 7897893699 236.以下程序段的运行结果是___C____. Dim y As Integer Private Sub Form_Click() Dim x As Integer x = 1:y = 1 z = bb(x)

Print x, y, z End Sub Public Function bb(n As Integer) y=y+1 bb = n + y End Function A. 1 1 1 B. 1 2 1 C. 1 2 3 D. 2 2 2 237.以下程序段的运行结果是___C___. Private Sub Form_Click() Dim i%, s% For i = 1 To 3 s = sum(i) Form1.Print s; Next i End Sub Function sum(n As Integer) Static j As Integer j=j+n+1 sum = j End Function A. 2 4 6 B. 2 5 7 C. 2 5 9 D. 2 5 10 238.在窗体上画一个命令按钮 Command1,然后编写如下代码: Private Sub Command1_Click() Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i - 1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Print Next i End Sub 程序运行后,单击命令按钮,输出结果是__D__. A. 6 9 B. 7 10 C. 8 11 D. 9 12 7 10 8 11 9 12 10 13 239.以下程序段的运行结果是___B____. Private Sub Form_Click() Dim i As Integer, y As Integer i=0

Do While i 6 Then Exit Do End If Loop Print x End Sub A. 1 B. 3 C. 6 D. 7 241.有如下程序: Private Sub Form_Load() Dim arr1(10, 10) As Integer Dim i, j As Integer For i = 1 To 3 For j = 2 To 4 arr1(i, j) = i + j Next j Next i Text1.Text = arr1(2, 3) + arr1(3, 4) End Sub 程序运行后,单击窗体,在文本框显示的值是___C___. A. 5 B. 7 C. 12 D. 20 242.运行下列程序时,如果连击 3 次 cmd1,且依次输入 9,3,16,获得的运行结果分别 是__C__. Private Sub Cmd1_Click() Dim x As Integer Dim y As Integer x = Val(InputBox("输入数据")) If Int(Sqr(x)) Sqr(x) Then y=x*x Else y = Sqr(x) End If Form1.Text1.Text = Str(y) End Sub A. 3,3,4 B. 81,9,256 C. 3,9,4 D. 9,3,16 243.有如下程序段: j=1 : n=0 Do While n j=j * (j+1) n=n+1 Loop Print n ; j 运行后,输出的结果是___D__. A) 1 0 B) 3 3 C) 4 30 D) 3 42 244.设输入的数据分别为 14,3 时,标签 Label1 中显示的值分别是___A___.

Private Sub Form_Click() Dim a As Integer a = Val(InputBox("请输入一个数")) Select Case a Mod 5 Case Is < 2 w = a + 10 Case Is < 4 w=a*2 Case Else w = a - 10 End Select Label1.Caption = Str(w) End Sub A. 4,6 B. 6,4 C. 24,6 D. 6,24 245.下列程序段___B___不能分别正确显示 1!,2!,3!,4!的值. A.For i=1 To 4 B.For i=1 To 4 n=1 For j=1 To i For j=1 To i n=1 n=n*j n=n*j Next j Next j Print n Print n Next i Next i C.n=1 D.n=1 For j=1 To 4 j=1 n=n*j Do While j<=4 Print n n=n*j Next j Print n j=j+1 Loop 246.执行如下程序后,d:\a1.dat 中的数据是___B____. Private Sub Form_Click() Dim f1 As Integer, f2 As Integer, f3 As Integer Open "d:\a1.dat" For Output As #1 f1 = 2: f2 = 3 f3 = f2 + f3 Print #1, f1; Print #1, f2; For i = 5 To 6 f3 = f1 + f2 Print #1, f3; f1 = f2 f2 = f3 Next i

Close #1 End Sub A. 2 3 4 5 B. 2 3 5 8 C. 2 3 4 6 D. 无内容 247.下列程序段的运行结果是___B___. Private Sub Command1_Click() Dim a(3) As Long a(0) = 1: a(1) = 2: a(2) = 3: a(3) = 4 j=1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub A. 4321 B. 1234 C. 34 D. 12 248.有如下程序,运行后输出结果是___C___. Private Sub Form_Click() a=5 If a<=3 Then Print 3; End If If a<=4 Then Print 4; End If If a<=5 Then Print 5; End If If a2 b=a+1 Case Is>3 b=a+2 Case Is>5 b=a+3 Case Else b=a+4 End Select Print a;b End Sub A. 4 4 B. 4 5 C. 4 6 D. 4 7 250.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x%,n%,i%,j%

n = InputBox("请输入一个整数") For i = 1 To n For j = 1 To i x=x+1 Next j Next i Print x End Sub 程序运行后,单击命令按钮,如果输入 3,则在窗体上显示的内容是___D___. A. 3 B. 4 C. 5 D. 6 251.某林场 1995 年植树 100 亩,以后每年的植树面积按 5%的速度增长,能正确计 算到 1998 年时四年的植树总面积的程序是___B___. A. s=100:r=0.05 B. s=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r) s=s*(1+r) Next i sum=sum+s Print i Next i End Print sum C. s=100:r=0.05 D. s0=100:sum=100:r=0.05 For i=1996 To 1998 For i=1996 To 1998 s=s*(1+r)+s s=s0*(1+r) Next i sum=sum+s Print i Next i End Print sum 二,判断题(1-174 题) 1.已知 A$="87654321",则表达式 Val(Left$(A$,4)+Mid$(A$,4,2))的值是:876554. √ 2.VB6.0 中&H12 是 8 进制的数值常数.× 3.VB6.0 中 Integer,Long,Single,Double 四种数据类型的取值范围是逐渐增大的, 占用 的存储空间也是逐渐增大的.× 4.Public Pi=3.1415 可以将 Pi 定义为符号常量.× 5.变体型变量的数据类型是由赋给它值的数据类型决定.设 A 的类型为变体型,执 行 A="True"后则 A 的类型为逻辑型.× 6. 已 知 A$="12345678", 则 表 达 式 Val(Right$(A$,2)+Mid$(A$,2,3)) 的 值 是:78234.√ 7.If x>y Then Max=x Else Max=y 程序段是求两个数中的最大数.√ 8.可获得字符 ASCII 码值的函数为 Chr().× 9.在 VB6.0 中,不声明而直接使用的变量,系统默认为变体型(Variant),其默认值为 0.× 10.Public 可以用来定义变量,但必须出现在通用声明段,而不能出现在过程中.√

11.静态变量只能在过程中定义而不能在通用声明段中定义.√ 12.用 Private 定义的变量是过程级变量,所以其作用范围是定义它的过程所在的 窗体(或标 准模块)中的所有过程.× 13.Dim 语句定义的变量可以为过程级变量.√ 14.命令按钮 Command1 的单击事件代码如下: Private Sub Command1_Click() Dim I As Integer I=I+1 End Sub 单击该按钮 3 次,I 的值为 3.× 15.执行 Dim X,Y AS Integer 语句后则 X,Y 的默认值均为 0.× 16.设 A="123",B=123,则 A+B 的结果为 246,A-B 的结果为 0√ 17.中文版的 VB6.0 中,变量的首字符必须是字母,后面可以包含空格,句号等字符. × 18.Dim a As Boolean, b As Boolean a=2 b=0 Print a + b 执行完第二条语句 A 的值为 True.√ 19.Dim a As Boolean, b As Boolean a=2 b=0 Print a + b 执行完程序段,程序输出结果为 2.× 20.表示 x 是 5 的倍数或是 9 的倍数的逻辑表达式为:x Mod 5=0 OR x Mod 9=0. √ 21.Len("等级考试")和 LenB("等级考试")的结果相同.× 22.Len("等级考试")和 Len("VB 考试")的结果相同.√ 23.X=3,Y=2,Z=1, 则表达式 X>Y And Y>Z 的值为真.√ 24.若 X 为偶数,则 Not(X Mod 2)必然为真.√ 25.Dim a As Integer, b As Long Dim c As Single, d As Double 则表达式 a*b-d\2+c 的结果的数据类型为双精度型.√ 26.X=28,则表达式(X Mod 10)*10+X/10 的结果为 82.× 27.Dim X As Boolean, Y X = True Y=0 Print X > Y 程序的输出结果为 False√ 28.执行 Print "A123"+123 语句,系统会给出出错提示.√ 29.VB 允许用户在过程中用 Type 语句定义自己的数据类型.× 30.VB6.0 中有 11 种基本数据类型,有些数据类型有类型说明符,如整型数的类型

说明符为%. √ 31.Visual Basic 中的对象就是指控件.× 32.一个符号常量可以赋同一类型的不同值.× 33.VB6.0 中字符串常量是用双引号或单引号括起来的字符串.× 34.在 Visual Basic 中,Integer 是合法的变量名.× 35.VB6.0 中若表示一个日期和时间常量必须也只能用"#"号将其括起来.√ 36.若 X 为偶数,则 Not(X Mod 2 = 0) 必然为真.× 37.窗体标题栏显示的文本由窗体对象的 Text 属性决定.× 38.若要禁止窗体被移动,则可设置窗体的 Move 属性为 False 来实现.× 39.若要使命令按钮失效,则可通过设置其 Enabled 属性为 False 来实现. √ 40.若要设置定时器控件的定时时间,可通过其 Value 属性来设置.× 41.InputBox 函数可以不带参数调用,而 MsgBox 函数则要求至少带一个参数调用. × 42.一个窗体一定对应一个窗体文件,所以一个应用程序只能包含一个窗体.× 43.Print Tab(3);"Visual Basic" 和 Print Space(3);"Visual Basic"的效果相同.× 44.在 VB 中具有 Print 方法的对象只有窗体对象.× 45.为了使下一个输出语句的输出项不换行输出,则应在本 Print 语句的尾部加";", 且只能 加";".× 46.消息对话框 MsgBox 既可当作函数调用,也可当作语句调用,两种方式均可得 到返回值. × 47.产生消息对话框的 MsgBox 函数返回的值是数值型.√ 48.A=Inputbox("请输入数 A:") 49.若从键盘输入 5,A 的类型为 Integer.× 50.x = InputBox("请输入数 X:") y = InputBox("请输入数 Y:") If x>=10 Then y=x^2 Else y=2*x End If Print y 执行上面程序段,输入 X 的值时从键盘输入 3;输入 Y 的值时从键盘输入 10,则输 出结果为 6. √ 51.MsgBox 函数和 InputBox 函数都有一个可确定对话框中命令按钮的个数和类 型的参数.× 52.表达式 Int(Rnd*10+1) 表示[1,10]闭区间的随机整数.√ 53.Rnd 函数产生的是(0,1)之间不包括 0,1 的随机小数.× 54.Int(-4.5)和 Fix(-4.5)的结果一样.× 55.可获得字符 ASCII 码值的函数为 Asc().√

56.任意整数 X 十位上的数字可以表示为(X MOD 100 - X MOD 10)\10.√ 57.Print InStr("Visual Basic", "I")的结果为 0.√ 58.已知 A=12,则 Len(A)的结果为 2.√ 59.Len(Str(123)+"123"))的结果为 6.× 60.表达式 Val(".123E2AB")的值为.123.× 61.函数 String(3,"ABC")返回的结果为"ABCABCABC".× 62.X="28",则 Val(Right$(X,1))+Val(Left$(X,1)) 的结果为 82.× 63.X="123",则 Val(Right$(X,1)+2+Left$(X,1))的结果为 321.× 64.Date()+4 的功能是推算当前系统日期加上 4 天后的日期.√ 65.Format(5,"0.00%")的结果是 500.00%.√ 66.If x>y Then Max=x Else Max=y 程序段是求两个数中的最大数.√ 67.阅读下面的程序段: a=0 For i=1 To 3 For j=1 To 3 For k=1 To 3 a=a+i Next k Next j Next i 执行上面的循环语句后,a 的值为 27.√ 68.Visual Basic 具有三种基本的流程控制结构:顺序结构,分支结构和循环结构.√ 69.若同时为 x,y,z 变量赋值 5,可以如下操作:x=y=z=5.× 70.有如下赋值语句:a1% = 34.3432,赋值后变量 a1 中的值为整型.√ 71.把数值型值赋给逻辑变量时,非 0 值转换为 True,0 转换为 False.√ 72.任何非字符型的数据赋值给字符型变量时,将被转换成字符型.√ 73.阅读下面的程序段: a=1 If 1 Then a=a+1 Else a=a-1 End If Print a 运行后 a 的值是:无法确定.× 74.阅读下面的程序段: x=1 y= IIf(x>=0, 1+x, 1-2*x) Print y 运行后 y 的值是:-1.× 75.阅读下面的程序段: x=1 Do While x = 1

x=x+1 Loop Print x 该循环,循环次数 1 次,检测循环条件 2 次.√ 76.阅读下面的程序段: x=1 Do x=x+1 Loop Until x > 1 Print x 该循环,循环次数 1 次,检测循环条件 2 次.× 77.阅读下面的程序段: s=0 For i = 2 To 4 If i = 2 Then Exit For s=s+i End If Next Print s 该程序运行后,s 的值是 9.× 78.阅读下面的程序段: x=6 y=3 If x > y Then t=x x=y y=t End If 该程序的功能是:若 x 大于 y 的值,则交换 x 和 y 的值.√ 79.在 For...Next 循环中,Exit For 子句是可选项,它可以放置在循环体语句中的任 何位置. √ 80.End 语句提供了一个强迫终止程序运行的方法 ,它可以放在任何事件过程中 . √ 81.在 VB 编程语句中,利用 GoTo 语句可以构成循环结构.√ 82.在 VB 编程语句中,GoTo 语句中使用的"标号"是一个以分号结尾的标识符.× 83.在 VB 编程语句中,GoTo 语句比较容易理解,在实际编程中大力提倡使用 GoTo 语句.× 85.在 Do....Loop 循环语句中,若要强制退出该循环,使用的退出语句是 Exit Do.√ 86.阅读下面的程序段: s=0 For i = 1 To 5

s=s+i If i = 3 Then Exit For End If Next Print s 该程序运行后 s 的值是 6.√ 87.在 For?Next 循环中,其中 Step 步长可以是正数,也可以是负数.√ 88.If 6>5 Then x=5 End If 是一条合法语句.× 89.下面程序运行时 For m=1 To 3 For n=0 To m-1 s=s+n Next n Next m 内层循环的循环总次数是 6 次.√ 90.在 Do?Loop[While|Until]循环中,While 关键字或 Until 关键字必须选择其中 之一. × 91.数组是用一个统一的名字,不同下标表示的,顺序排列的一组变量.√ 92.Dim aa(5) As Integer 与 Dim aa[5] As Integer 等效.× 93.数组元素的下标可以是常数,变量或表达式.√ 94.在 Visual Basic 中有两种形式的数组:固定数组和动态数组.√ 95.在 VB 中,只允许使用一维数组和二维数组.× 96.静态数组中的数组元素个数一旦定义好后 , 在程序运行过程中不再会发生变 化;而动态数 组的元素个数则是可变的.√ 97.固定数组中的数组元素个数一旦定义好后 , 在程序运行过程中不再会发生变 化,并且数组 中数组元素的值也不会变化.× 98.在 VB 中,Option Base 语句的参数只能是 0 或 1.√ 99.在声明数组时,下标必须是常量,不能是变量;而在引用数组元素时下标可以是 常数,变 量或表达式.√ 100.Dim aa(5) As Interger 不仅定义数组,为数组分配存储空间,还能将数组元素 置为 0. √ 101.引用数组元素时,元素的下标值应在数组说明时所指定的范围之内.√ 102.在同一过程中,数组和简单变量不能同名.√ 103.在 Visual Basic 中,动态数组可以在需要时候改变大小.√ 104.声明一个没有下标的数组,声明时数组名的括号一定不能省略.√ 105.动态数组在定义时已被分配存储空间.× 106.某数组声明为字符型数组,它们的初始值为 False.×

107.有如下数组声明语句: Option Base 1 Dim aa(3, 0 To 2, 1 To 2) As Integer 数组 aa 所含有的数组元素个数是 18.√ 108.在 Visual Basic 中,过程代码可以放在窗体模块和标准模块中,而不能存放在 类模块中. × 109.Visual Basic 提供了三类模块,它们是窗体模块,标准模块和类模块.√ 110.在标准模块中可以包含通用过程,但不能包含事件过程.√ 111.通用过程只能存储在窗体模块中.× 112.储存在窗体模块中的过程,一定可以被整个工程中的事件过程调用.× 113.变量的生存周期,主要是根据变量的使用次数来定义的.× 114.按变量的作用范围分类,过程级变量属于局部变量.√ 115.Sub 过程不能通过其过程名返回值.√ 116.一般情况下,在参数传递过程中,实参与形参的个数必须相等,相应的数据类型 可以不 相符. 117.在用 Call 带参调用 Sub 过程时必须把参数放在括号里.√ 118.在 Sub 过程中可以嵌套定义 Function.× 119.在调用过程时,参数的传递有按地址和按值两种传递方法.√ 120.窗体的标题条显示内容由窗体对象的 Text 属性决定.× 121.各种控件的所有属性都可以在设计模式下通过属性窗口设置,也都可以在运 行模式下通 过程序语句进行赋值.× 122.事件过程是由用户或系统事件触发的,所以在程序中不能调用事件过程.× 123.对象的方法和事件过程都可以在 VB 环境中查看和编辑其程序代码.× 124.事件驱动的编程机制中,事件过程的执行顺序取决于程序流程.× 125.在对象上双击鼠标时,只会触发 DblClick 事件.× 126.用户按下和松开一个字母键时,会触发 KeyDown ,KeyPress,KeyUp 等多个事 件.√ 127.VB 采用了事件驱动的编程机制,当没有事件产生时,程序处于停滞状态,只有 事件发 生时,程序才会运行.√ 128.图形框控件可以用来显示图片,作为其它控件的容器,显示用图形方法输出的 图形以及 用 Print 方法输出的文本.√ 129.VB6.0 中除了可以使用标准控件和第三方控件之外 ,还可以创建和使用用户 自定义控件. √ 130.若使窗体成为子窗体,需要将该窗体的 MDIChild 属性设置为 True.√ 131.窗体的标题,风格,背景颜色等属性只能在设计时通过属性窗口设置.× 132.使窗体中某对象获得控制焦点的方法只有用鼠标单击该对象.× 133.LoadPicture 是 VB 的一个函数,用于将指定的图片文件调入内存.√

134.在窗体 frmA 中定义的全局变量 X1,可以被该工程中的所有过程使用.√ 135.Visual Basic 的对象就是指控件类.× 136.若要禁止窗体被移动,则可设置窗体的 Move 属性为 False 来实现.× 137.MDI 窗体与普通窗体一样可直接在窗体上放置各种控件.× 138.若要设置定时器控件的定时时间,可通过 Value 属性来设置.× 139.可以通过设置列表框属性允许用户从列表框的列表项中同时选择多项,组合 框则无法多 选,但允许用户进行文本输入.√ 140.用 Label1.Caption="你好" 与 Label1 ="你好" 均可以改变标签标题,且结 果完全相 同.√ 141.窗体中需要使用相同类型的控件时 ,使用控件数组可以简化程序 ,节省资源 . √ 142.无需任何操作,VB 的控件工具箱就自动包括了各种标准控件和各种 ActiveX 控件.× 143.计时器(Timer)控件的 Interval 属性设为 1000,Enabled 属性为 False,则每隔 1 秒 的时间就产生一次 Timer 事件.× 144.假定时钟控件 Timer1 的 Interval 属性为 1000,Enabled 属性为 True,并且有 下面的 事件过程,计算机每 1 秒将发出 3 次 Beep 声. √ Private Sub Timer1_Timer() For i = 1 To 3 Beep Next i End Sub 145.定时器控件的时间间隔设为 0 或 Enabled 属性设为 False, 都将停止触发 Timer 事件. √ 146.三个文件系统控件:Drive1 驱动器列表框,Dir1 目录路径列表框和 File1 文件 列表框不 需编写任何程序就可同步协调工作.× 147.在 Visual Basic 中,用来描述一个对象特征的量称之为对象的属性.√ 148.通用对话框(CommonDialog)控件可以分别显示打开 .保存.打印,颜色,字体和 帮助对话 框.√ 149.若要使命令按钮不可见,则可设置 Enabled 属性为 False 来实现. × 150.窗体中的任何控件都允许获得焦点.× 151.在 VB 中访问任何一个文件之前,都必须先打开该文件,然后才能对文件进行 处理.√ 152.用 Open 语句打开文件时,文件名必须用字符串常量表示,而不能使用变量.× 153.任何 VB 工程编译结果都是可执行文件.EXE.× 154.当用 Write # 语句时,文件必须以 Output 或 Append 方式打开.√ 155.用 Append 方式打开 c:\students.dat 文件的语句是:Open "c:\students.dat"

for Append As #1.√ 156.Input # 语句是从文件中读取数据项, Line Input # 读取的是文件中的一行, 而 InputBox 函数要求从键盘输入数据.√ 157.随机文件可以按任意次序读写,每一行或每个记录的长度也可以不相同.× 158.Print #语句与 Print 方法的区别在于,Print #语句写的对象是文件,而 Print 方 法写 的对象是窗体,控件或打印机.√ 159.Visual Basic 中 只 有 通 过 传 统 的 文 件 I/O 语 句 进 行 文 件 处 理 , 如 Open ,Input#, Write#等语句来实现.× 160.DoEvents 将控制权切换到操作环境内核,使后台事件能够得到处理.√ 161.一个 VB 工程中可以存在多个 MDI 窗体.× 162.VB 程序中的菜单可以在 "菜单编辑器"的窗口中进行设计,也可以利用应用 程序向导来 生成.√ 163.VB 应用程序中的下拉菜单和快捷菜单都可用菜单编辑器创建 ,只是设计时, 快捷菜单的 Visible 属性通常设为 Flase,运行时用鼠标所指对象的 PopupMenu 方法弹出.√ 164.用菜单编辑器设计菜单时 , 顶层菜单不能加快捷键 ,但可以在该菜单标题中 的字母前插 入&符号来设置热键.√ 165.由于 VB 只能以解释方式运行,所以运行速度慢.× 166.VB 中打开工程文件时,在资源管理器窗口可以看到工程中所有的文件 ,所以 可以认为工 程文件包括了工程中所有的文件 , 只要保留工程文件即可 ,其他文件可以不必保 留.× 167.在 VB 中编译生成的可执行文件可以直接复制到任何一台安装有 Windows 系统的计算机上 运行.× 168.VB 工程中只能以标准模块中的 Sub Main 过程或所建立的第一个窗体作为 启动对象.× 169.在过程开始放置一条语句 On Error Resume Next, 则当执行该过程并发生 运行错误时, 程序将停在发生错误的语句行,并给出错误提示.× 170.使程序进入中断模式的唯一方法是在程序中设置断点.× 171.在设计时可以设置断点和监视表达式,但其它调试工具只能在中断模式下使 用.√ 172.VB 中访问数据库必须通过数据访问对象 DAO .× 173.在 VB 程序中,如果存在语法错误,则无法通过编译,所以如果通过编译生成了 EXE 文件, 就说明程序中已不存在任何错误.× 174.Office 内嵌的 VBA 和脚本语言 VBScript 都是 VB 的子集√

三,填空题(1-160 题) 1 设 a=2,b=3,表达式 a>b 的值是_______.FALSE|0|零|假|假值|零值 2.在 VB 中声明静态变量的关键字是_______.static 3.在 VB 中声明符号常量的关键字是_______.const 4.表达式 10 MOD 16\4 的值是_______.2 5. 设 A=5,B=6,C=7,D=8, 表达式 3>2*B OR A=C AND BC OR C>D 的值是 _______.False|0| 零|假|假值|零值 6.设 a=6,b=3,c=5,则表达式 Not a>c And c=b Or ba+c 的值为_______.True|真| 真值|-1 7.要强制显式变量声明,须在声明段部分加入语句_______.option explicit 8.设 a=1,b=2,c=3,则 VB6.0 表达式:a 真 9.x 是小于 100 的非负数,描述该条件的布尔(逻辑)表达式是_.x=0|x>=0 and x (x=0)|(x=0|x=0)|(x>=0) and (x=0) and x=0 and (x=0 AND a+c>b+3 OR NOT d 的值是____. False|0|零|假|假值|零值 13.用于声明全局变量的关键字是_______.Public 14."a","T","Z","9",这四个字符中,_______的 ASCII 码值最大.a|"a"|"a"|字符 a| 字 符"a"|字符"a" 15.用 dim abc as variant 定义的变量 abc,其类型是_______.变体类型|变体|变体 型 16.表达式"12345""12345" & "ABC"的值是_______.True|真值|真|-1| 17.设 C="A",写出下列表达式的值. (1)C>="0"And C="A"and c="0"or C="A"or c="0"And C="A"and c<="Z"的 值为_______.True|真值|真|-1 (2)C="9"or c>="A"and c<="Z"的值为_______.True|真值|真|-1 19.在 VB 中,字符型常量应使用_("|双引号|""|""_)将其括起来,日期/时间型常量 应 使用_#|井号|井字号|#号|#字号|##_符号将其括起来. 20.在 VB 中 1.2346E+5,1.2346D+5 四个常数分别表示(Single|单精度|单精度型| 单精度 类型)_____ ,__(Double|双精度|双精度型|双精度类型)_____类型. 21.在窗体上添加一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub 程序运行后 ,单击命令按钮 , 在输入对话框中分别输入 321 和 456, 输出结果为 ___.321456| "321456"|"321456"

22.窗体上有三个文本框 Text1,Text2 和 Text3;有一个命令按钮 Command1,设文 本框 Text1 中的内容为 11,文本框 Text2 中的内容为 22,下面程序的执行结果为___33____. Private Sub Command1_Click() Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text)) Print Val(Text3.Text) End Sub 23.在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub 程序运行后 ,单击命令按钮 , 在输入对话框中分别输入 123 和 456, 输出结果为 _______. 123456|"123456"|"123456" 24.InputBox()函数返回值的数据类型是 __.字符型 |STRING|字符串|字符串类型 | 字符| 字符类型 25. 执 行 语 句 B = MsgBox("XXX","YYY") 后 , 在 消 息 框 中 的 标 题 信 息 是 ___.YYY|"YYY"|"YYY" 26.For-Next 循环的子句缺省时,循环变量每次改变的值是_______.1|+1 27.循环结构中与 While 语句匹配出现的循环结束语句是_______.Wend|wend 语 句|wend 语 句 28.有如下程序: For i=1 to 3 for j=5 to 1 step -1 print i*j next j next i 程序运行后,语句 print i*j 的执行次数为_______.15|15 次|15 次 29.VB 程序的三种基本结构是:顺序,选择和_______.循环|循环结构 30.用语句 Dim A (-3 to 3) as Integer,定义的数组元素个数是___.7|7 个 31. 控 件 数 组 用 下 标 索 引 值 (Index) 来 标 识 各 个 控 件 , 第 一 个 下 标 索 引 号 为 _____.0|0 号|零 |零号 32. 使用数组声明语句 Dim a(3, -2 TO 2, 5), 则数组 a 包含元素的个数有 ___.120|120 个 33.Visual Basic 提供的对数据文件的三种访问方式为随机访问方式 ,_(顺序访问 方式|顺 序文件|顺序|顺序文件访问方式)__和二进制访问方式. 34.在 VB 中,有三种文件访问类型,它们是顺序型,_(随机型|随机类型|随机文件|随

机) ___和二进制型. 35.语句 x=inputbox("请输入数据"),输入 12345,则 x 的值是_("12345"|12345|)__, 其 类型为_(String|字符型|字符串类型|字符串|字符串型|字符|字符类型)_. 36.如果要暂停某个程序的运行,可使用语句_______.stop 37.在 VB 中,用于产生输入对话框的函数是_(InputBox|InputBox())_,其返回值类 型为_ (字符串 |字符串类型 |字符型 |string)_类型 ,若要利用该函数接收数值型的数据 ,则 可利 用__ Val|Val()__函数对其返回值进行转换而得到. 38.表达式 sgn(-25) 的值是_______.-1 39.设 a=6,则执行 x=IIf(a>5,-1,0)后,x 的值为_______.-1 40.设 a=2,b=9,表达式 a^2 > sqr (b)的值是_______.True|真|真值|-1 41.函数 Len(Lcase("abcDEF"))的值是_______.6 42.函数 Len("Hello!"+Space(2)+Mid("Shanghai",5,3))的值是_______.11 43.Int(-8.6)的函数值是_______.-9 44.表达式 Int(1234.555*100+0.5)/100 的结果是_______.1234.56 45.有如下程序段: a$="visual basic programing" b$=".net" c$=left(a$,1) & mid(a$,8,1) & b 运行程序后,则变量 c$的值为_______.vb.net|"vb.net"|"vb.net" 46. 表 达 式 Ucase(Mid("abcdefgh",3,4)) 的 值 是 _______."CDEF"|CDEF|"CDEF" 47.表示 X 是 5 或 7 的倍数的 VB 表达式是_______.X Mod 5 = 0 OR X Mod 7 = 0|X/5=INT(X/5) OR X/7=INT(X/7)|X Mod 7 = 0 OR X Mod 5 = 0|X/7=INT(X/7) OR X/5=INT(X/5)|(X Mod 5 = 0) OR (X Mod 7 = 0)|(X/5=INT(X/5)) OR (X/7=INT(X/7))|(X Mod 7 = 0) OR (X Mod 5 = 0)|(X/7=INT(X/7)) OR (X/5=INT(X/5)) 48.表达式 Len(Chr(65) + Chr(66))的值是____.2 49.表达式 Len(Left("abcd",3) + Right("清华大学",4))的值是____.7 50.执行 A="123" +123 语句后,变量 A 的值是_______.246 51.函数 int(rnd*11)+10 的值的范围是___10___至__20. 52.将标签 Label1 的字体设置成粗体,使用的语句是_. label1.fontbold=true|Label1.fontbold=-1 53.将标签 Label1 的字号设置成 20,使用的语句是____.label1.fontsize = 20 54.如果要时钟控件每一秒钟发生一个 Timer 事件,则 Interval 属性应设置为____. 1000|1000ms|1000 毫秒 55.将名称为 cmd1 的命令按钮设置为不可用,使用语句是_. cmd1.enabled=false|cmd1.enabled=0

56. 如 果 要 设 置 窗 体 form1 的 标 题 为 " 欢 迎 使 用 ", 使 用 的 语 句 是 ___.form1.caption="欢迎 使用" 57.用于返回列表框中列表项的项目总数的属性是_____.listcount 58.若要使文本框 TextBox 的 ScrollBars 属性有效 ,必须将其 _______属性设为 True. multiline 59.若使命令按钮不起作用,应将按钮的_______属性设置为 False.Enabled 60. 若 用 户 单 击 命 令 按 钮 Command1, 则 此 时 将 被 执 行 的 事 件 过 程 名 为 _.command1_click() 61.创建一个 MDI 子窗体,需把一个普通窗体的_______属性设为 True.MDIChild 62.如果列表框的 ListCount 属性为 10,则列表框的最后一项的 ListIndex 值为 _______.9 63.设置 Data 控件所连接的数据源类型,需设置其_______属性.DefaultType 64.复选框的_______属性决定复选框是否被选中.VALUE 65.要使 VB 窗体最大化按钮不可用,应将其_______属性设置为 False.MaxButton 66. 要使标签能够自动调整大小以显示所有内容 , 应将其 _______ 属性设置为 True.AutoSize 67.表示滚动条控件取值范围最大值的属性是_______.MAX 68.Visual Basic 提供了列表框控件,当列表框中的项目较多,超过了列表框的长度 时,系 统会自动在列表框边上加一个_______.垂直滚动条|滚动条 69.将一般窗体转换为 MDI 窗体的子窗体时要把 MDIChild 属性的值设置为 _.True|-1|真值| 真 70.要选中设计窗体上的多个控件,可按住__或 SHIFT 键不放,再单击要选择的控 件.Ctrl| 控制|控制键|Ctrl 键 71.向列表框中添加一个项目的方法名为___.Additem 72. 在 代 码 中 向 图 片 框 加 载 图 片 文 件 时 , 使 用 的 函 数 名 称 是 ____.Loadpicture|loadpicture ()| loadpicture() 73.设置计时器时间间隔属性的单位是______.毫秒|ms 74.假定一个文本框的 Name 属性为 Text1,为了让文本框中显示"Welcome",所使 用的语句 是____. Text1.Text="Welcome"|Text1="Welcome"|Text1.Text="Welcome"|Text1="Welc ome" 75.若要求在文本框中输入密码时,在文本框中只显示#号,则应在此文本框的属性 窗口中设 置___属性值为#.passwordchar 76.如果要使时钟控件每半分钟发出一个 Timer 事件,则时钟控件的 Interval 属性 值为____.

30000 77.若要将窗体 Form1 隐藏起来,调用语句为___.Form1.Hide 78.单选按钮的 Value 属性值若为 True 或-1,表示该按钮____.被选中|选中|已被选 中|被 选取|选取|已被选取|被选择|选择|已被选择|被选|已被选 79.若要设置定时器控件的触发 Timer 事件的时间间隔,可通过_______属性来设 置. Interval 80.复选框的_______属性值设置为 2-Grayed 时,复选框将变为灰色,禁止用户使 用.Value 81.Visual Basic 中有一种控件具有文本框和列表框的特点 ,这种控件是_______. 组合框 |combobox 82. 若要求输入密码时文本框中只显示 * 号 , 则应当在文本框的属性窗口中设置 _______属性. PassWordChar 83.图像框和图片框在使用时有所不同 ,这两个控件中 ,能作为容器容纳其它控件 的是_______ 控件. 图片框|Picturebox|图片框控件|Picturebox 控件 84. 对 于 Text 控 件 Text1, 设 置 Text1.Mulitiline=False,TEXT1.PASSWORDCHAR="*",在该 文 本 框 中 输 入 "ABC103", 则 文 本 框 中 显 示 _______. ******|"******"|"******"|"******" |"******" 85.在窗体上有一个文本框控件,名称为 TxtTime;一个计时器控件,名称为 Timer1, 要求 每隔一秒在文本框中显示一次当前的时间.请补充完整下段代码: Private Sub Timer1_ ____ Timer___() TxtTime.Text = Time End Sub 86.一个控件在窗体上的位置由_______属性和 Top 属性决定.Left 87.从列表框中删除一个项目的方法名为__ removeitem_,删除所有项目的方法名 为_ clear__. 88.为了把窗体 Form1 装入内存,所使用的语句为__ load form1|load__,而为了清 除该窗 体,所使用的语句为___ Unload|unload me|unload form1____. 89.将一个窗体隐藏但仍在内存中所使用的方法是 __ hide__,显示一个隐藏窗体 所使用的方 法是_show_. 90.滚动条响应的常用事件有_ Scroll_和 Change 事件. 91.向列表框添加项目的方法是__ AddItem___,删除列表框中指定选项的方法是

_ RemoveItem__. 92.VB 中有三种不同类型的组合框,可通过其_ Style|style 属性_属性设置. 93.扩展名为.frm 的文件表示__窗体|窗体文件_文件. 94.标准模块文件的扩展名为____.Bas|.bas 95.扩展名为.vbp 的文件是___文件.工程|工程文件|项目|项目文件|Project|project 文件 96.VB 中,错误的类型大致可分为三种 :__编译错误|编译|语法|语法错误_____,运 行时错 误和逻辑错误. 97.Visual Basic 采用__事件__驱动的编程机制,程序员只需要编写响应用户动作 的程序, 而不必考虑按精确次序执行的每个步骤. 98.VB 有 3 种工作模式,即_设计模式|设计_,运行模式和中断模式. 99.VB 有 3 种工作模式,即设计模式,_运行模式|运行_和中断模式. 100.VB 有 3 种工作模式,即设计模式,运行模式和_中断|中断模式_模式. 101.ActiveX 控件的文件的扩展名为___..OCX|OCX 102.如果要将某个菜单项设计为分隔线,则该菜单项的标题应设置为____.-|减号 103.窗体中有一公共对话框 Commondialog1 和一个命令按钮 Command1,当单击 按钮时打开 字体对话框,请将程序补充完整. Private Sub Command1_click() Commondialog1.___Showfont|action=4 End sub 104.设置 Toolbar 控件中按钮上的图像 ,需要将 Toolbar 控件与_____控件相关 联.imagelist 105.在 Visual Basic 中,对象的大多数属性既可以在()窗口设置,也可以通过程序代 码设 置.属性 106.在 Visual Basic 中,对象的_______是用来描述一个对象外部特征的. 属性 107.菜单中的"热键"可通过在热键字母前插入_______符号实现. &|"&" 108.Windows 应用程序的用户界面样式有单文档界面 (SDI)和_______.多文档界 面(MDI)|多 文档界面 MDI|多文档界面 MDI|多文档|多文档 MDI|多文档 MDI|多文档(MDI)| 多文档界面 |MDI|MDI 多文档|MDI 多文档|MDI(多文档) 109.一个 MDI 应用程序,其父窗体有_______个,子窗体可以有若干个.1|一 110. 欲 使 某 项 菜 单 在 运 行 时 不 可 见 , 可 设 置 该 菜 单 对 象 的 _______ 属 性 为 False.Visible|可 见 111.菜单项对象的_______属性控制菜单项是否变灰(失效).Enabled|有效 112.菜单控件只有一个事件,它是_______事件.Click|单击|点击 113.由于程序的结构算法而引起的程序错误是_______错误.逻辑错误|逻辑

114.VB6.0 是基于面向对象的程序设计方法,采用_______驱动的编程机制.事件 115.VB6.0 窗体文件的扩展名是_______..frm|FRM 116.窗体的初始化代码应写在窗体对象的_______事件中.Load|装载事件|装载|初 始化|初始 化事件 117.VB 有三个调试窗口,它们是_______窗口,本地窗口和监视窗口.立即|立即窗 口 118.调用弹出式菜单要使用的方法名称是_______.PopupMenu 119.VB6.0 语句 if button=2 then 的条件成立表示单击鼠标_______键.右|右键 120.显示在菜单项上的信息是菜单的_______属性值.标题 caption|caption 标题 |caption(标题)|标题(caption)|标题|caption 121.对象的属性,事件和_______被称为 Visual Basic 对象的三要素.对象的方法| 方法 122.使用菜单编辑器设计菜单时 ,必须输入的项有标题 caption 和_______.名称 |name|名称 name|name 名称|name 名称|名称 name|名字 123.Visual Basic 的对象主要分为窗体对象和_______对象两大类. 控件|控件对 象 124.Visual Basic 的赋值语句既可给变量赋值 ,也可给对象的 _______赋值 .属性| 属性名 125. 基于 Windows 应用程序的用户界面主要有两大类 , 分别是多文档界面和 _______界面.单 文档界面(SDI)|单文档界面 SDI|单文档界面|SDI|单文档 126.Visual Basic 中的菜单可分为弹出式菜单和_______菜单.下拉|下拉式|下拉菜 单|下拉 式菜单 127.VB 工 程 文 件 的 扩 展 名 为 __.VBP|VBP__, 标 准 模 块 文 件 的 扩 展 名 为 __.BAS|BAS _____,窗体 文件的扩展名为__.FRM|FRM__. 128.执行下面的程序段后,变量 s 的值为___7____. s=5 For i=3 to 5 i=i+1 s=s+1 Next i 129.以下程序段的输出结果是___3____. num=0 While num<=2 num=num+1 Wend Print num 130.执行下面的程序段后,X 的值为___8____. X=5 For I=1 to 10 Step 2

X=X+I\5 Next I 131.执行下面的程序段后,b 的值为___300____. a=300:b=20:t=a a=b:b=t 132.下列程序段的执行结果为___7____. Dim x(3,5) For i=1 to 3 For j=1 to 5 x(i,j)=i+j Next j Next i Print x(3,4) 133.下列程序的执行结果为___-9___. A="1" B="2" A=Val(A)+Val(B) B=Val("12") If AB Then Print A-B Else Print B-A 134.下列程序的执行结果为___2___. A=75 If A>60 Then I=1 If A>70 Then I=2 Print I 135.下列程序的执行结果为___3____. A=75 If A>90 then I=1 ElseIf A>80 Then I=2 ElseIf A>70 Then I=3 ElseIf A>60 Then I=4 End If Print I 136.在窗体上有一个名为 Command1 的命令按钮和一个名为 Text1 的文本 框,程序运行后, Command1 为 禁 用 ( 灰 色 ). 当 向 文 本 框 中 输 入 任 何 字 符 时 , 命 令 按 钮 Command1 变为可用.请 在空白处填入适当的内容,将程序补充完整. Private Sub Form_Load() Command1.Enabled =___ False|0____

End Sub Private Sub Text1_change() Command1.Enabled = True End Sub 137. 当 在 文 本 框 输 入 "ABC" 三 个 字 符 时 , 窗 体 上 显 示 的 是 __ AABABC|"AABABC"|"AABABC" ___. Private Sub Text1_Change() Print Text1; End Sub 138.执行下面的程序段后,b 的值为__100_. a = 100 b = 20 a=a+b b=a-b a=a-b 139.执行以下程序段后,g 的值是__15_____. a$ = "1" b$ = "2" c = Val(a$) + Val(b$) d = Val(a$ + b$) g=c+d 140.执行下列程序段后,变量 X 的值是_130_. X = 100 Y = 30 If X B Print C 143.以下循环的执行次数是___11____. K=0 Do While K<=10 K=K+1 Loop 144.在窗体的 MouseUp 事件中有下列程序代码: Select Case Button Case 1 Print "Ok!" Case 2 Print "Hello!" Case 4 Print "Welcome!" End Select 运 行 此 程 序 , 当 单 击 鼠 标 右 键 时 , 窗 体 显 示 _______.Hello!|"Hello!"|"Hello!"

145. 程 序 中 要 求 弹 出 " 保 存 文 件 " 的 对 话 窗 口 , 如 果 用 通 用 对 话 框 CommonDialog1 来完成, 其语句为_______. commondialog1.showsave|commondialog1.action=2 146.将通用对话框 Commondialog1 的类型设置成"颜色"对话框,可调用该 对话框的_______ 方法.showcolor 147. 在 Visual Basic 中 调 用 各 种 应 用 程 序 的 函 数 名 称 为 _______.Shell|shell()|shell() 函数|shell 函数|shell( )|shell( )函数 148.要使得文件列表框 File1 中只显示文件后缀名为 bmp 和 jpg 的图片文件, 使用的语句为 file1._______="*.bmp;*.jpg".pattern 149.在窗体上画一个列表框 List1 和一个文本框 Text1,然后编写如下两个事 件过程: Private Sub Form_Load () List1.AddItem "办公室" List1.AddItem "政工部" List1.AddItem "财务科" List1.AddItem "学生处" a = list1.listcount List1.listindex=1 Text1.Text= List1.list(list1.listindex) End Sub 程序运行后,a=___4___, Text1.text=_______.政工部|"政工部"|"政 工部" 150.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程: Private Sub Form_Load() Text1.Text="计算机" End Sub Private Sub Text1_Change() Picture1.Print "等级考试" End Sub 151.程序运行后,在文本框中显示的内容是 _计算机|"计算机 "|"计算机 "__, 改变文本框内 容,则图片框中显示的内容是__等级考试|"等级考试"|"等级考试"__. 152.下面是窗体 Form1 的 Click 事件过程,运行时每次单击窗体,窗体均向右 移动 100 缇, 请将程序补充完整. Private Sub _(form_click|form_click()) () _(static)__intleft As Integer intleft=intleft+100 Form1.left=intleft

End Sub 153.在窗体上画一个名称为 Label1 的 标签和一个名称为 List1 的列表框. 程序运行后,在 列表框中添加若干个列表项.当双击列表框中的某个项目时,在标签 Label1 中 显示所选中的 项目,将程序补充完整. Private Sub Form_Load() List1.Additem"西安" List1.Additem"连云港" List1.Additem"南京" end sub Private Sub List1________() DblClick |Dblclick() Label1.Caption=____(2)___ End Sub 答案 (2)List1.Text|List1|Form1.list1.text|me.list.text|Form1.list1 |me.list1|List1.Lis t(List1.listindex) 154.一个工程中包括两个窗体 Form1 和 Form2,启动窗体为 Form1.在 Form1 上 有 一 命 令 按 钮 Command1. 程 序 运 行 后 , 要 求 单 击 命 令 按 钮 时,Form1 窗体消失,显示窗体 Form2,请将 程序补充完整. Private Sub Command1_Click() __ Unload___Form1 Form2.___ Show____ End Sub 155.列表框中项目的序号是从_______开始的.0 156.在过程定义中用_______关键字,可以实现形参按值传递.byval 157.表达式 len("我的英文名 tom")的值是_______.8 158.在一个语句行中写多条语句时 ,每个语句之间用 _______符号分隔 .(:| 冒号|:) 159.一个语句要在下一行继续写 ,用_______符号作为续行符.(_|" _"|下 划线) 160.当运行程序时,系统自动执行启动窗体的_______事件过程.Load|装载 |初始化|load 事件|装载事件 初始化事件|load 事件过程|装载事件过程|初始化事件过程 1. VB6.0 集成开发环境中不能完成的功能是________。 A.输入编辑源程序 B.编译生成可执行程序 C.调试运行程序 D.自动查找并改正程序中的错误 2. Visual Basic 的 MSDN 帮助窗口最明显的特征是________。 A.具有 Windows 风格

B.具有 MicrosoftOffice 应用程序窗口风格 C.保持了浏览器的特征 D.与 Visual Basic 编辑窗口相似 3. 与传统和程序设计语言相比,Visual Basic 最突出的特点是________。 A.结构化程序设计 B.程序开发环境 C.程序调试技术 D.事件驱动编程机制 4. VB6.0 集成开发环境的工作状态有________。 A.一种 B.两种 C.三种 D.四种 5. 在正确安装 Visual Basic 6.0 后,可以通过多种方式启动 Visual Basic。 以下方式中不能启动 VisualBasic 的是________。 A. 通过“开始”菜单中的“程序”命令 B.通过“我的电脑”找到 vb6.exe,双击该文件名 C.通过“开始”菜单中的“运行”命令 D.进入 DOS 方式,执行 vb6.exe 文件 6. Visual Basic 集成环境的大部分窗口都可以从主菜单项________的下拉菜单 中找到相应的打开命令。 A.编辑 B.视图 C.格式 D.调式 7. Visual Basic 的在线帮助窗口是一个与________非常相似的窗口, A.Word 编辑窗口 B.浏览器窗口 C.FoxPro 主界面 D.Windows 资源管理器窗口 8. 下列成员中不属于主窗口的是________ A.最大化按钮 B.状态栏 C.系统菜单 D.工具栏 9. VB6.0 集成开发环境不包括________窗口。 A.DOS 界面窗口 B.窗体窗口 C.代码窗口 D.属性窗口 10. 下列不能打开属性窗口的操作是________。 A.执行“视图”菜单中的“属性窗口”命令 B.单击工具栏上的“属性窗口”按钮

C.按 Ctrl+T 快捷键 D.按 F4 键 11. 下面关于 Visual Basic 6.0 工具栏的说法不正确的是________ A.工具栏的位置可以任意改变 B.工具栏一定在菜单栏的下方 C.工具栏可以显示或隐藏 D.Visual Basic 有多个工具栏 12. 打开 Visual Basic 集成环境后,显示的工具栏是________。 A.编辑工具栏 B.标准工具栏 C.调试工具栏 D.窗体工具栏 13. 用户可通过________模拟屏幕的小图像来布置应用程序。 A. 窗体设计器 B.快捷菜单 C.立即窗口 D.窗口布局窗口 14. 下列可以打开立即窗口的操作是________。 A.Ctrl+D B.Ctrl+E C.Ctrl+F D.Ctrl+G 15. 在设计应用程序时,通过________ 窗口可以查看到应用程序工程中的所 有组成部分。 A.代码窗口 B.窗体设计窗口 C.属性窗口 D.工程资源管理器窗口 16. Visual Basic 中窗体文件的扩展名是________。 A..VBP B..FRM C..VBW D..PDM 17. 在 Visual Basic 中语句的续行符采用 ________。 A.空格与短线 B.短线与空格 C.空格与下划线 D.下划线与空格 18. VB6.0 是一种面向()的编程环境。 A.机器 B.对象 C.过程 D.应用

19. 下列关于 VB 编程的说法中,不正确的是() A.属性是描述对象特征的数据 B.事件是能被对象识别的动作 C.方法指示对象的行为 D.VB 程序采用的运行机制是面向对象 20. 下面关于对象地描述中,()是错误的。 A.对象就是自定义结构变量 B.对象代表正在创建的系统中的一个实体 C.对象是一个特征和操作的封装体 D.对象之间的信息传递是通过消息进行的 22. Visual Basic 是一种面向对象的可视化程序设计语言,采用了( )的编 程机制。 A.事件驱动 B.按过程顺序执行 C.从主程序开始执行 D.按模块顺序执行 23. 在 Visual Basic 中最基本的对象是( ),它是应用程序的基石,是其他 控件的容器。 A.文本框 B.命令按钮 C.窗体 D.标签 24. 多窗体程序是由多个窗体组成的。在默认情况下,VB 在应用程序执行时, 总是把( )制定为启动窗体。 A.不包含任何控件的窗体 B.设计时的第一个窗体 C.包含控件最多的窗体 D.命令为 Form 的窗体 25. 有程序代码如下: Text1.Text=”Text1.Text” 则 Text1、Text、”Text1.Text”分别代表( ) A.对象、值、属性 B.对象、方法、属性 C.对象、属性、值 D.属性、对象、值 26. 对于窗体,( )属性在程序运行时其属性设置不起作用。 A.MaxButton B.BorderStyle C.Name D.Left 27. 当运行程序时,系统自动执行启动窗体的( )事件过程。 A.load B.Click

C.Unload D.GotFocus 28. 若要使标签控制显示时不覆盖其背景内容,要对()属性进行设置。 A.BlackColor B.BorderStyle C.ForeColor D.BackStyle 29. 若要使命令按钮不可操作,要对()属性进行设置。 A.Enabled B.Visible C.BackColor D.Caption 30. 文本框没有()属性。 A.Enabled B.Visible C.BackColor D.Caption 31. 不论何控件,共同具有的属性是() A.Text B.Name C.foreColor D.Caption 32. 要使 Form1 窗体的标题栏显示“欢迎使用 VB”,以下()语句是正确的。 A.Form1.caption=“欢迎使用 VB” B.Form1.caption=’ 欢迎使用 VB’ C.Form1.caption=欢迎使用 VB D.Form1.caption=’’ 欢迎使用 VB’’ 33. 要使某控件在运行时不可显示,应对()属性进行设置。 A.Enabled B.Visible C.BackColor D.Caption 34. 要使窗体在运行时不可改变窗体的大小和没有最大化和最小化按钮,只要 对()属性设置就有效。 A.MaxButton B.BorderStyle C.Width D.MinButton 35. 文本框的 Scrollbars 属性设置了非零值,却没有效果,原因是() A.文本框中没有内容 B.文本框的 MultiLine 属性为 False C.文本框的 MultiLine 属性为 Ture D.文本框的 Locked 属性为 Ture 36. 要判断在文本框是否按下 Enter 键,映在文本框的()事件中判断。

A.Change B.KeyDown C.Click D.KeyPress 37. 在 VB 集成环境创建 VB 应用程序时,除了工具窗口、窗体中的窗口、属性 窗口外,必不可少的窗口是() A.窗体布局窗口 B.立即窗口 C.代码窗口 D.监视窗口 39. 将调试通过的工程经“文件”菜单的“生成.exe 文件”编译成.exe 文件 后,该可执行文件到其他机器上不能运行的主要原因是() A.运行的机器上无 VB 系统 B.缺少.frm 窗体文件 C.该可执行文件有病毒 D.以上原因都不对 40. 当需要上下文帮助时,选择要帮助的“难题”,然后按()键,就可出现 MSDN 窗口及显示所需“难题”的帮助信息。 A.Help B.F10 C.Esc D.F1 41. 一下叙述错误的是_____。 A.打开一个工程文件时,系统自动装入与该工程有关的窗体等文件。 B.打开一个窗体文件时,系统自动装入与该窗体有关的工程文件。 C.保存 VB 应用程序时,应分别保存窗体文件和工程文件 D.事件可以由用户激发,也可以由系统激发 42. 退出 VB6.0 的快捷键是________。 A.Ctrl+Q B.Alt+Q C.Alt+A D.Ctrl+A 43. 使用“上下文相关帮助”的操作方法是:选择一个对象或关键字,然后按 下________。 A.F1 B.F2 C.F3 D.F4 44. 运行 Visual Basic 应用程序生成的可执行文件的方法是________ A.单击 Windows”开始”菜单中的“运行” 命令 B.单击 Visual Basic 工具栏的“启动”按钮 C.单击 Visual Basic“运行”菜单中的“启动”命令 D.按下 F5 功能键

45. 下列叙述中正确的是________。 A.Visual Basic 与 Basic 没有什么不同 B.Visual Basic 与 Basic 的编程机制不同 C.Visual Basic 是过程设计语言 D.Ⅵsual Basic 与 Basic 两种之间没有什么联系 46. 下面哪个语句执行后,窗体 Form1 从内存退出________。 A.UnLoad.Form1 B.Load.Form1 C.Forml.Hide D.Forml.Visiable=False 47. 对象可以识别和响应的某些行为称为________。 A.属性 B.方法 C.继承 D.事件 48. "对象"是计算机系统运行的________ 。 A.程序单位 B.逻辑单位 C.物理实体 D.基本实体 49. 事件的名称________。 A.都要由用户定义 B.有的由有用户定,有的由系统定义 C.都是由系统预先定义 D.是不固定的 50. 在 Visual Basic 中,称对象的数据为________。 A.属性 B.方法 C.事件 D.封装 51. VB6.0 是一种面向________的编程环境。 A.机器 B.对象 C.过程 D.应用 52. 下列关于 VB 编程的说法中,不正确的是________。 A.属性是描述对象特征的数据 B.事件是能被对象识别的动作 C.方法指示对象的行为 D.VB 程序采用的运行机制是面向对象 53. 下面关于对象的描述中,________是错误的。 A.对象就是自定义结构变量 B.对象代表正在创建的系统中的一个实体

C.对象是一个特征和操作的封装体 D.对象之间的信息传递是通过消息进行的 54. 如果在窗体上已经创建了一个文本框对象 Text1, 可以通过________事件获 得输入键值的 ASCII 码。 A.Change B.LostFocus C.KeyPress D.GotFocus 73. 关于 Visual Basic“方法”的概念错误的是________。 A.方法是对象的一部分 B.方法是预先定义好的操作 C.方法是对事件的响应 D.方法用于完成某些特定的功能 74. Visual Basic 是一种面向对象的程序设计语言,构成对象的三要素是 ________。 A.属性、控件和方法 B.属性、事件和方法 C.窗体、控件和过程 D.控件、过程和模块 75. 为了在按下回车键时执行某个命令按钮的事件过程,需要把该命令按钮的 一个属性设置为 True,这个属性是________ 。 A.Value B.Default C.Cancel D.Engbled 76. 若要将某命令按钮设置为默认命令按钮。则应设置为 true 的属性是 ________ A.Value B.Cancel C.Default D.Enabled 78. 若要使用户不能修改文本框 TextBoxl 中显示的内容, 应设置________属性。 A.Locked B.MultiLine C.PassWordChar D.ScrollBar 79. 确定一个窗体或控件大小的属性是________。 A.Width 或 Height B.Width 和 Height C.Top 或 Left D.Top 和 Left 81. 要使标签能够显示所需要的文本,则在程序中应设置________属性的值。 A.Caption B.Text

C.Name D.AutoSize 82. 设置标签边框的属性是________。 A.BorderStyle B.BackStyle C.AutoSize D.Alignment 83. 若要求从文本框中输入密码时在文本框中只显示*号,则应当在此文本框的 属性窗口设置________ A.Text 属性值为* B.Caption 属性值为* C.password 属性值为空 D.Passwordchar 属性值为* 85. 标签控件能够显示文本信息,文本内容只能用________属性来设置。 A.Alignment B.Caption C.Visible D.BorderStyle 86. 要求改变窗体的标题时,应当在属性中设置的属性是________ A.Caption B.Name C.Text D.Label 87. 设置命令按钮的标题文字时,应改变的属性是________。 A.text B.Name C.Caption D..(名称) 88. 窗体的 Caption 属性的作用是________ A.确定窗体的名称 B.确定窗体的标题 C.确定窗体的边界类型 D.确定窗体的字体 89. 常用控件的 Style 属性值是________。 A.字符常量 B.逻辑常量 C.数值常量 D.日期常量 90. 如果要在文本框中输入字符时,只显示某个字符,如星号(*),应设置文本 框的________属性。 A.Caption B.PasswordChar C.Text D.Char

91. 能够获得一个文本框中被选取文本的内容的属性是________。 A.Text B.Length C.Seltext D.SelStart 92. 下面四个选项,不是窗体属性的是________。 A.MinButton B.MaxButton C.Caption D.Load 93. 假定窗体的名称(Name 属性)为 Form1,则把窗体的标题设置为“VBTest” 的语句为________。 A.Form1="VBTest" B.Caption="VBTest" C.Form1.Text="VBTest" D.Form1.Name="VBTest" 94. 在窗体上画一个名称为 text1 的文本框和一个名称为 label1 的标签,要求 如下程序运行时,在文本框中输入的内容立即在标签中显示,在下划线上填入 的内容是________。 Private Sub Text1_________ Label1.Caption=Text1.Text EndSub A.Focus B.Click C.Change D.LostFocus 95. 要使一个命令按钮成为图形命令按钮,则应设置其哪一属性值________。 A.Picture B.Style C.DownPicture D.DisabledPicture 96. 把窗体设置为不可见的,应该将________属性设置为 False。 A.Font B.Caption C.Enable D.Visible 97. 能够改变窗体边框线类型的属性是________ A.FontSyle B.BorderStyle C.BackStyle D.Border 98. 决定控件上文字的字体、字形、字号、效果的属性是________。 A.Text B.Caption

C.Name D.Font 99. 将文本框的________属性设置为 True 时,文本框可以输入或显示多行文本,且会在输入的内容超出文本框的宽度时 自动换行。 A.MultiLine B.ScrollBars C.Text D.Enabled 100. 通过文本框的________属性可以获得当前插入点所在的位置。 A.PositiOn B.SelStart C.SelLength D.Left 101. 使标签所在处显示背景,应把 BackStyle 属性设置为________ A.0 B.1 C.True D.False ‘’’’’’’‘’’’’’’102. 程序启动未执行任何操作前,为了在按下 回车键时执行某个命令按钮的事件过程,需要把该命令按钮的一个属性设置为 Ture,这个属性是________。 A.Value B.Default C.Cancel D.Enabled 103. 当标签的标题内容太长,需要根据标题自动调整标签的大小时,应设置标 签的________属性为 True。 A.AutoSize B.WordWrap C.Enabled D.Visible 104. 要使菜单项 MenuOne 在程序运行时失效,使用的语句是________。 A.MenuOne.Visible=True B.MenuOne.Visible=False C.MenuOne.Enabled=True D.MenuOne.Enabled=False 105. 下列说法有错误的是________。 A.默认情况下,属性 Visible 的值为 False B.如果设置控件的 Visible 属性为 False,则运行时控件会隐藏 C.Visible 的值可设为 True 或者 False D.设置 Visible 属性同设置 Enabled 属性的功能是相同的,都是使控件处于 失效状态 106. 若要设置文本框中所显示的文本颜色,使用的属性是________。

A.BackColor B.FillColor C.ForeColor D.BackStyle 107. Label 控件中内容能垂直方向变化而宽度保持不变则应设置________属性 A.Wordwrap B.Enabled C.Locked D.AutoSize 108. 要使一个命令按钮成为图形命令按钮,则应设置的属性是________。 A.Picture B.Style C.LoadPicture D.DisabledPicture 111. 窗体上有一个名为 Labell 的标签,为了使该标签透明并且没有边框,正 确的属性设置为________ A.Label1.BackStyle=0 Label1.BorderStyle=0 B.Label1.BackStyle=1 Label1.BorderStyle=1 C.Label1.BackStyle=true Label1.BorderStyle=true D.Label1.BackStyle=False Label1.BorderStyle=False 000000000000000112. 我们可以在设计时(属性窗口中)和运行时(程序代码中) 设置属性的属性值,以下关于 属性设置的说法正确的是________。 A.在属性窗口中可以设置所有属性的属性值 B.在程序代码中可以设置所有属性的属性值 C.属性的名称由 VB 事先定义,用户不能改变 D.所有对象的属性都是可见的 113. 如果要将窗体中的某个命令按钮设置成无效状态,应该设置命令按钮的 ________属性。 A.Value B.Visible C.Enabled D.Default 116. 使图形能自动按控件大小而改变的控件是________ A.图片框 B.图象框 C.标签框 D.框架 117. 能够将文本框控件隐藏起来的属性是________ A.Clear B.VisibLe C.Hide D.New

118. 窗体上有一个按钮和一个文本框,程序执行后,在文本框中输入 12345, 单击按钮后的输 出结果为________。 Private Sub Commandl_Click() Dim A As Integer,B As Integer Textl.SelStart=2 Textl.SelLength=2 A=Val(Textl.SelText) B=Len(Textl.Text) Print A*B End Sub A.68 B.115 C.170 D.1170 119. 对象.cls 方法对________控件有效。 A.窗体、图像框 B.窗体、图片框 C.屏幕、窗体 D.图像框、图片框 120. 运行以下程序,输出结果是________。 For I=1 To 3 cls Print"I=",I; Next i A.123 B.3 C.I=1 I=2 I=3 D.I= 3 121. Cls 方法可以清除窗体或图片框中的________内容。 A.在设计阶段使用 Picture 属性设置的背景位图 B.在设计阶段放置的控件 C.在运行阶段产生的图形和文字 D.其他全部内容 122. 在窗体上画一个名称为 TextA 的文本框,然后编写如下的事件过程: Private Sub TextA_KeyPress(key Ascii As Integer) ? End Sub 若焦点位于文本框中,则能够触发 KeyPress 事件的操作是________。 A.单击鼠标 B.双击文本框 C.鼠标滑过文本框 D.按下键盘上的某个键 123. 运行时,当用户向文本框输入新的内

容,或在程序代码中对文本框的 Text 属性进行赋值从而改变了文本框的 Text 属性时,将触发文本框的________事件。 A.Click B.Dbl Click C.GotFocus D.Change ??????124. 在 DblClick 事件发生时,不会同时发生的事件是________ 。 A.MouseDown B.MouseUp C.Click D.Change 125. 在窗体上画一个文本框,其名称为 Text1,然后编写如下事件过程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String,n As Integer Str=UCase(Chr(KeyAscii) n=Len(str) Text1=String(n,str) End Sub 程序运行后,如果在键盘上输入单字母“k”,则在文本框 Text1 中显示的内容 为________。 A.kk B.kK C.KK D.Kk 126. 在文本框中,当用户键入一个字符时,能同时引发的事件的是________ A.KeyPress 和 Click B.KeyPress 和 LostFocus C.KeyPress 和 Change D.Change 和 LostFocus 127. 通过文本框的________事件过程可以获取文本框中输入字符的 ASCII 码 值。 A.Change B.GotFocus C.LostFocus D.KeyPress 128. 在设计阶段,双击窗体 Form1 的空白处,打开代码窗口,显示________事 件过程模板。 A.Form_Click B.Form_Load C.Form1_Click D.Form1_Load 130. 在运行阶段,要在文本框 Text1 获得焦点时选中文本框中的所有内容,则 对应的事件过程是________。

A.Private Sub Text1_GotFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) EndSub B.Private Sub Text1_LosFocus() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) End Sub C.Private Sub Text1_Change() Text1.SelStart=0 Text1.SelLength=Len(Text1.Text) EndSub D.Private Sub Text1_SetFocus() Text1.SelStart=0 Text1.SelLength = Len(Text1.Text) EndSub ???????????132. 下列各种窗体事件中,不能由用户触发的事件是________。 A.Load 事件和 Unload 事件 B.Click 事件和 Unload 事件 C. Click 事件和 DblClick 事件 D.Load 事件和 Initialize 事件 133. 在运行程序时,在文本框中输入新的内容,或在程序代码中改变 Text 的 属性值,相应会触发到________事件。 A.GotFocus B.Click C.Change D.DblClick 136. 在窗体上画一个文本框(其 Name 属性为 Text1),然后编写如下事件过程: Private Sub Form_Load() Text1.Text=”” Text1.SetFocus For i=1 To 9 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是________ A.出错(无效的过程调用或参数) B.在文本框 Text1 中输出 45 C.在文本框 Text1 中输出 0 D.在文本框 Text1 中输出不定值 137. 设在菜单编辑器中定义了一个菜单项,名为 menu1。为了在运行时隐藏该 菜单项,应使用的语句是________ A.menu1.Enabled=True

B.menu1.Enabled=false C.menu1.Visible=True D.menu1.Visible=False ????????????????138. 运行一个尚未存盘的程序,将会________。 A.程序不能运行,但不出现错误信息 B.程序不能运行,并且出现错误信息 C.系统自动将程序存盘后运行程序 D.系统弹出保存工程对话框,用户应答后再运行程序 139. 保存一个工程至少应保存两个文件,这两个文件分别是________。 A.文本文件和工程文件 B.窗体文件和工程文件 C.窗体文件和标准模块文件 D.类模块文件和工程文件 140. 应用程序设计完成后,应将程序保存,保存的过程是________。 A.只保存窗体文件即可 B.只保存工程文件即可 C.先保存工程文件,之后还要保存窗体文件 D.先保存窗体文件(或标准模块文件),之后还要保存工程文件 142. 保存新建的工程时,默认的路径是________ A.My Documents B.VB98 C.\ D.Windows 143. 双击窗体中的对象后,Visual Basic 将显示的窗口是________ A.项目(工程)窗口 B.工具箱 C.代码窗口 D.属性窗口 144. Visual Basic 一共有设计、运行和中断三种模式,要使用调试工具应该 ________ A.进入设计模式 B.进入运行模式 C.进入中断模式 D.不用进入任何模式 145. 在代码编辑器中,如果一条语句太长,无法在一行内写下(不包括注释), 要折行书写, 可以在行末使用续行字符________,表示下一行是当前行的继续。 A.一个空格加一划字符(_) B.一个划字符(_) C.直接回车 D.一个空格加一个连字符(_) 146. 在一行内写多条语句时,语句之间要用某个符号分隔。这个符号是 ________。 A. .

B. ; C. 、 D.: 147. 不能脱离控件(包括客体)而独立存在的 过程是________。 A.事件过程 B.通用过程 C.Sub 过程 D.函数过程 148. 下面是窗体 Form1 的 Click 事件过程,实现运行时每次单击窗体,窗体均 向右移动 100 的是________。 Static Intleft As Integer Intleft=Intleft+100 Form1.Left=intleft A.Form1_Click() B.Form_Click() C.Command_Click() D.Command1_Click() 149. 在设计程序时,应采纳的原则之一是________。 A.不限制 goto 语句的使用 B.减少或取消注解行 C.程序越短越好 D.程序结构应有助于读者理解 150. 下列叙述中正确的是________。 A.事件过程都要由用户编写 B.事件过程都不是用户编写的 C.事件过程有的由用户编写,有的由系统确定 D.用户可以确定事件方法过程是否由用户编写 151. 为使 Print 方法在 Form_Load 事件中起作用,可以对以下________属性进 行设置。 A.AutoReDraw B.BackColor C.Moveable D.Caption 153. 运行以下程序后,输出的结果是________ Print”中国” Font=”隶书” Print”人民” Font=”仿宋” Print”万岁 “ Font=”宋体” A.中国(默认字体)

人民(默认字体) 万岁!(默认字体) B.中国(默认字体) 人民(仿宋) 万岁!(宋体) C.中国(默认字体) 人民(隶书) 万岁!(仿宋) D.中国隶书(默认字体) 人民(仿宋) 万岁!(仿宋) D.GotFocus 155. 在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序: Private Sub Command1_Click() Dim i As Integer,j As Integer Dim a(10,10) As Integer For i=1 To 3 For j=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j); Next j print Next i End Sub 程序运行后,单击命令按钮,窗体上显示的是________ A.1 2 3 2 4 6 3 6 9 B.2 3 4 3 4 5 4 5 6 C.1 4 7 2 5 8 3 6 9 D.1 2 3 4 5 6 7 8 9 156. 以下能够触发文本框 Change 事件的操作是________ A.文本框失去焦点 B.文本框获得焦点 C.设置文本框的焦点 D.改变文本框的内容 158. 以下________操作不能打开属性窗口。 A.按下 F4 键

B.单击工具栏上的“属性窗口”按钮 C.执行“视图”菜单中的“属性窗口”命令 D.双击任何一个对象 159. 茬窗体上添加一个文本框,名为 text1,然后编写如下的 load 事件过程, 则程序的运行结果是________。 Private Sub Form_Load Text1.Text=““ Text1.SetFocus For k=1 to 5 t=t*k Next k Text1.Text=t End Sub A.在文本框中显示 120 B.文本框中仍为空 C.在文本框中显示 1 D.出错 160. 定义货币类型数据应该用关键字________。 A.Single B.Double C.Currency D.Boolean ??????????161. 如果想在程序中反复使用一个日期型数据“01/01/2005”, 为了避免在编写程序时反复输入这个数据,也为了一次能够修改程序中所有用 到这个数据的语句,可以采用________。 A.将这个数据声明为字符串型常量,用一个常量标识符代表它 B.将这个数据声明为字符串型变量,用一个变量标识符表示它 C.将这个数据声明为日期型常量,用一个常量标识符代表它 D.将这个数据声明为日期型变量,用一个变量标识符表示它 162. 用户自定义数据类型时,其成员不能是________ A.定长字符串和数组 B.变长字符串 C.货币型和日期型 D.变长字符串和货币型 163. 下列选项中,为字符串常量的是________。 A.6/12/2001 B."6/12/2001" C.#6,12,2001# D.6,12,2001# 164. 下面________不是字符串常量。 A."你好" B."" C."True" D.#False#

165. 如果一个变量未经定义就直接使用,则该变量的类型为________。 A.Integer B.Byte C.Boolean D.Variant 166. InputBox 函数返回值的类型为________. A.数值 B.字符串 C.变体 D.数值或字符串 (视输入的数据而定) 167. 下面程序运行后,输出结果是________。 Dim zxs As Integer zxs%=232 zxs=232.32 Print zxs%;zxs A.232 232032 B.232 232 C.232.32 2232 .32 D.显示出错信息 168. 下列定义语句中不能定义为字符型数据的是________ 。 A.Defstr C B.C C.Static C As String D.Dim C As Single 169. 如果将布尔常量值 True 赋值给一个整型变量,则整型变量的值为 ________ 。 A.0 B.-1 C.True D.False 170. Detetime 是 Data 类型的变量,以下赋值语句中错误的是________ A.Datetime=#8/8/99 B.Datetime=#September 1,1997# C.Datetime=#12:15:00 AM# D.Datetime=#4/14/97# 171. 货币型数据需________字节内存容量。 A.2 B.4 C.6 D.8 172. 在表示长整数时,可作为长整数尾部符号的是________。 A.# B.!

C.& D.$ 173. 下面________是不合法的整常数。 A.100 B.&O100 C.&H100 D.%100 174. 下面________是合法的字符常数。 A.ABC$ B."ABC" C.‘ABC’ D.ABC 175. 下面________是合法单精度型变量。 A.num! B.sum% C.xinte$ D.mm# 176. 下面________是不合法的单精度常数。 A.100! B.100.0 C.1E+2 D.100.0D+2 177. 若要处理一个值为 50000 的整数,应采用哪种 VB 基本数据类型描述更合 法?________ A.Integer B.Long C.Single D.String 178. 假设变量 intVar 是一个整型变量, 则执行赋值语句 intVar=”2”+3 之后, 变量 intVar 的值是 ________。 A.2 B.3 C.5 D.23 179. 数值型数据包括________两种。 A.整型和长整型 B.整型和浮点型 C.单精度型和双精度型 D.整型实型和货币型 180. 在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1),然后编写如下两个事件过程: Private Sub Command1_Click() a=Text1.Text + Text2.Text Print a

End Sub Private Sub Form_Load() Text1.Text=““ Text2.Text=““ End Sub 程序运行后,在第一个文本框(Text1)和第二个文本框(Text2)中分别输 入 78 和 87, 然后单击命令按钮,则输出结果为________ 。 A.165 B.8778 C.7788 D.7887 181. 数学表达式 3≤x<10 在 VB 中的逻辑表达式为________。 A.3<=x<10 B.3<=x AND x<10 C.x>=3 OR x<10 D.3<=x AND <10 182. 下面________是合法的变量名。 A.X_yz B.123abc C.integer D.X-Y 183. 下列叙述中不正确的是________。 A.变量名可以包含小数点或者内嵌的类型声明字符 B.变量名的长度不超过 255 个字符 C.变量名的第一字符必须是字母 D.变量名不能使用关键字 184. 下列________字符串不能作为 VB 中的变量名。 A.ABCDEFG B.P000000 C.89TWDDFF D.XYZ 185. 要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句 ________ A.Option Base0 B.Option Explicit C.Option Basel D.Option Compare 186. 下列符号________是 Visual Basic 中的合法变量名。 A.x23 B.8xy C.END D.X8[B] 187. 声明一个变量为局部变量应该用 ________

A.Global B.Private C.Static D.Public 188. 下列各组变量声明正确的是________ A.Dim abc as integer,num as single B.Dim I%,N$ as integer C.Dim a%,b%,c%,a$ D.public dim n% 189. 以下能作为 Visual Basic 变量名的是________ A.E1 B.12-E C.E-12 D.12.5 190. 对变量名说法不正确的是________。 A.必须是字母开头,不能是数字或其他字符 B.不能是 Visual Basic 的保留字 C.可以包含字母、数字、下划线和标点符号 D.不能超过 255 个字符 191. 如果要在任何新建的模块中自动插入 Option Explicit 语句,则应采用下 列________ 操作步骤 A.在“工具”菜单中选取“选项”命令,打开选项对话框,单击“编辑器选 项卡”选中“要求变量声明”选项 B.在“编辑 ”菜单中执行“插入文件”命令 C.在“工程”菜单中执行“添加文件”命令 D.其他操作均不对 192. Option Explicit 语句不可以放在________ A.窗体模块的声明段中 B.标准模块的声明段中 C.类模块的声明段中 D.任何事件过程中 193. 下列________ 符号不能作为 VB 中的变量名。 A.ABCabe B.b1234 C.28wed D.crud 194. \、/、Mod、* 4 个算术运算符中,优先级别最低的是________。 A.\ B./ C.Mod D.* 195. 以下关系表达式中,其值为 False 的是________。 A."ABC">"AbC"

B."男">"女" C."BASIC"=UCase("basic") D."123"<"23" 196. 下面正确的赋值语句是________。 A.x+y=30 B.y=π *r*r C.y=x+30 D.3y=x 197. 赋值语句: a=123 + Mid ("123456",3,2) 执行后, a 变量中的值是________。 A."12334" B.123 C.12334 D.157 198. 赋值语句:a=123 & Mid("123456",3,2)执行后,a 变量的值是________。 A."12334" B.123 C.12334 D.157 199. 表达式 16 / 4 - 2 ^ 5 * 8 / 4 MOD 5 \ 2 的值为________。 A.14 B.4 C.20 D.2 200. Int(198.555*100+0.5)/100 的值________。 A.198 B.199.6 C.198.56 D.200 201. 已知 A$="12345678",则表达式 Val(Left$(A$,4)+Mid$(A$,4,2))的值 为________。 A.123456 B.123445 C.8 D.6 202. 选拔身高 T 超过 1.7 米且体重 w 小于 62.5 公斤的人,表示该条件的布尔 表达式为________。 A.T>:1.7 And W<=62.5 B.T<=1.7 Or W>=62.5 C.T>1.7 And w<62.5 D.T=I.7 Or W>62.5 203. 表达式 12000+“129” & 200 的值是________。 A. 12329 B.“12129200” C.“12000129200”

D.“12329” 204. 设 A:”12345678”,则表达式 Val(Left(A,4)+Mid(A,4,2))的值为 ________。 A.123456 B.123445 C.8 D.6 205. 表达式 Val(”.123E2”)的值________ A.123 B.12.3 C.0 D.123e2CD 206. 下面四个语句中,输出逻辑为“真”的是________。 A.Print Not(3+5<4+6) B.Print 2>1 And 3<2 C.Print 1>2 0r 2>3 D.Print Not(1>2) 207. 表达式 2*3^2+2*8/4+3^2 的值为:________。 A.64 B.31 C.49 D.22 208. 设 a=3,b=5,则以下表达式值为真的是________。 A.a>=b And b>10 B.(a>b)Or(b>0) C.(a<0)Eqv(b>0) D.(-3+5>a)And(b>0) 209. 语句 Print Sgn(-5.1^2)+Abs((Int(-5.1^2))的输出结果是________。 A.52.2 B.25.01 C.26 D.28 210. 如果 X 是一个正的实数,将千分位四舍五入,保留两位小数的表达式是 ________。 A.0.01*Int(X+0.05) B.0.01*Int(100*X+0.005) C.0.01*Int(100*(X+0.05)) D.0.01*Int(X+0.005) 211. 不能正确表示条件“两个整型变量 A 和 B 之一为 0,但不能同时为 0”的 布尔表达式是 ________。 A.A*B=0 and A+B<>0 B.(A=0 or B=0)and(A<>O or B<>0) C.not(A=0 And B=0)and(A=O or B=0)

D.A*B=0 and (A=0 or B=0) 212. 下面表达式中,________的运算结果与其他三个不同。 A.Exp(-3.5) B.Int(-3.5)+0.5 C.-Abs(-3.5) D.Sgn(-3.5)-2.5 213. 设有如下变量声明: Dim TestDate As Date 为变量 TestDate 正确赋值的表达方式是________ A.TestDate=#1/2002# B.TesDate=#”1/1/2002”# C.TesDate=date(”1/1/2002”) D.TesDate=Format(”m/d/yy","1/1/2002”) 214. 设有如下变量声明 Dim timel As Date,为变量 timel 正确赋值的表达式 是________。 A.timel=#11:34:04# B.timel=Format(Time,”yy:mm:dd”) C.timel= #”11:34:04”# D.timel=Format(”hh:mm:ss”,Time) 215. 表达式 2+3*4^5-Sin(x+1)/2 中最先进行的运算________。 A.4^5 B.3*4 C.x+1 D.Sin() 216. 表达式 Str(Len("123"))+Str(77.7)的值为________。 A.377.7 B.3 77.7 C.80.7 D.12377.7 217. 下列事件过程运行后输出结果是________o Private Sub Command1_Clcik() Print 25 Mod (1-2^3) End Sub A.4 B.-4 C.0 D.-0 218. 表达式 Int(8*sqr(36)*10^(-2)*10+0.5)/10 的值是________ A. 0.48 B.0.048 C.0.5 D.0.05 219. 数学表达式 sin25゜写成 Visual Basic 表达式是________。

A.sin25 B.sin(25) C.sin(25゜) D.sin(25*3.14/180) 220. 下列表达式中,________的值为 false。 A.”BCD”<”BCE” B.”12345”<>” 12345”&”ABC C.Not 2*5=10 D.4=4 and 5>2+2 221. 如果 X 是一个正的实数,将千分位四舍五入,保留两位小数的表达式是 ________ A.0.01*Int(X+O.05) B.O.01*Int(100*(X+0.005)) C.0.01*Int(100*(X+O.05)) D.0.01*Int(X+0.005) 222. 产生[10,37]之间的随机整数的 Visual Basic 表达式是________。 A.Int(Rnd(1)*27)+10 B.Int(Rnd(1)*28)+10 C.Int(Rnd(1)*27)+11 D.Int(Rnd(1)*28)+11 223. 下列程序运行时,若输入 123,将输出________。 Private Sub Command1_Click() X1=InputBox(”请输入”) Print X1+123 End Sub A.123123 B.246 C.123 D.显示出错信息 224. 将任意一个正的两位数 N 的个位数与十位数对换的表达式为________。 A.(n-int(n/10)*10)*10+int(n/10 B.N-Int(N)/10*10+Int(N)/10 C.Int(N/10)+(N-Int(N/10)) D.(N-Int(N/10)*10+Int(N/10) 225. 下列哪个是满足要求的正确表达式: 年龄在 20 到 60(包括年龄 20 和 60 在 内)或工资少于 500 的女职工________。 A.” 20<=年龄<=60 and 工资<500 or 性别=”女 B.20<年龄<60 and 工资<500 or 性别=”女” C.20<年龄 and 年龄<60 or 工资<500 and 性别=”女” D.(20<=年龄 and 年龄<=60 or 工资<500)and 性别=”女” 226. 将任意一个正的两位数 N 的个位数与十位数对换的表达式为________ A.(N-Int(N/10)*10)*10+Int(N/10) B.N-Int(N)/10*10+Int(N)/10 C.Int(N/10)+(N-Int(N/1 0))

D.(N-Int(N/10)* 10+Int(N/10) 227. 满足“当 X 的值是偶数时为真,奇数时为假”要求的表达式是________ A.X Mod 2=0 B.Not X Mod 2<>0 C.(x\2*2-x)=O D.Not (x Mod 2) 228. 表达式”Turbo”+”C”的值是________。 A.True B.False C.Null D.出错信息 229. 求一个三位正整数 N 的十位数的正确方法是________。 A.Int(N/10)-Int(N/100)*10 B.Int(N/10)-Int(N/100) C.N-Int(N/100)*100 D.Int(N-Int(N/100)*100) 230. 表达式 Int(Rnd(0)+1)+Int(Rnd(1)-1)的值为________。 A.1 B.0 C.-1 D.2 231. 下列能正确输出 2,345.67 的语句是________。 A.Print Format$(2345.668,”00000.00”) B.Print Format$ (2345.668,”#,###.##”) C.Print Format$ (2345.668.“ 0,0000.00 ”) D.Print Format$ (2345.668,“,#####.##“) 232. 产生【10,37】之间的随机整数的 Visual Basic 表达式是________。 A.Int(Rnd(1)*27)+10 B.Int(Rnd(1)*28)+10 C.Int(Rnd(1)*27)+11 D.Int(Rnd(1)*28)+11 233. 模拟方形骰子投掷的表达式是________。 A.Int(6*Rnd(1)) B.Int(1+6*Rnd(1)) C.Int(6*Rnd(1)-1) D.Int(7*Rnd(1)-1) 234. 表达式 X+1>X 是________。 A.算术表达式 B.非法表达式 C.字符串表达式 D.关系表达式 235. 表达式(7\3+1)*(18/5-1)的值是________ A.8.67 B.7.8

C.6 D.6.67 236. 下列表达式的值为 2123 的是________。 A.Val(”123asd”)&2000 B.Val(“123asd”)+2000 C.Str(123)&”742000 ” D.Str(123)+”2000 ” 237. 下列表达式的值为 2123 的是________。 A.Val(”123asd”)&2000 B.Val(“123asd”)+2000 C.Str(123)&”742000 ” D.Str(123)+”2000 ” 238. 表达式 3^2*2+3 MOD 10\4 的值是________。 A.18 B.1 C.19 D.0 239. 下列能正确产生[1-30]之间的随机整数的表达式是________。 A.1+rnd(30) B.1+30*rnd() C.rnd(1+30) D.int(rnd()*30)+1 240. 表达式 Abs(-5)+Len("ABCDE")的值是________。 A.5ABCDE B.-5ABCDE C.10 D.O 241. 将 Cos(y)四舍五入保留 3 位小数的表达式是________。 A.Int((Cos(Y)+0.5)*1000)/1000 B.Int(Cos(Y*1000))/1000+0.5 C.Int(Cos(Y)*1000+0.5)/1000 D.Int(Cos(Y*1000)+0.5)/1000 242. 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click() A="12" B="34" C="56" Print A+B+C EndSub 程序运行后,单击命令按钮,输出结果是________。 A."123456" B.123456 C.102

D.显示出错信息 243. 如果逻辑与(And)运算的结果为“真”, 与它所连接的两个条件必须是 ________。 A.前一个为“真”,后一个为“假” B.前一个为“假”,后一个也为“假” C.前一个为真,后一个也为真 D.前一个为假,后一个为真 244. 表达式 X+1>X 是________。 A.算术表达式 B.非法表达式 C.字符串表达式 D.关系表达式 245. 选拔身高 T 超于 1.7 米且体重 W 小于 62.5 千克的人,能表示该条件的布 尔表达式是________ A.T>1.7 And W<=62.5 B.T<=1.7 Or W>=62.5 C.T>1.7 And W<62.5 D.T>1.7 Or W<62.5 246. 下列程序段的执行结果为________。 X=2.4:Z=3:K=5 Print"A(";X+Z*K;")" A.A(17) B.A(17.4) C.A(18) D.A(2.4+3*5) 247. 下面程序段的功能是________ A=10.5 B=Int(A+0.5) Debug.Print B A.求平均值 B.将一实数四舍五入取整数 C.求绝对值 D.舍去一实数的小数部分 248. 以下语句的输出结果是________ Print Format(32548.5,”000,000.00u”) A.32548.5 B.32,548.5 C.032,548.50 D.32,548.50 249. 下面表达式中,________ 的运算结果与其他三个不同。 A.Exp(-3.5) B.Int(-3.5)+O.5 C.-Abs(-3.5) D.Sgn(-3.5)-2.5

250. 表达式 Int(-17.8)+Sgn(17.8)的值是________ 。 A.18 B.-17 C.-18 D.-16 251. Int(100*Rnd(1))产生的随机整数的闭区间是________ A.[0,99] B.[1,100] C.[0,100] D.[1,99] 252. 如果 Tab 函数的参数小于 1,则打印位置在第________列。 A.0 B.1 C.2 D.3 253. Mid(”Hello Everyone”,7,3)的执行结果是________ 。 A.ong B.every C.Eve D.one 254. 实现字符串 Unicode 编码方式与 ANSI 编码方式相互转换的函数是 ________。 A.Str B.Strconv C.Trim D.Mid ??????255. 在窗体上面有一个文本框,其名称为 Textl,然后编写如下事件过 程: Private Sub Text1_KeyPress(KeyAscii As Integer) Dim str As String str = Chr(KeyAscii) KeyAscii = Asc(UCase(str)) Text1.Text = String(2, KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“b”,则在文本框 Textl 中显示的内容为 ________。 A.bbb B.BBB C.BB D.bb 256. 函数 UCase(Mid(”visual basic”8,8))”的值为________ A.visual B.basic C.VISUAL

D.BASIC 257. 用于获得字符串 S 最左边 4 个字符的函数是:________。 A.Left(S,4) B.Left(1,4) C.Leftstr(S) D.Leftstr(3,4) 258. 下面程序执行的结果是________。 Private Sub Form_Click() A$="123":B$="456" C=Val(A$)+Val(B$) Print C\100 End Sub A.123 B.3 C.5 D.579 259. 表达式 Right(“Beijing”,4)的值是________ A.Beij B.jing C.eiji D.ijin 260. 设 s=”中华人民共和国”,表达式 Left(s,1)+Right(S,1)+Mid(S,3, 2)的值为________ A.”中华民国” B.”中国人民” C.”中共人民” D.”人民共和” 261. 表达式 Mid(”SHANGHAI”,6,3)的值是________。 A.SHANGH B.SHA C.ANGH D.HAI 262. 语句 Print”Sgn(-26)=”;sgn(-26)的输出结果为________。 A.Sgn(-26)=26 B.sgn(-26)=-26 C.sgn(-26)=+1 D.sgn(-26)=-1 263. 在窗体上面有一个命令按钮,名称为 Commandl,单击该命令按钮时,执行 如下事件过程: Private Sub Commandl_Click() a$=”software and hardware” b$=Right(a$,8) c$=Mid(a$,1,8)

MsgBox a$, 1, b$ End Sub 在弹出信息框的标题栏中显示的信息是________。 A.software and hardware B.software C.hardware D.1 264. 下列程序段的执行结果为________。 A=”HELLOGOODMORNING” B=”WANGCHANGLI” C=Left(A,5)+”!” D=Right(A,7) E=Mid(A,6,4) F=Mid(B,Len(B)-6,5)+”!” G=E+””+D+”!” H=C+””+F Print H+””+G A.HELLO! CHANG!GOOD MORNING! B.HELLO! WANG!GOOD MORNING! C.HELLO! LI!GOOD MORNING! D.HELLO! CHANG!G00D!MORNING! 265. 表达式 String(2,”Shanghai”)的值是________。 A.Sh B.Shanghai C.ShanghaiShanghai D.SS 266. 执行以下程序段后,变量 C 的值为________。 a=“Visual Basic Programing“ b=”Quick” c=b&Ucase(Mid(a,7,6))&Right(a,11) A.Visual BASIC Programing B.Quick Basic Programing C.QUICK Basic Programing D.Quick BASIC Programing 267. Right(”ABCDEFG”,3)的执行结果是________。 A.ABC B.EFG C.DEF D.CDE 268. 下列程序的执行结果为________。 A=”1” B=”2” A=Val(A)+Val(B) B=Val(”12”)

If A<>B Then Print A-B Else Ptint B-A A.-9 B.9 C.-12 D.0 269. 求一个三位正整数 N 的十位数的正确方法是________。 A.Int(N/10)-Int(N/100)*10 B.Int(N/10)-Int(N/100) C.N-Int(N/100)*100 D.Int(N-Int(N/100)*1OO) 270. MsgBox 函数返回值的类型是________。 A.整型数值 B.字符串 C.变体 D.数值或字符串 272. 表达式 Len("123 程序设计 ABC")的值为________。 A.10 B.14 C.20 D.17 273. Rnd 函数不可能为下列________值。 A.0 B.1 C.0.1234 D.0.0005 274. 为了给 x、y、z 三个变量赋初值 1,下面正确的赋值语句是________。 A.x=1:y=1:z=1 B.x=1,y=1,z=1 C.x=y=z=1 D.xyz=1 278. 在 VB 中设计程序时,能自动被检查出来的错误是________。 A.语法错误 B.语法错误和逻辑错误 C.运行错误 D.逻辑错误 279. 结构化程序设计主要强调的是________ A.程序的规模 B.程序的效率 C.程序设计语言的先进性 D.程序易读性 280. 系统符号常量的定义可以通过________获得。 A.对象浏览器 B.代码窗口 C.属性窗口

D.工具箱 281. 下面有关注释语句的格式,错误的是________。 A.Rem 注释内容 B.‘注释内容 C.a=3:b=2’对 a、b 赋值 D.Private Sub Command1_MouseDown(button AS Integer,shift As Integer, _ Rem 鼠标按下事件的命令调用过程 X As Single,Y As Single) 282. 语句 Print ”25+10”;25+10 的输出结果是________。 A.”25+10”35 B.”25+10”;25+10 C.25+10_35 D.”25+10”_35 283. 下面程序运行后在“立即”窗口输出的结果是________。 Private Sub Form_Click() X=”a”:y=”b” z=l:u=2 Debug.Print x;y:z;u Debug.Print z;x:y;u EndSub A._a_b_1_2_ _1a_b2_ B.ab_1_2_ _1_ab_2_ C._ab12_ _1ab2_ D._ab_12_ _1a_b2_ 284. 语句:Print"Sqr(9)=";Sqr(9)的输出结果是________。 A.Sqr(9)=Sqr(9) B.Sqr(9)=3 C."3"=3 D.3=Sqr(9) 285. 下列程序段的执行结果为________。 x=l:y=2 z=x=y Print x;y;Z A.1 1 2 B.1 1 1 C.False False D.1 2 False 286. 设 AS=”Hello,”下列语句正确的是________ A.Label1.Hight=Label1.Hight+AS

B.Label1.Caption=Label1.Caption+AS C.Label1.Enabled=Laabel1.Enabled+A$ D.Label1.Visible=Label1.Visible+AS 287. 语句 X=X+1 的正确含义是________。 A.变量 X 的值与 X+1 的值相等 B.将变量 x 的值存到 X+1 中去 C.将变量 X 的值加 1 后赋值给变量 x D.变量 x 的值为 1 288. 下列程序段的执行结果为________ A = 0: b = 1 A = A + b: b = A + b: Print A; b A = A + b: b = A + b: Print A; b A = A + b: b = A + b: Print A; b A.1 2 3 5 8 13 B.1 1 3 5 8 13 C.1 3 3 4 8 13 D.1 2 3 4 5 6 289. 以下________程序段可以实施 X、Y 变量值的变换。 A.Y=X:X=Y B.Z=X:Y=Z:X=Y C.z=X:x=Y:y=z D.Z=X:w=Y:Y=Z:X=Y 290. 下列各赋值语句,不正确的是________。 A.x+y=5 B.iNumber=15 C.Label1.caption=“time“ D.sLength=x+y 291. 假设变量 boolVar 是一个布尔型变量, 则下面正确的赋值语句是________。 A.boolVar=‘True’ B.boolVar=True C.boolVar=#True# D.boolVar=3<4 292. 设 a="Visual Basic",下面使 b="Basic"的语句是________。 A.b=Left(a,8,12) B.b=Mid(a,8,5) C.b=Right(a,5,5)

D.b=Left(a,8,5) 293. 假设变量 boolVar 是一个布尔型变量, 则下面正确的赋值语句是________。 A.boolVar="True" B.boolVar=.Ture. C.boolVar=#True# D.boolVar=3<4 294. 下列________语句可以将变量 A、B 的值互换。 A.A=B:B=A B.A=A+B:B=A-B:A=A-B C.A=C:C=B:B=A D.A=(A+B)/2:B=(A-B)/2 295. 下列赋值语句正确的是________。 A.Text1.Text=Text1.Text+Text2.Text B.Text1.Name=Text1.Name+Text2.Name C.Text1.Caption=Text.Caption+Text2.Caption D.Text1.Enabled=Text1.Enable+Text2.Enabled 296. 下列程序段的执行结果为________。 X=2 Print X+1;X+1 A.3 3 B.X+l X+l C.3 4 D.2+1 2+1 297. 下列对话框函数调用错误的是 ________ 。 A.x$=InputBox(“请输入数据”) B.InputBox(”请输入数据”) C.x=MsgBox(“是否继续查询”) D.MsgBox(”是否继续查询”) 298. MsgBox 函数用于显示提示信息,关于函数返回值的说明正确的是________ A.函数的返回值是提示信息的数据类型 B.函数的返回值是提示信息的数据长度 C.凼数的返回值是整数,指示按下哪个按钮 D.函数的返回值是符号常量,指示按下哪个按钮 299. 用 InputBox 函数设计的对话框,其功能是________。 A.能接收用户输入的数据,但不会返回任何信息 B.能接收用户输入的数据,并能返回用户 输入的信息 C.既能用于接收用户输入的信息,又能用于输出信息 D.专门用于输出信息 300. 下列叙述不正确的是________。 A.InputBox 函数返回值为字符型 B.MsgBox 函数返回值为所单击按钮的键值 C.MsgBox 语句返回值为所单击按钮的键值 D.Shell 函数返回值为所执行文件的工作代码

301. 设有语句: x=InputBox(“输入数据”,“0”,“示例”) 程序运行后, 如果从键盘上输入数值 10, 并按回车键, 则下列正确的是________ A.变量 X 的值是数值 10 B.在 InputBox 对话框标题栏中显示的是”示例” C.0 是默认值 D.变量 X 的值是字符串”10” 302. 可以用 InputBox 函数产生“输入对话框”。 执行语句“st$=(InputBox(” 请输入字符串”, ”字符串对话框”,”字符串”)”时,当用户输入完毕,按 OK 按钮后, st$变量的内容 是________。 A.字符串 B.请输入字符串 C.字符串对话框 D.用户输入的内容 303. 执行如下语句: a = InputBox(Today, Tomorrowm, "Day before yesterday") 将显示一个输入对话框,在对话框的输入区中显示的信息是________。 A.Today B.Tomorrow C.Day before yesterday D.Yesterday 304. 如果 A 为整数且 IAl>:100,则打印”OK”,否则打印”Error”,表示这 个条件的单行格式 If 语句是________。 A.If Int(A):A And Sqr(A)>=10 Then Print”OK“Else Print’Error’ B.If Fix(A) And Abs(A)>=100 Then Print OK“Else Print“Error “ C.If Int(A)=A And(A>=100.A<-100) Then Print”OK” Else Print” Error” D.If Fix(A)=A And A>=100,And A<=-100 Then Print”OK”Else Print”Error” 305. 关于多行结构条件语句的执行过程,正确的是________。 A.各个条件所对应的<语句块>中,一定有一个<语句块>被执行 B.找到<条件>为 True 的第一个入百,便从此开始执行其后的所有<语句块> C.若有多个<条件>为 True,则它们对应的<语句块>都被执行 D.多行选择结构中的<语句块>,有可能任何一个<语句块>都不被执行 306. 下面程序段执行结果为________。 x=Int(Rnd()+4) Select Case X Case 5 Print”excellent” Case 4 Print”good”

Case 3 Print”pass” Case Else Print”fail” End Select A.excellent B.good C.pass D.fail 307. 执行下列语句后整型变量 a 的值是________。 If (3-2)>2 Then a=10 Elself (10/2)=6 Then a=20 Else a=30 End If A.10 B.20 C.30 D.不确定 308. 下列程序执行后,变量 a 的值为________。 Dim a,b,C,d as single a=100 b=20 c=1000 if b> a Then d=a:a=b:b=d End if If c>a then d=a:a=c:c=d End if If c>b Then d=b:b=c:c=d End if A.0 B.1000 C.20 D.100 309. 下列程序执行后,变量 a 的值为________。 Dim a,b,C,d as single a=100 b=20 c=1000

if b> a Then d=a:a=b:b=d End if If c>a then d=a:a=c:c=d End if If c>b Then d=b:b=c:c=d End if A.0 B.1000 C.20 D.100 310. 下列程序段的执行结果为________。 a=95 if a>60 Then I=1 If a>70 Then I=2 If a>80 Then I=3 If a>90 Then I=4 Print”I=”:I A.I=4 B.I=2 C.I=3 D.I=1 311. 下列语句中正确的是________。 A.If X<3*Y And X>Y Then Y=X^3 B.IfX<3*Y And X>Y Then Y=X^3 C.If X<3*Y:X>Y Then Y=X^3 D.If X<3*Y And X>Y Then Y=X**3 312. 如果 A 为整数且│A│>100。则打印“OK”,否则打印“Error”,表示这 个条件的单行格式 If 语句是________。 A.If Int(A)=A And Sqr(A)>100 Then Print”OK”Else Print”Error” B.If Fix(A)=A And Abs(A)>100 Then Print“OK”Else Print”Error” C.If Int(A)=A And(A>=100,A<=-100)Then Print”OK”Else Print”Error” D.If Fix(A)=A And A>=100 And A<=-100 Then Print”OK”Else Print”Error” 313. 下列程序段的执行结果为________。 a=75 If a>60 Then I=1 If a>70 Then I=2 If a>80 Then I=3 If a<90 Then I=4

Print”I=”;I A.I=1 B.I=2 C.I=3 D.I=4 314. 下列程序段的执行结果为________。 a=1 b=0 Select Case a Case 1 Select Case b Case0 Print”**0**” Case 1 Print”**1**” End Select Case 2 Print”**2**” End Select A.**0** B.**1** C.**2** D.0 315. 下列程序执行后,变量 x 的值为________。 Dim a,b,c,d As Single Dim x As Single a=100 b=20 c=1000 If b>a Then d=a:a=b:b=d End If If b>c Then x=b Elseif a>c Then x=c Else x=a End If A.100 B.20 C.1000 D.0 316. 执行以下程序段后,整型变量 C 的值为

________ a=24 b=328 Select Case b\10 Case 0 c=a*10+b Case 1 to 9 c=a*100+b Case 10 to 99 c=a*1000+b End Select A.537 B.2427 C.24328 D.240328 317. 计算 z 的值, 当 x 大于等于 Y 时, z=x; 否则 z=y。 下列语句错误的是________。 A.If x>=y Then z=x:z=y B.If x>=y Then z=x Else z=y C.z=y:If x>=y Then Z=X D.If x<=y Then z=y Else Z=X 318. 设有下列语句: x=5 If x>0 Then y=5 y=10 程序运行后,则下列叙述中正确的是________。 A.变量 Y 的值是 5 B.变量 Y 的值是 10 C.变量 X 的值是 5,变量 Y 的值是 5 D.变量 Y 的值不能确定 319. 执行下面的程序段后显示的结果是________。 Private Sub Form_Click() Dim i If i then print i else print i+1 End Sub A.0 B.1 C.“” D.False 320. 下列程序段的执行结果为________。 x=Int(Rnd+4) Select Case x Case 5 Print”优秀”

Case4 Print”良好” Case 3 Print”通过” Case Else Print”没有通过” End Select A.优秀 B.良好 C.通过 D.没有通过 321. 多分支选择结构的 Case 语句中“变量值列表”不能是________。 A.常量值的列表,如 Case 1,3,5 B.变量名的列表,如 Case x,y,z C.To 表达式,如 Case 10 To 20 D.Is 关系表达式,如 Case Is<20 322. 下列程序运行时,单击窗体,则显示一个输入对话框,在该对话框输入一 个整数 12 后, 窗体上显示的结果是________。 Private Sub Form_Click() X=val(Inputbox(”输入 x 的值”)) Y=1 If X<>0 Then y=2 Print Y EndSub A.1 B.不定 C.3 D.2 323. 多分支选择结构执行哪一个分支的根据是________。 A.SelectCase 语句的“测试表达式”与 Case 语句的“变量值列表”同为 False B.SelectCase 语句的“测试表达式”与 Case 语句的“变量值列表”同为 True C.SelectCase 语句的“测试表达式”与 Case 语句的“变量值列表”相匹配 D.SelectCase 语句的“测试表达式”与 Case 语句的“变量值列表”完全相 等 324. 若整型变量 a 的值为 2、b 的值为 3,则下面程序段执行后整型变量 c 的值 为________。 If a>5 Then If b<4 Then c=a-b Else c=b-a E1se If b>3 Then c=a*b Else c=a Mod b End If

A.2 B.-1 C.1 D.6 325. 关于语句 If x=1 Then y=1,下列说法正确的是________。 A.x=l 和 y=l 均为赋值语句 B.x=l 和 y=l 均为关系表达式 C.x=l 为关系表达式,y=l 为赋值语句 D.x=l 为赋值语句,y=l 为关系表达式 326. 下列语句正确的是________。 A.If A≠B Then Print”A 不等于 B” B.If A<>B Then Printf”A 不等于 B” C.If A<>B Then Print”A 不等于 B” D.If A≠B Print”A 不等于 B” 327. 下列程序段的执行结果为________。 x=5 y=-20 If Not x>0 Then x=y-3 Else y=x+3 Print x-y;y-x A.-3 3 B.5 8 C.3 -3 D.25 -25 328. 下列程序段的执行结果为________ x=Int(Rnd+4) Select Case X Case 5 Print”优秀” Case 4 Print”良好” Case 5 Print“合格” Case Else Print”不合格” End Select A.优秀 B.良好 C.合格 D.不合格 329. 以下程序运行后,输出结果是________ a=1:b=2:c=3 a=a+b:b=b+c:c=b+a If a<>3 Or b<>3 Then a=b-a:b=c-a:c=b+a

End If Print a+b+c A.16 B.3 C.6 D.8 330. 多行结构条件语句 If-Then-Endlf 中,________ A.必须至少有 ElseIf 语句子 B.可以有任意多个 Elself-Then 语句 C.如果没有 E1se 语句,运行时将出现错误 D.给定的条件只能是关系表达式或逻辑表达式 331. 下列程序执行后,整型变量 n 的值为________ 。 n=0 For i=1 to 100 If I Mod 4 = 0 Then n=n+1 Next i print n A.5050 B.25 C.26 D.33 332. 关于 Exit For 的使用说明正确的是________ A.Exit For 语句可以退出任何类型的循环 B.一个循环中只能有一个这样的语句 C.Exit For 表示返回 For 语句去执行 D.一个 For 循环中可以有多条 Exit For 语句 333. 有如下语句,执行后该段语句的循环次数是________ Dim s,i,j as integer For i=1 to 3 For j=3 to 1 Step -1 s=i*j Next j Next i A.9 B.10 C.3 D.4 334. 有如下程序,运行后输出的是________ Option Base 1 Private Sub Command1_Click() Dim aj(1 To 10) For j=6 To 10 aj(j)=j*2

Next j Print aj(1)+aj(j) End Sub A.5 B.20 C.22 D.显示出错信息 335. 由如下程序,该程序将________ ________ For i=1 to 10 step 0 K=k+2 Next i A.形成无限循环 B.循环体执行一次后结束循环 C.语法错误 D.循环体不执行即结束循环 336. For-Next 循环的初值、终值与步长________。 A.只能是具体的数值 B.只能是表达式 C.可以是数值表达式 D.可以是任何类型的表达式 337. 在窗体上画一个命令按钮,然后编写如下事件过程。程序运行后,单击命 令按钮,依次在输入对话框中输入 5,4,3,2,1,-1,输出结果为________ Private Sub Command1-Click() x=0 Do Until x=-2 a=Val(InputBox(”请输入 A 的值”)) b=Val(InputBox(”请输入 B 的值”)) x=Val(InputBox(”请输入 x 的值”)) a=a+b+x Loop Print a EndSub A.2 B.3 C.14 D.15 338. 以下程序段中 Do?Loop 循环执行的次数为________。 n=5 Do If n Mod 2=0 Then n=n\2 Else n=n*3+1 End If

Loop until n=1 A.4 B.3 C.5 D.2 339. 下列程序段执行后,x 的值为________。 x=0 For i=1 To 10 For j=i To 10 x=x+1 Next j Next i A.50 B.55 C.100 D.105 340. 在窗体上添加一个命令按钮,名为 Command1,一文本框,名为 text1,则 执行如下事件 过程后,文本框中的输出________。 For i=1 To 4 For j=1 To 3 x=3 For k=1 To 2 x=x+3 Next k Next j Next i Text1.Text=str(x) A.3 B.6 C.9 D.12 341. 下面的程序运行结果是________。 Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop Until i<10 Print i End Sub A.0 B.1 C.10

D.11 342. 下列关于 For...Next 语句的说法正确的是________ 。 A. 循环变量、初值、终值和步长都必须为数值型 B.Step 后的步长只为正数 C.初值必须小于终值 D.初值必须大于终值 343. 下面的程序运行后输出的结果是________ For i=1 to 2 S=i For j=0 to i-1 S=S+S*i Next j Print s Next i A.1 1 B.0 2 C.1 2 D.6 344. 以下程序输出的结果为________。 x=1 y=4 Do Until y>4 X=X*Y y=y+1 Loop Print X A.4 B.8 C.12 D.16 345. 下列程序运行后,输出结果为________。 b = 1 Do While b < 40 b = b * (b + 1) Loop Print b A.42 B.39 C.6 D.1 346. 30.当变量 x=2,y=5 时,以下程序的输出结果为________。 Do Until y>5 x=x*y y=y+1

Loop Print x A.2 B.5 C.10 D.20 347. 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按 钮,然后编写如下事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For j=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next i Text1.Text=Str(n) End Sub 程序运行后,单击命令按钮,在文本框中显示的值是________。 A.2 B.3 C.4 D.5 348. 执行下面的程序段后,X 的值为________ 。 x=50 For i=1 To 20 Step 2 x=x+1 Next i A.60 B.67 C.68 D.69 349. 12.以下语句错误的是________。 A.Do while(Condition) Statements Loop B. Do Statements Loop while(condition) C.Do until(Condition) Statements Loop D.Do until(condition)

Statements End do 350. 下列程序执行后,变量 s 的值为________。 Dim s As Long,x As Integer s=0 x=1 Do While x<10 s=s+x x=x+2 Loop Print s A.10 B.25 C.50 D.100 351. 以下程序段执行后整型变量度 n 的值为________。 n=0 For i=1 to 20 Step 5 n=n+1 Next i A.50 B.4 C.15 D.210 352. 在窗体上画两个名称分别为 Text1、 Text2 的文本框和一个名称为 Command1 的命令按钮, 然后编写如下事件过程: Prinvate Sub Command1_Click() Dim x As Integer,n As Integer x=1 n=0 Do While x<20 x=x*3 n=n+1 Loop Text1.Text=Str(x) Text2.Text=Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是________。 A.15 和 1 B.27 和 3 C.195 和 3

D.600 和 4 353. 假设有以下程序段: For I=1 to 3 For j=5 to 1 Step -1 Print I*j Next j Next I 则语句 Print I*j 的执行次数、I、j 的值分别________。 A.15 4 O B.16 3 1 C.17 4 0 D.18 3 1 354. 下述程序的运行结果是________ j=0 Do While j<30 j=(j+1)*(j+2) k=k+1 Loop Print k;j A.0 1 B.31 28 C.30 30 D.4 30 355. 下列程序的运行结果是________。 s=0:t=0:u=0 For x=1 To 3 For y=1 To x For z=y To 3 s=s+1 Next z t=t+1 Next y u=u+1 Next x Print s;t;u A.3 6 14 B.14 6 3 C.14 3 6 D.16 4 3 356. 如下有一段不完整的程序段,如果要求 该程序执行 3 次循环,则在程序中的空白处要填入 ________。 X=l Do

x=x+3 Print X Loop Until________ A.x>=8 B.x<=8 C.x>=7 D.x<=7 357. 下列程序段的执行结果为________o a=1 b=1 For I=1 To 3 F=a+b a=b b=f Print f; Next I A.2 3 6 B.2 3 5 C.2 3 4 D.2 2 8 358. 下列命令按钮事件过程执行后,输出结果是________ For m=1 To 1000 Step 2 a=10 For n=1 To 20 Step 2 a=a+2 Next n Next m Print a A.1200 B.10000 C.30 D.20 359. 下列程序段的执行结果为________。 a=0:b=1 Do a=a+b b=b+1 Loop While a<10 Print a;b A.10 5 B.a b C.0 1 D.10 30 360. 有如下程序

For i=1 To 3 For j=5 To 1 Step-1 Print i+j Next j,i 其循环执行的次数为________。 A.12 B. 13 C.14 D.15 361. 下列程序段的执行结果为________ Dim M(10),N(10) i=3 For T=1 T0 5 M(T)=T N(I)=2*I+T Next T Print N(i);M(I) A.3 11 B.3 15 C.11 3 D.15 3 362. 下列命令按钮事件过程执行后,输出的结果是________ Private Sub Command_Click() For m=1 to 10 Step 2 a=10 For n=1 to 10 Step 2 a=a+2 Next n Next m Print a End Sub A.60 B.50 C.30 D.20 363. 在窗体上添加一个命令按钮,名为 Command1,一文本框,名为 textl,则 执行如下事件过程后,文本框中的输出为________。 For i = 1 To 3 For j = 1 To 3 For k = 1 To 2 X = X + 3 Next k Next j Next i

Text1.Text = Str(X) A.21 B.42 C.54 D.72 364. 当执行以下过程时,在名为 lplResult 的标签框内将显示________。 Private Sub cmdlt_Click() Dim i,r R=0 For i=1 To 5 Step 1 r=r+i Next i lplResult.Caption=Str$(r) End Sub A.字符串 15 B.整数 15 C.字符串 5 D.整数 5 365. 在窗体上添加一个命令按钮,名为 Commandl,一文本框,名为 textl,则 执行如下事件过程后,文本框中的输出为________。 Private Sub Command1_Click() For I = l To 4 x = 3 For j = 1 To 3 For k = 1 To 2 x = x + 3 Next k Next j Next I Text1.Text = Str(x) End Sub A.6 B.12 C.18 D.21 366. 下面程序语句 Print i 执行的次数是________。 Private Sub Form_Click() Dim I As Integer j As Integer i=0 Do i=i+l forj=10 to 1 step 一 3 i=i+j

print i next j Loop While i<50 End Sub A.4 B.8 C.12 D.16 367. 下面程序运行后,输出的结果是________。 Dim arr(3,3) For j=1 To 3 For k=1 To 3 Arr(j,k)=(j-1)*3+k Next k Next j For j=2 To 3 For k=2 To 3 Print arr(k,j); Next k Print Next J A. 2 5 3 6 B. 5 8 6 9 C. 4 7 5 8 D. 5 9 6 8 368. 执行下列程序后,变量 a 的值为________ Dim I As Integer Dim a As Integer a=0 For i=1 To 100 Step 2 a=a+1 Next i A.1 B.10 C.50 D.100 369. 下列关于 DO?Loop 语句的叙述不正确的是________。 A.Do?1oop 语句采用逻辑表达式来控制循环体执行的次数

B.当 Do while?Loop 或 Do until?Loop 语句中 while 或 until 后的表达式 的值为 true 或非零时,循环继续 C.Do?Loop while 语句与 Do?Loop until 语句都至少执行一次循环体 D.Do while?Loop 语句与 Do until?Loop 语句可能不执行循环体 370. 在窗体上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按 钮(其 Name 属性为 Command1),然后编写以下事件过程: Private Sub Command1_Click() x=0 Do Until x>=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别为________。 A.1 和 0 B.2 和 240 C.3 和 50 D.4 和 168 371. 下列程序段的执行结果为________。 a=1 b=5 DO a=a+b b=b+1 Loop While a<10 Print a;b A.1 5 B.12 7 C.a b D.10 25 372. 有如下程序,输出结果为________ ( Private Sub Form_Activate() Dim a a=Array(1,2,3,4,5) For i=LBound(a) To UBound(a) a(i)=I*a(i) Next i Print I,LBound(a),UBound(a),a(i) EndSub A.4 0 4 25 B.5 0 4 25

C.不确定 D.程序出错 373. 下面程序执行时,输出的结果是________。 Private Sub Form_Click() Dim i As Integer,j As Integer i=10 Do i=i+j for j=10 to i step-3 i=i+j next j Loop While i<50 Print i:j End Sub A.50 10 B.50 9 C.59 10 D.59 9 374. 以下能够正确退出循环的是________ A.i=10 Do i=i+1 Loop Until i<10 B.i=1 DO i=i+1 Loop Until i=10 C.i=10 DO i=i+1 Loop Until i>0 D.i=1 Do i=i-3 Loop Until i=0 375. 下列程序段的执行结果为________。 a=”ABBACDDCBA” For I=6 To 2 Step-2 x=Mid(a,I,I) y=Left(a,I) z=Right(a,I) z=X & Y & Z Next I Print z

A.ABC B.AABAAB C.BBABBA D.ABBABA 376. 有如下事件过程: Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox(”请输入 a 的值”) a=Val(a) b=InputBox(”请输入 b 的值”) b=Val(b) a=a*b Loop Print a End sub 程序运行后,依次输入数值 30,20,10,-1,输出结果为________ A.6000 B.-10 C.200 D.-6000 377. 执行下列程序段后,输出的结果是________。 For k1=0 To 4 y=20 For k2=0 To 3 y=10 For k3=0 To 2 y=y+10 Next k3 Next k2 Next k1 Print y A.90 B.60 C.40 D.10 378. Do Until?Loop 循环命令的功能是 ________ 。 A.先进入循环执行语句段落后,再判断是否再进入循环 B.先进入循环执行语句段落后,再判断是否不再进入循环 C.执行前先判断是否不满足条件,若不满足才进入循环 D.执行前先判断是否不满足条件,若满足才进入循环 379. 下列程序段的执行结果为________。 a=0:b=0 For i=-1 To -2 Step -1

Forj=1 To 2 b=b+1 Next j a=a+1 Next i Print a;b A.2 4 B.-2 2 C.4 2 D.2 3 380. 下列程序段的执行结果为________ I=4 x=5 Do I=I+1 x=x+2 Loop Until I>=7 Print”I=”; I Print”x=”; x A.I=4 x=5 B.I=7 x=15 C.I=6 x=8 D.I=7 x=11 381. 下面程序运行后的结果是________。 Private Sub Form_Click() Dim s As Integer,k As Integer,i As Integer,n As Integer s=1 for i=1 to 3 for j=i to 3 for k=j to i step-1 s=s*k next k,j,i print s End Sub A.6 B.72 C.144 D.432 382. 下列程序段的执行结果为________。 a=6 For k=l To 0 a=a+k Next k Print k;a

A.-1 6 B.-1 16 C.1 6 D.11 21 383. 下述程序段中,与其他 3 个程序段作用不同的是________ A.s=0 i=0 While i>100 s=s+i Wend B. s=0 i=0 While i<100 i=i+1 Wend C.s=0 i=1 Do While i<100 s=s+1 Loop D.s=0 i=0 Do Until i>100 s=s+1 Loop 384. 下面的程序运行结果是________。 Private Sub Form_Click() I=0 Do Until 0 i=i+1 if i>10 then Exit Do Loop print i EndSub A.0 B.10 C.11 D.出错 385. 在窗体上添加一个按钮,名为 Command1,然后编写如下的事件过程,输出 结果为________。 Prinvate Sub Command1_Click() For i=1 To 4 x=4 For j=1 To 3

x=3 For k=1 To 2 x=x+5 Next k Next j Next i Print x End Sub A.13 B.26 C.30 D.40 386. 阅读下面的程序段: For i=l To 3 For j=1 To i For k=j To 4 a=a+1 Next k Next j Next i 执行上面的三重循环后,a 的值为________. A.9 B.14 C.20 D.21 387. 下面程序运行时,单击窗体后,窗体上显示的结果是________。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long T1=1:sum=0 For I=1 To 3 T1=t1*I sum=sum+t1 Next I Print sum End Sub A.3 B.9 C.5 D.6 388. 下列程序的执行结果为________。 n=0

j=1 Do Until n>2 n=n+1 j=j+n*(n+1) Loop Print n;j A.0 1 B.3 7 C.3 21 D.3 13 389. 以下程序运行后,输出结果是________。 For j=1 To 3 Print Tab(3*j);2*(j-1)*2*(j-1) Next j Print A.1 3 25 B.1 9 25 C.1 9 25 D.1 3 5 390. 下列程序的执行结果是________。 Dim s,n as integer s=0:n=l Do while n<=10 s=s+n n=n+1 Loop Print s A.100 B.50 C.25 D.55 391. 下列程序段的执行结果为________。 Dim A(3, 3) For m = 1 To 3 For n = I To 3 If n = m Or n = 3 - m + 1 Then A(m, n) = 1 Else A(m, n) = 0 End If

Next n Next m For m = l To 3 For n = 1 To 3 Print A(m, n); Next n Print Next m A.1 0 0 0 1 0 0 0 1 B.1 1 1 1 1 1 1 1 1 C.0 0 0 0 0 0 0 0 0 D.1 0 1 0 1 0 1 0 1 392. 下列程序运行时输出的结果是________。 Option Base 1 Private Sub Form_Click() Dim x(10) For I = 1 To 10 x(I) = 10 - I + 1 Next I For I = 10 To 1 Step -2 Print x(I); Next I End Sub A.1 3 5 7 9 B.9 7 5 3 1 C.1 2 3 4 5 6 7 8 9 10 D.10 9 8 7 6 5 4 3 2 1 393. 下列程序的运行结果是________。 Private Sub Form_Click() Dim k As Integer n=5 m=1 k=1 Do m=m+2

k=k+1 Loop Until k>n Print m End Sub A.1 B.12 C.1l D.32 394. 10.下面程序执行后输出是________。 Private Sub Form_Click() For I=1 to 4 x=4 for j=1 to 3 x=3 for k=1 to2 x=x+6 next k next J next I print X End Sub A.7 B.15 C.157 D.538 395. 以下哪一项是正确的 for ? next 结构。 A.for x=1 to step 10 ? next x B.for x = 3 to –3 step –3 ? next x C.for x=1 to 10 re: ? next x if I = 10 then goto re D.for x = 3 to 10 step 3 ? next y 396. 下列循环结构能正常结束循环的是: A.I = 5 Do I = I + 1 Loop until I<0

B.I = 1 Do I = I + 2 Loop until I = 10 C.I = 10 Do I = I + 1 Loop until I>0 D.I = 6 Do I = I -2 Loop until I = 1 397. 下列程序段的运行结果为: For i = 3 to 1 step –1 Print spc(5-i); For j = 1 to 2 * i - 1 Print “*”; Next j Print Next i A. × ××× ××××× B.××××× ××× × C.××××× ××× × D.××××× ××× × 398. 下列哪个程序段不能分别正确显示 1!、2!、3!、4!的值。 A.for I = 1 to 4 n = 1 for j = 1 to I n = n * j next j print n next I B.for I = 1 to 4 for j = 1 to I n = 1

n = n * j next j print n next I C.n = 1 for j= 1 to 4 n = n * j print n next j D.n = 1 j = 1 do while j<=4 n = n * j print n j = j + 1 loop 399. 下列关于 do?loop 循环结构执行循环体次数的描述正确的是: A.do while?loop 循环和 do?loop until 循环至少都执行一次 B.do while?loop 循环和 do?loop until 循环可能都不执行 C.do while?loop 循环至少执行一次,do?loop until 循环可能不执行 D.do while?loop 循环可能不执行,do?loop until 循环至少执行一次 400. 下面程序段的运行结果为: Private sub command1_click() For i = 1 to 5 n = 0 For j = i to 5 n = n + 1 Next j Next i Print n End sub A.10 B.5 C.15 D.1 401. 当在文本框中输入"ABCD” 4 个字符时,窗体上显示是: Private sub text1_change() Print text1; End Sub A.ABCD B.A B C

D C.AABABCABCD D.A AB ABC ABCD 402. 下列语句的输出结果为________。 Print Format$(5689.36,"000,000.000") A.5.689.36 B.5.689.360 C.5.689.3 D.005,689.360 403. 下面程序运行时,单击窗体后,窗体上显示的结果是________ Private Sub Form_Click() Dim I As Integer Dim sum As Long sum =0 For I=10 To 16 If I Mod 3=0 Or I Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub A.10 B.12 C.37 D.22 404. 结构化程序设计的 3 种结构是________。 A.顺序结构、选择结构、转移结构 B.分支结构、等价结构、循环结构 C.多分支结构、赋值结构、等价结构 D.顺序结构、选择结构、循环结构 405. 程序的基本控制结构是________ A.顺序结构、多分支结构和单分支结构 B.For??Next 结构、Do??Loop 结构和 Select??Case 结构 C.顺序结构、选择结构和循环结构 D.单行结构和多行结构 406. 下面四个语句中,能打印显示 20*30 字样的是________ A.Print "20*30" B.Print 20*30 C.Print Chr$(20)+”*”+Chr$(30) D.Print Val(”20”)*VaL(”30”) 407. 以 Dim x(6,2 to 5)来声明一个二维数组,错误的选项是________



A.Lbound(x,2)的返回值是 1 B.Ubound(x,2)的返回值是 5 C.Ubound(x,1)的返回值是 6 D.Lbound(x,1)的返回值是 0 408. 以下属于 Visual Basic 合法的数组元素是________。 A.x8 B.x[8] C.s(0) D.v[8] 409. 用如下语句所定义的数组的元素个数是________个。 Dim b(-2 to 4) as string A.2 B.4 C.6 D.7 410. 定义 10 个单精度实型一维数组正确的语句是________。 A.Dim a(9) as Single B.Option Base 1:Dim a(9) C.Dim #(9) D.Dim a(10) As Integer 411. 下列定义为 abc 的过程定义语句中正确的是________。 A.Dim Sub abc(x,y) B.public abc(x,y) C.Private Sub abc(x,y) As Integer D.Sub abc(x,Y) 412. 设有数组声明语句: Option Base 1 Dim A(2,-1 To 1) 以上语句所定义的数组 A 为________维数组,共有________个元素,第 一维下标从________到________,第二维下标从 ________到________.下列选项正确的是________。 A.1,2,6,2,-1,1 B.6,2,1,2,-1,1 C.2,6,1,2,-1,1 D.2,1,6,-1,1,2 413. 下面的数组声明语句中正确的是________。 A.Dim gg[1,5] As String B.Dim gg[1 To 5,1 To 5] As String C.Dim gg(1 To 5) As String D.Dim gg[1:5,1:5] As String 414. 下面的数组声明语句中正确的是________。 A.Dim A[3,4] As Integer B.Dim A(3,4) As Integer C.Dim a[3;4] As Integer

D.Dim A(3;4) as Integer 415. 使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后,以下说法正确的 是________。 A.A 数组中的所有元素值为 0 B.A 数组中的所有元素值不确定 C.A 数组中的所有元素值为 Empty D.执行 Erase A 后,A 数组中的所有元素值为 Null 416. 要存放如下方阵的数据,在不浪费存储空间的基础上,能实现声明的语句 是________。 1 2 3 2 4 6 3 6 9 A.Dim A(9) As Integer B.Dim A(3,3) As Integer C.Dim A(-1 To 1,-3 To -1) As Single D.Dim A(-3 To -1,1 To 3) As Integer 417. 设有数组定义语句:Dim a(5) As Integer,Listl 为列表框控件。下列给 数组元素赋值的语句 错误的是________。 A.a(3)=3 B.a(3)=inputbox(”inputdata”) C.a(3)=Listl.Listindex D.a=Array(1,2,3,4,5,6) 418. 下列语句中(假定变量 n 有值),能正确声明可调数组的是________。 A.dim a( ) as integer redim a(n) B.dim a( ) as integer redim a(n)as string C.dim a( ) as integer redim a(3,4) redim preserve a(4,4) D.dim a(10) as integer redim a(n+10) 419. 如下数组声明语句,________正确。 A.dim a[3,4] as integer B.dim a(3,4) as integer C.dim a(n,n) as integer D.dim a(3 4) as integer 420. 要分配存放如下矩阵的数据,________数组声明语句能实现(不能浪费空 间)。 1.1 2.2 3.3 4.4 5.5 6.6 7.7 8.8 9.9 A. dim a(9) as single

B.dim a(3,3) as single C.dim a(-1 to 1, -5 to -3) as single D.dim a(-3 to -1, 5 to 7) as integer 421. 如下数组声明语句,则数组 a 包含元素的个数有________。 dim a(3, -2 to 2,5) A.120 B.75 C.60 D.13 422. 下面的数组声明语句中________是正确的。 A.Dim A[3,4] As Integer B.Dim A(3,4) As Integer C.Dim A[3;4] As Integer D.Dim A[3;4] As Integer 423. 下列程序段错误的是________。 A.Dim a As Integer a=array(1,2,3,4) B.Dim a(),b() a=array(1,2,3,4):b=a C.Dim a As Variant a=array(1,”asd”,true) D.Dim a(5,1 to 4) 424. 窗体上有一个命令按钮,命令按钮的单击事件过程如下。运行程序后,单 击命令壕钮,输 出结果是________。 Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120 425. 下列程序的输出结果是________。 Dim a a=Array(1,2,3,4,5,6,7,8) i=0 For K=100 To 90 Step -2 s=a(i)^2 If a(i)>3 Then Exit For

i=i+1 Next k Print k;a(i);s A.88 6 36 B.88 1 2 C.90 2 4 D.94 4 16 426. 下列程序运行时输出的结果是________。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x(a) As Integer For I=1 to a a(i)=I*2 Next I Print X(i) EndSub A.36 B.25 C.1 D.出错信息 427. 设执行以下程序段时依次输入 1、3、5,执行结果为________ Dim a(4) As Integer Dim b(4) As Integer For k = 0 To 2 a(k + 1) = Val(InputBox("请输入数据:")) b(3 - k) = a(k + 1) Next k Print b(k) A.1 B.3 C.5 D.0 428. 下列程序段的执行结果为________ 。 Dim m(10),n(10) I=3 For t=1 to 5 M(t)=t N(I)=2*I+t Next t Print n(I):m(I) A.3 11 B.3 15

C.11 3 D.15 3 429. 19.在窗体上添加一个命令按钮,名为 Command1,其事件过程如下。程序运 行后,其输出的 结果为________。 Private Sub_Command1_Click() Dim a a=array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120 430. 下列程序的输出结果为________ Private Sub Command1_Click() Dim a(20) For i=1 To 20 Step 2 a(i)=i Next i Print a(1)+a(2)+a(3) End sub A.4 B.5 C.6 D.7 431. 在窗体上添加一个命令按钮,然后编写如下的程序 private sub command1_click( ) dim x%(1 to 10) for k =1 to 5 x(k)=10-k next k print x(x(k-3)-3) end sub 单击命令按钮,则结果是________。 A.5 B.6 C.7 D.9 432. 在窗体上添加一命令按钮,其名为 Command1,然后编写代码如下: Private Sub Command1_Click()

Dim arr(5) As Integer Dim arrl(5) As Integer n=3 For i=1 To 5 arr(i)=I arrl(n)=2*n+I Next i Print arrl(n);arr(n) End Sub 程序的运行结果为________ A.11 3 B.3 11 C.13 3 D.3 13 433. 语句 Dim abc(-2 To 4,0 To 4,5)As Long 定义的三维数组,其数组元素 有________ 。 A.96 个 B.112 个 C.140 个 D.210 个 434. 下列关于 ReDim 的说法中错误的是________. A.可以用 Redim 语句直接定义数组。 B.Redim 语句只能改变元素的个数,但不能改变数组的维数。 C.Redim 语句可以改变数组类型。 D.在一个程序中,可以多次用 Redim 语句定义同一个数组。 435. 执行以下 Command1 的 Click 事件过程,在窗体上显示________。 Option Base 0 Private Sub Command1_Click() Dim a a=Array(”a”,”b”,”c”,”d”,”e”,”f”,”g”) Print a(1);a(3);a(5) End Sub A.abc B.bdf C.ace D.出错 436. 使用 ReDim Preserve 可以改变数组________ A.最后一维的大小 B.第一维的大小 C.所有维的大小 D.改变维数和所有维的大小 437. 以下说法不正确的是________ A.使用 ReDim 语句可以改变数组的维数 B.使用 ReDim 语句可以改变数组的类型

C.使用 ReDim 语句可以改变数组每一维的大小 D.使用 ReDim 语句可以对数组中的所有元素进行初始化 438. 在列表框中当前被选中的列表项的序号是由下列________属性表示的。 A.List B.Index C.Listlndex D.False 439. 执行 x$=InputBox(”请输入 x 的值”)时,在弹出的对话框中输入 123, 在列表框 Listl 选中 1 个列表项(数据为 456),使 Y 的值是 123456 的语句是 ________。 A.y=x$+Listl.List(0) B.y=x$+Listl.List(1) C.y=Val(x$)+Val(Listl.List(0)) D.y=Val(x$)&Val(Listl.List(1)) 440. 只有将组合框的 Style 属性设置为________值时,才能触发 DblClick 事 件。 A.0 B.1 C.2 D.3 441. 引用列表框(List1)最后一个数据项应使用的表达式是________。 A.List1.List(List1.ListCount) B.List1.List(List1.ListCount-1) C.List1.List(ListCount) D.List1.List(ListCount-1) 442. 在窗体上画一个列表框和一个文本框,然后编写如下两个事件过程; Private Sub Form_Load() List1.AddITem"357" List1.AddITem"246" List1.AddITem"123" List1.AddITem"456" Text1.Text="" End Sub Private Sub List1.DblClickO M=List1.Text Print M+Text1.Text End Sub 程序运行后,在文本框中输入“123”,然后双击列表框中的“456”,则输出结 果为________。 A.1245 B.456123 C.123456 D.0 443. 窗体上有一个列表框和一个文本框,编写如下两个事件过程:

Private Sub Form_Load() List1.Additem"Beijing" List1.Additem "Tianjin" List1.Additem"Shanghai" Text1.Text= "" End Sub Private Sub List1_DblClick() x=List1.Text Print X+Text1.Text End Sub 程序运行后,在文本框中输入"China",然后双击列表框中的" Shanghai",则输出结 果为________。 A.China Beijing B.China Tianjin C.China Shanghai D.Shanghai China 444. 给程序的空白行选择适当的语句。程序段的功能是:依次自动将列表框 List2 中所有列表项目移入列表框 List1 中,并将移入 List1 中的项目从 List2 中删除。 Do While List2.ListCount ________ List2.RemoveItem 0 Loop A.List1.AddItem List2.List(0) B.List1.AddItem List2.Text C.List2.AddItem List1.List(0) D.List2.AddItem List1.Text 445. 在 Visual Basic 中,组合框是文本框和________特性的组合。 A.复选框 B.标签 C.列表框 D.目录列表框 446. 为组合框 Combol 增加一个数据项"计算机",下列命令正确的是________ A.Combol.Text="计算机" B.Combol.ListIndex="计算机" C.Combol.Addltem "计算机" D.Combol.ListCount="计算机" 447. 执行了下面的程序后,组合框中数据项的值是________。 Private Sub Form_Click() For i=1 To 6 Combol.AddItem i Next i

For i=1 To 3 Combol.RemoveItem i Next i End Sub A.1 5 6 B.2 4 6 C.4 5 6 D.1 3 5 448. 要清除列表框中所有的列表项时,应使用________ 方法。 A.Remove B.Clear C.Removeltem D.Move 449. 引用列表框(Listl)最后一个数据项应使用________。 A.Listl.List(Listl.ListCount) B.List.List(List.ListCount-1) C.Listl.List(ListCount) D.Listl.List(ListCount-1) 450. 窗体上有一个按钮和一个列表框(Sorted 属性为 True),执行下列过程后 的输出结果________ Private Sub Command1_Click() List1.AddItem "China" List1.AddItem "Great" List1.AddItem "Is", 1 List1.AddItem "!", 3 Print List1.List(2) End Sub A.Great B.China C.Is D.! 451. 为了在列表框中使用 Ctrl 和 Shift 键进行多个列表项的选择,应将列表 框的 Multiselect 属性设置为________。 A.0 B.1 C.2 D.3 452. 组合框控件是将________组合成一个控件。 A.列表框控件和文本框控件 B.标签控件和列表框控件 C.标签控件和文本框控件 D.复选框控件和选项按钮控件 453. 在列表框中当前被选中的列表项的序号是由下列哪个属性表示________ A.List

B.Index C.Listindex D.Tablndex 454. 引用列表框的最后一项应使用________ A.List1.List(List1.ListCount-1) B.List1.List(List1.ListCount) C.List1.List(ListCount) D.List1.List(ListCount-1) 455. 若要清除列表框的所有内容,则实现的方法是________ 。 A.Removeitem B.Cls C.Clear D.其他均不可以 456. 以下程序的输出结果是________. option Base 1 private sub command1_click( ) dim a,b(3,3) a=Array(1,2,3,4,5,6,7,8,9) for i = 1 to 3 for j = 1 to 3 b(i,j)=a(i*j) if (j>=i) then print tab(j*3); format(b(i,j),"###"); next j print next i End Sub A. 1 2 3 4 5 6 7 8 9 B. 1 4 5 7 8 9 C. 1 4 7 2 4 6 3 6 9 D. 1 2 3 4 6 9 457. 在窗体上画一个名称为 command1 的命令按钮,然后编写如下程序 option Base1 private sub command1_click( ) dim c%,d% d=0:c=6 x=Array(2,4,6,8,10,12)

for i = 1 to 6 if x(i)>c then d=d+x(i) c=x(i) else d=d-c end if next i print d end sub 程序运行后,如果单击命令按钮,则在窗体上输入的内容是________. A.10 B.16 C.12 D.20 458. 编写如下的程序则结果是________。 Option base 1 private sub form_click( ) dim a as variant a=Array(1,2,3,4) j=1 for i=4 to 1 step-1 s=s+a(i)*j j=j*10 next i print s end sub A.4321 B.1234 C.34 D.12 459. 以下程序的输出结果是________。 dim a a=array(1,2,3,4,5,6,7) for i=Lbound(a) to Ubound(a) a(i)=a(i)*a(i) next i print a(i) A.49 B.0 C.不确定 D.程序出错 460. 2. 下面子过程语句说明合法的是________。 A.Sub f1(ByVal n%( ))

B.Sub f1( n%) As Integer C.Function f1%(f1%) D.Function f1(ByVal n%) 461. 下列语句都是在 Form 中定义的,________是错的。 A.Public Const A1=2u B. Private Const A2=8 C.Public a3 As Integer D.Private a4 As Integer 462. 下面子过程语句说明合法的是________。 A.Sub fl(ByVal n()As Integer) B.Sub fl(n()As Integer)As Intege C.Function fl(fl As Integer)As Integer D.Function fl(ByVal As Integer) 463. Sub 过程与 Function 过程最根本的区别是________ A.Sub 过程名称与 Function 过程名称的格式不统一 B.Function 过程可以有参数,Sub 过程不可以 C.两种过程参数的传递方式不同 D.Sub 过程的过程名称不能有返回值,而 Function 过程能通过过程名称得到返回值 464. Sub 过程与 Function 过程最根本的区别是________ A.Sub 过程可以使用 Call 语句或直接使用过程名调用,而 Function 过程不 可以 B.Function 过程可以有参数,Sub 过程不可以 C.两种过程参数的传递方式不同 D.Sub 过程的过程名不能返回值,而 Function 过程能通过过程名返回值 465. 有如下一个函数过程: Function f(a As Integer) b=0 Static C b=b+1 c=c+1 f=a+b+c End Funtion 在窗体添加一个命令按钮,事件过程如下: Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print f(a); Nexti EndSub 运行该程度,单击命令按钮,

A.4 4 4 B.4 5 6 C.6 7 8 D.4 7 9 466. 阅读程序: Function F(a As Integer) b=0 Static C b=b+1 c=c+2 F=a+b+c End Function Private Sub Command1_Click() Dim a As Integer a=2 For i=1 To 3 Print F(a) Next i EndSub 运行上面的程序,单击命令按钮,输出结果为________。 A.4 5 6 B.5 7 9 C.4 6 8 D.4 7 9 467. 在窗体上画一个命令按钮, 然后编写如下程序程序运行后, 单击命令按钮, 输出结果为________ Private Sub Command1_Click() Dim a AS Integer,b AS Integer a=1 b=2 Print N(a,b) End Sub Function N(x As Integer,Y As Integer) As Integer N=IIf(x>y,x,Y) End Function A.1 B.2 C.5 D.8 468. 已知数组 a(1 To lO)As Intege,下面调用 GetValue 函数正确的是 ________。 Private Function GetValue(a()As Integer)As Integer For i=l To 10 GetValue=GetValue+a(i)

Next i End Function A.S=GetValue(a(1 TO 10)) B.S=GetValue(a) C.S=GetValue(a(10)) D.S=GetValue a 469. 单击命令按钮时,下列程序的执行结果是________。 Private Sub Command1_Click() Dim a As Integer, b As Integer, C As Integer a = 3 b = 4 C = 5 Print SecProc(C, b, a) End Sub Function FirProc(x As Integer, Y As Integer, z As Integer) FirProc = 2 * x + Y + 3 * z End Function Function SecProc(x As Integer, Y As Integer, z As Integer) SecProc = FirProc(z, x, Y) + x End Function A.20 B.22 C.28 D.30 470. 在窗体上画一个名称为 Command1 的 命令按钮,编写如下程序 Private Sub Command1_Click() Print pl(3, 7) End Sub Public Function pl(x As Single, n As Integer) As Single If n = 0 Then pl = 1 ElseIf n Mod 2 = 1 Then pl = x * x + n Else pl = x * x - n End If End Function 程序运行后,单击该命令按钮,屏幕上显示的结果是________。 A.2 B.1 C.0 D.16 471. 下面程序的运行结果为________。

Private Sub Command1_Click() Dim a As Integer a = 2 For i = 1 To 3 Print F(a) Next i End Sub Private Function F(a As Integer) b = 0 Static C b = b + 1 C = C + 1 F = a + b + C End Function A.4 4 4 B.4 5 6 C.4 6 8 D.4 7 9 472. 有如下函数过程: Function lj(x As Integer) As Long Dim S As Long Dim I As Integer S = 0 For I = l To x S = S + I Next I lj = S End Function 在窗体上添加一个命令按钮, 名为 Commandl, 编写事件过程调用该函数, 输出结果为 ________。 Private Sub Command1_Click() Dim I As Integer Dim sun As Long For I = l To 5 Sum = Sum + lj(I) Next I Print Sum End Sub A.35 B.25 C.45 D.55 473. 有如下函数过程:

Function gys(ByVal X As Integer, ByVal Y As Integer) As Integer Do While Y <> 0 reminder = X Mod Y X = Y Y = reminder Loop gys = X End Function 以下调用函数的事件过程,该程序的运行结果是________。 Private Sub Command7_Click() Dim a As Integer Dim b As Integer a = 100 b = 25 X = gys(a, b) Print X End Sub A.25 B.0 C.50 D.100 474. 阅读下列程序: Private Sub Commandl_Click0 Dim i As Integer,k As Integer k=2 For i=1 To 3 Print H(k); Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后,单击命令按钮输出结果是________。 A. 2 3 4 B. 3 4 5 C. 5 6 7 D. 3 5 6 475. 1. 设有如下程序段: Public Sub F1(n%) ?

n=3*n+4 ? End Sub Private Sub Commmand1_Click() Dim n%,m% n=3 m=4 ? 调用 F1 语句 ? End Sub 则在 Command1_Click 事件中有效的调用语句是________. A.Call F1(n+m) B.Call F1(m) C.Call F1(5) D.Call F1(m+5) 476. 下列过程定义语句中,形参个数为不确定数量的过程是________。 A.Private Sub Pro3(x As Double,Y As Single) B.Private Sub Pro3(Arr(3),Option X,Option Y) C. Private Sub Pro3(ByRefx,ByValy,Arr0) D.Private Sub Pro3(ParamArray Arr0) 477. 下面的过程定义语句中合法的是________。 A.Sub Procl(ByVal n() ) B.Sub Procl(n) As Integer) C.Function Procl(Procl) D.Function Procl(ByVal n) 478. 下面子过程语句说明合法的是________。 A.Function f1(By Val n%) B.Sub f1(n%)As Integer C.Function f1%(fl%) D.Sub f1(ByVa1 n%0) 479. 下面子过程语句说明合法的是________。 A.Sub f1(ByVal x()As Integer) B.Sub f1(x%0)As Integer C.Function f1%(f1%) D.Function f1%(x As Integer) 480. 下面程序的运行结果是________。 Private Sub Command1_Click() a = 1.5 b = 1.5 Call fun(a, b) Print a, b End Sub

Private Sub fun(x, ByVal Y) x = Y * Y Y = Y + x End Sub A.2.25 1 .5 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5 481. 下面程序运行后输出结果是________。 Dim b Private Sub Form_Click() a = 1: b = 1 Print "A="; a, "B="; b Call mult(a) Print "A="; a, "B="; b End Sub Private Sub mult(x) x = 2 * x b = 3 * b End Sub A.A=1,B=1 A=1,B=l B.A=1,B=l A=2,B=3 C.A=1,B=1 A=1,B=3 D.A=1,B=1 A=2,B=l 482. 下面程序运行后,单击按钮 Command1,输出结果是________。 Public Sub S(x As Single,Y As Single) t=x:x=t/y:y=t Mod Y End Sub Private Sub Command1_Click() Dim a As Single Dim b As Single a=5:b=4 S a,b print a,b End Sub A.5 4 B.1 1 C.1.25 4 D.1.25 1

483. 单击命令按钮时,下列程序的执行结果 为________。 Private Sub Commaud1_click() Dim X As Integer,Y As Integer x=12:y=32 Call Proc(x,Y) Print x;Y End Sub Public Sub Proc(n As Integer,ByVal m As Integer) n=n Mod 10 m=m Mod 10 End sub A. 12 32 B.2 3 C.2 32 D. 12 3 484. 关于过程调用正确的是________。 A.过程要用 Call 语句调用 B.Sub 过程一定要用 Call 语句调用 C.过程都可以用赋值语句的形式调用 D.只要写上过程名并给出实参就能调用过程 485. 编写如下事件过程: Private Sub Form_Click() Dim a As Integer,b As Integer a=10:b=20 Call pl(a,b) Print"a=";a;"b=";b End Sub Private Sub pl(ByVal x As Integer,y As Integer) x=5 y=x+y End Sub 程序运行时,单击窗体后,窗体上显示的值是________。 A.a=10 b=20 B.a=10 b=25 C.a=5 b=25 D.a=5 b=20 486. 单击命令按钮时,下列程序的执行结果为________。 Private Sub Command1_Click() Dim x As Integer, Y As Integer x = 50 Y = 78 Call PPP(x, Y)

Print x; Y End Sub Public Sub PPP(ByVal n As Integer, ByVal m As Integer) n = n \ 10 m = m \ 10 End Sub A.08 B.50 78 C.450 D.78 50 487. 单击命令按钮时,下列程序的执行结果为________。 Private Sub Command1_Click() Dim x As Integer,Y As Integer x=12:y=32 Call PCS(x,Y) Print x;Y End Sub Public Sub PCS(ByVal n As Integer,ByVal m As Integer) n=n mod 10 m=m mod 10 End Sub A.12 32 B.232 C.23 D.123 488. 3. 要想从子过程调用后返回两个结果,下面子过程语句 说明合法的是________。 A.Sub f2(ByVal n%,ByVal m%) B.Sub f1( n%,ByVal m%) C.Sub f1(n%,m%) D.Sub f1(ByVal n%,m%) 489. 窗体上有 Text1、Text2 两个文本框及一个命令按钮 Command1,编写下列 程序: Dim y As Integer Private Sub Command1 _ Click () Dim x As Integer x=2 Text1.Text=p2(p1(x),y) Text2.Text=p1(x) End Sub Private Function p1(x As Integer) As Integer x=x+y:y=x+y p1 = x+y End Function

Private Function p2(x As Integer,y As Integer)As Integer p2=2*x+y End Function 当单击命令按钮后,文本框 Text1 和 Text2 内的值分别是________ A.2 4 B.4 8 C.10 10 D.4 4 490. 单击命令按钮时,下列程序段的执行结果为________。 Public Sub Procl(n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer x=12;y=34 Call Procl(x,y) Print x;y End Sub A.12 34 B.2 34 C.2 3 D.12 3 491. 单击按钮时,以下程序运行后的输出结果是________。 Private Sub procl(x As Integer,y As Integer,z As Integer) x=3*z y=2*z z=x+y End Sub Private Sub Command1_Click() Dim x As Integer,y As Integer,z As Integer x=1:y=2:z=3 Call procl(x,x,z) Print x;x;z Call procl(x,y,y) Print x;y;y End Sub A.6 6 12 B.9 9 10 6101051010 C.9 6 12 D.9 10 10 910155410 492. 单击命令按钮时,下列程序代码的执行结果为________。

Private Sub Procl(n As Integr,By Val m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x=12 y=34 Call Procl(x,y) Print x;y End Sub A.1 34 B.2 34 C.2 3 D.12 34 493. 在代码中定义了一个子过程: Sub P(a,b) ??? End Sub 下面________ 调用该过程的格式是正确的。 A.Call P B.Call P 10,20 C.Call P(10,20) D.P(10,20) 494. 下列关于过程叙述不正确的是________。 A.过程的传值调用是将实参的具体值传递给形参 B.过程的传址调用是将实参在内存的地址传递给形参 C.过程的传值调用参数是单向传递的,过程的传址调用参数是双向传递的 D.无论过程传值调用还是过程传址调用,参数传递都是双向的 495. 下列不一定是传值的虚实结合方式的选项是________。 A.调用过程时实参为表达式 B.调用过程时实参为常量 C.调用过程时实参为变量名 D.调用过程时实参将变量名用括号括起来 496. 设有如下过程: Sub ff(x,y,z,) x=y+z EndSub 以下所有参数的虚实结合都是传址方式的调用语句是________。 A.Call ff(5,7,z) B.Call ff(x,y,z) C.Call ff(3+x,5+y,z) D.Call ff(x+y,x-y,z)

497. 5. 下面过程运行后显示的结果是________。 Public Sub F1(n%,ByVal m%) n=n Mod 10 m=m\10 End Sub Private sub command1_click() Dim x%,y% X=12 Y=34 Call F1(x,y) Print x,y End sub A.2 34 B.12 34 C.2 3 D.12 3 498. 6. 如下程序,运行的结果是________. Public Sub p1(x%, y%) Dim c% x = 2 * x: y = y + 2: c = x + y End Sub Public Sub p2(x%, ByVal y%) Dim c% x = 2 * x: y = y + 2: c = x + y End Sub Private Sub Command1_Click() Dim a%, b% a = 2: b = 4: c = 6 Call p1(a, b) Print "a="; a; "b="; b; "c="; c Call p2(a, b) Print "a="; a; "b="; b; "c="; c End Sub A.a=2 b=4 c=6 a=4 b=6 c=10 B.a=4 b=6 c=10 a=8 b=8 c=16 C.a=4 b=6 c=6 a=8 b=6 c=6 D.a=4 b=6 c=14 a=8 b=8 c=6 499. 7. 如下程序的运行结果是________。 Public Sub Proc(a%()) Static I%

Do a(i)=a(i)+a(i+1) i=i+1 Loop While i<2 End Sub Private Sub Command1_Click() Dim m%,i%,x%(10) For i=0 to 4:x(i)=I+1:Next i For i=1 to 2:Call Proc(x):Next i For i=0 to 4:Print x(i);:Next i End Sub A.3 4 7 5 6 B.3 5 7 4 5 C.2 3 4 4 5 D.4 5 6 7 8 500. 下列叙述中正确的是________。 A.在窗体的 Form_Load 事件过程中定义的变量是全局变量 B.局部变量的作用域可以超出所定义的过程 C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量 同名,但其作用域只限于该过程 D.在调用过程时,所有局部变量被系统初始化为 0 或空字符串 501. 下列说法错误的是________。 A.在同一模块不同过程中的变量可以同名 B.不同模块中定义的全局变量不可以同名 C.引用另一模块中的全局变量时,必须在变量名前加模块名 D.同一模块中不同级的变量可以同名 502. 要强制显示声明变量,可在窗体模块或标准模块的声明段中加入语句 ________。 A.Option Base 0 B.Option Explicit C.Option Base 1 D.Option Compare 503. 根据变量的作用域,可以将变量分为 3 类,分别为________。 A.局部变量、模块变量和全局变量 B.局部变量、模块变量和标准变量 C.局部变量、模块变量和窗体变量 D.局部变量、标准变量和全局变量 504. 在窗体模块的通用声明段中声明变量时,不能使用________关键字。 A.Dim B.Public C.Private D.Static 505. 使用 Public Const 语句声明一个全局的符号常量时,该语句应放在 ________。

A.过程中 B.窗体模块的通用声明段 C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段 506. 在窗体上画一个名称为 Command1 的命令按钮然后编写如下程序: 窗体显示的结果是________。 Private Sub Command1_Click() Dim X As Integer Static Y As Integer Cls x=x+5 y=y+3 Print X,Y End Sub 程序运行时,两次单击命令按钮 Command1 后, A.10 6 B.5 6 C.5 3 D.10 3 507. 定义过程的格式中, Static 关键字的作用是指定过程中的局部变量在内存 中的存储方式。若使用了 Static 关键字,则________。 A.每次调用此过程,该过程中的局部变量都会被重新初始化 B.在本过程中使用到的,在其他过程中定义的变量也为 Static 型 C.每次调用此过程时,该过程中的局部变量的值保持在上一次调用后的值 D.定义了该过程中定义的局部变量为“自动”变量 508. 在窗体上画一个名称为 Command1 的命令按钮,编写下列程序: Private Sub Command1_Click() Dim a As Integer Static b As Integer a=a+b b=b+4 Print a,b End Sub 程序运行后,单击该命令按钮三次,屏幕上显示的值是________。 A.4 12 B.O 4 C.4 8 D.8 12 509. 如果在程序中要将 c 定义为静态变量,且为整型数,则应使用的语句是 ________。 A.Redim a As Integer

B.Static a AS Integer C.Public a As Integer D.Dim a As Integer 510. 4. 在过程中定义的变量,若希望在离开该过程后,还能 保存过程中局部变量的值,则应使用________关键字在过程中定义局部变量。 A.Dim B.Private C.Public D.Static 511. 下列程序运行时,两次单击窗体后,显示的结果是________。 Private Sub Form_Click() Dim b As Integer Static C As Integer b=b+2 c=c+2 Print”b=”;b;”c=”;c End Sub A.b=2 c=2 b=2 c=2 B.b=2 c=2 b=2 c=2 C.b=2 c=2 b=2 c=4 D.b=2 c=2 b=4 c=2 512. 单击一次命令按钮后,下列程序的执行结果是________。 Private Sub Command1_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public Function P(N As Integer) Static Sum For i=I To N Sum=Sum+i Next i P=Sum End Function A.15 B.25 C.35 D.45 513. 在窗体上画一个名称为 Command1 的命令按钮,然后编写如下程序: Private Sub Command1_Click() Static X As Integer

Static Y As Integer Cls Y=1 Y=Y+5 X=5+X Print X,Y End Sub 程序运行时,3 次单击命令按钮 Commandl 后,窗体上显示的结果为 ________。 A.15 16 B.15 6 C.15 15 D.5 6 514. 有关 Vb 应用程序中过程的说法正确的是________。 A.过程的定义可以嵌套,但过程的调用不能嵌套 B.过程的定义不可以碌套,但过程的调用可以嵌套 C.过程的定义和调用都可能嵌套 D.过程的定义和调用都不能嵌套 515. 定义过程语句中的<参数表列>可以是________。 A.变量名或数组名 B.表达式或变量名 C.数组元素或变量名 D.常量或变量名 516. Function 过程有别于 Sub 过程的最主要的特点是________。 A.Function 过程一定要有虚参,而 Sub 过程可以没有虚参 B.Function 过程的终端语句是 End Function,而 Sub 过程的终端语句是 End Sub C.Function 过程是用于计算函数值的,而 Sub 过程是用于改变属性值的 D.Function 过程要返回函数值,而 Sub 过程没有值返回 517. 在 VB 中,过程共有三种,它们是________。 A.事件过程,子过程和函数过程 B.Sub 过程,函数过程和属性过程 C.事件过程,函数过程和通用过程 D.Sub 过程,函数过程和通用过程 518. 标准模块存盘后,形成的磁盘文件扩展名是________ A.bas B.cls C.frm D.txt 519. 以下关于复选框的说法,正确的是________。 A.复选框的 Enabled 属性用于决定该复选框是否被选中 B.复选框的 Value 属性用于决定该复选框是否被选中 C.复选框的 Checked 属性用于决定该复选框是否被选中 D.复选框的 Visible 属性用于决定该复选框是否被选中

520. 复选框的 Value 属性为 1 时,表示________。 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作有误 521. 假定定时期的 Interval 属性为 1000,Enabled 属性为 True,调用下面的 事件过程,程序运行结束后变量 x 的值为________。 Dim x As Integer Sub Timer1_Timer() For i = 1 To 10 x=x+1 Next i End Sub A.1000 B.10000 C.10 D.以上都不对 522. 确定复选框是否选中,可访问的属性是________。 A.Value B.Checked C.Selected D.Caption 523. 在窗体上画一个名称为 Check1 的复选框,在程序运行过程中,若选中复 选框,则 Check1.Value 的值是________。 A.True B.2 C.0 D.1 524. 在程序运行期间, 当滚运条的滑块被拖动时,则立即触发的滚动条事件 是 ________ 。 A.Click B.Chang C.Scrojl D.DblClick 525. 当滚动条位于最左端或最上端时,Value 属性被设置为________。 A.Min B.Max C.Max 和 Min 之间 D.Max 和 Min 之外 526. 不能触发滚动条 Change 事件的操作是________ A.拖动滚动块 B.单击两端箭头 C.单击滚动块 D.单击箭头与滚动块之间的滚动条

527. 单击滚动条的滚动箭头时,产生的事件是________。 A.Click B.Scroll C.Change D. Move 528. 能触发滚动条 Scorll 事件的操作是________。 A.拖动滚动条中滑块 B.单击滚动条中滑块 C.单击滚动条两端箭头 D.单击箭头与滑块之间的滚动条 529. 要使文本框只具有垂直滚动条则就________。 A.将其 Multiline 设置为 True,同时将 Scrollbars 属性设置为 0 B.将其 Multiline 设置为 True,同时将 Scrollbars 属性设置为 1 C.将其 Multiline 设置为 True,同时将 Scrollbars 属性设置为 2 D.将其 Multiline 设置为 True,同时将 Scrollbars 属性设置为 3 530. 通常情况下,垂直滚动条的值是________。 A.由下往上递增 B.由上往下递增 C.由左到右递增 D.由右到左递增 531. 若要获得滚动条的当前值,可访问的属性是________ A.Text B.Value C.Max D.Min 532. 图像框中的 stretch 属性为 true 时,其作用是________ A.只能自动设定图像框长度 B.图形自动调整大小以适应图像控件 C.只能自动缩小图像 D.只能自动扩大图像 533. 图像框(Image)和图片框(Picturebox)在使用时有所不同,以下叙述中正 确的是________ . A.图片框比图像框占内存少 B.图像框内还可包括其他控件 C.图片框有 Stretch 属性而图像框没有 D.图像框有 stretch 属性而图片框没有 534. 要使一个图片框控件能自动地附着在窗体的一条边上,应设置它的 ________ 属性。 A.Picture B.Aligmen C.Border D.Align 535. 当窗体启动时可通过________属性控制窗体位于所有者的中心位置。 A.MDIChild

B.LinkMode C.WindowState D.StartUpPosition 536. 当对 DrawWidth 进行设置后,将影响________。 A.Line、Circle、Pset 方法 B.Line、Shape 控件 C.Line、Circle、Point 方法 D.Line、Circle、Pset 方法和 Line、Shape 控件 537. 窗体上有一个图片控件和一个按钮控件,下列程序执行的结果是________ Private Sub Command1_Click() Picture1.Picture = LoadPicture("c:\1.jpg") Picture1.Cls Picture1.Print "Test" End Sub A.窗体无显示,图片框显示图片和文字 Test B.窗体上出现 Test 文本,图片框无显示 C.窗体上出现 Test 文本,图片框显示图片 1.jpg D.窗体无显示,图片框只显示 Test 文字 538. 关于 Image 控件和 PictureBox 控件的说明,其中错误的是________。 A. Image 控件和 PictureBox 控件都支持 Print 方法 B.Image 控件和 PictureBox 控件都有 Picture 属性 C.Image 控件和 PictureBox 控件都可以用 LoadPicture 函数把图形文件装入 控件中 D.Image 控件和 PictureBox 控件都能在属性窗口装入图形文件, 也都能在运 行期间装入 图形文件 539. 设置命令按钮的属性时,只有将________属性设置为 1,Picture 属性才 有效,否则无效。 A.Style B.Caption C.Enabled D.DefauIt 540. 下面的属性中,用于自动调整图像框中图形内容的大小的是________ A.picture B.CurrentY C.CurrentX D.stretch 541. 为了使图像框适应图片的大小,下边________属性设置正确。 A.AutoSize=True B.Stretch=False C.Stretch=True D.Stretch=False

542. 在程序代码中将图片文件 mypic.jpg 装入图片框 Pictrue1 的语句是 ________。 A.Picture1.Picture="mypic.jpg" B.Picture1.Image="mypic.jpg" C.Picture1.Picture=LoadPicture("mypic.jpg") D.LoadPicture("mypic.jpg") 543. 为使图像框的大小自动适应图像的大小,则应________ A.将其 AutoSize 属性值设置为 True B.将其 AutoSize 属性值设置为 False C.将其 Stretch 属性值设置为 True D.将其 Stretch 属性值设置为 False 544. 要向图片框 P1 中加载“C:\WIND0wS\Clouds.bmp”图像文件,应使用 语句________。 A."Picture1.Picture=" C:\WINDOWS\Clouds.Bmp B.Picture1.Picture=LoadPicture("C:\WINDOWS\Clouds.bmp") C.P1.Picture1=LoadPicture(C:\WINDOWS\Clouds.bmp) D.P1.Picture1=LoadPicture("C:\WINDOWS\Clouds.bmp") 545. 要清除已经在图片框 P1 中打印的字符串而不清除图片框中的图像,应使 用语句________。 A.P1.Cls B.P1.Picture=LoadPicture("") C.P1.Print"" D.P1.Picture 546. ________ 使图像(Image)控件中的图像自动适宜控件的大小。 A.将控件的 AutoSize 属性设为 True B.将控件的 AutoSize 属性设为 False C.将控件的 Stretch 属性设为 True D.将控件的 Stretch 属性设为 False 547. 图像框有一个属性,可以自动调整图形的大小以适应图像的尺寸,这个属 性是________ A.AutoSize B.Stretch C.AutoRedraw D.Appearance 548. 下列对象不能响应 Click 事件的是________。 A.列表框 B.图片框 C.窗体 D.计时器 549. 定时器的 Intenral 属性以________ 为单位指定 Timer 事件之间的时间 间隔。 A.分 B.秒 C.毫秒

D.微秒 550. 在窗体上有一个文本框控件,名称为 TextTime;一个计时器控件,名称为 Timer1。 要求每一秒在文本框中显示一次当前的时间。程序为: Private Sub Timer1_________ TextTime.text=Time End Sub 在下划线上应填入的内容是:________。 A.Enabled B.Visible C.Interval D.Timer 551. 为启动定时器控件,需要设置定时器的属性是________。 A.Name B.Interval C.Left D.Top 552. 若想使时钟控件每隔 0.25 秒触发一次 Timer()事件,则可将 Intenral 属 性值设为________ A.Interval=0.25 B.InterVal=25 C.Interval=250 D.InterVa1=2500 553. 如果希望定时器控件每秒产生 10 个事件,则要将 Interval 属性的值设为 ________ . A.100 B.200 C.300 D.400 554. 对话框在关闭之前,不能继续执行应用程序的其它部分,这种对话框属于 ________。 A.输入对话框 B.输出对话框 C.模式(模态)对话框 D.无模式对话框 555. CommonDialog 控件可以显示()对话框。 A.6 种 B.5 种 C.4 种 D.7 种 556. 设已经在窗体上添加了一个通用对话框控件 CommonDialogl,以下正确的 语句是________。 A.CommonDialog1.Filter=ALLFiles |*.*| Pictures(*.Bmp)|*.Bmp

B.CommonDialog1.Filter= “ALL Files”|*.*”|Pictures(*.Bmp)”|*·Bmp C.CommonDialog1.Filter=ALL Files|I*.*| Pictures|(*.Bmp)|*.Bmp D.CommonDialog1.Filter="ALL Files |*.*|Pictures(*.Bmp)|*.Bmp" 557. 在下列关于通用对话框的叙述中,错误的是________。 A.CommonDialog1.ShowFont 显示“字体”对话框 B.在“打开”或“另存为”对话框中,用户选择的文件名可以经过 FileTitle 属性返回 C.在“打开”或“另存为”对话框中,用户选择的文件名及其路径可以经过 FileTitle 属性返回 D.通用对话框可以用来制作和显示“帮助”对话框 558. 以下正确的语句是________。 A.CommonDialog1.Filter=All Files|*.*|Pictures(*.Bmp)|*.Bmp B.CommonDialog1.Filter=”All Files“|“*.*“|”Pictures(*.Bmp)“|”*.Bmp C.CommonDialog1.Filter=“All Files|*.*|Pictures(*.Bmp)|*.Bmp” D.CommonDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|*.Bmp} 559. 设已经在窗体上添加了一个通用对话框控件 CommonDialog1,以下正确的 语句是________ A.CommonDialog1.Filter=ALL Files︱*.*︱Pictures(*.Bmp) ︱*.Bmp B.CommonDialog1.Filter=”ALL Files1” ︱*.*︱Pictures(*.Bmp)*.Bmp C.CommonDialog1.Filter=-ALL Files︱*.*︱Pictures(*.Bmp)︱*.Bmp D.CommonDialog1.Filter=”ALL Files ︱*.*︱Pictures(*.Bmp) ︱ *.Bmp” 560. 通用对话框中能打开“颜色对话框”的方法是________ A.ShowOpen B.ShowColor C.ShowSave D.showPrinter 561. 窗体上建立了一个名为 CommonDialong1 的通用对话框,用下面的语句建 立一个对话框: CommonDiaong1.action=2 则以下语句与之等价的是________ A.CommonDialon1.ShowOpen B.CommonDiaog1.ShowSave C.CommonDiaog1.ShowColor D.CommonDiaog1.ShowFont 562. 在窗体上建立通用对话框需要添加的控件是________。 A.Data 控件 B.Form 控件 C.CommonDialog 控件 D.VBComboBox 控件 563. 下列说法正确的是________。

A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器 B.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器 C.只有当某个窗体为当前活动窗体时,才能打开菜单编辑器 D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令,打开菜单编 辑器 564. 在用菜单辑器设计菜单时,必须输入的项是________ A.快捷键 B.标题 C.索引 D.名称 565. 在 Visual Basic 中,要设置菜单项的快捷访问键,应使用哪个符号 ________。 A.& B.* C.$ D.@ 566. 关于 Visual Basic 的菜单设计叙述正确的是________ A.Visual Basic 的菜单也是一个控件,存在于 Visual Basic 的工具箱中 B.Visual Basic 的菜单也有外观和行为的属性 C.Visual Basic 的菜单设计在“菜单编辑器”中进行的,它不是一个控件 D.菜单的属性也是在“属性窗口”中设置的 567. 在菜单编辑器设计菜单式,必须输入的项有________。 A.快捷键 B.标题 C.索引 D.名单 568. 在下列关于菜单的说法中,错误的是________。 A.每个菜单项都是一个控件,与其他控件一样也有自己的属性和事件 B.除了 Click 事件之外,菜单项还能响应其他的,如 DbClick 等事件 C.菜单项的捷径键不能任意设置 D.在程序执行时,如果菜单项的 Enabled 属性为 False,则该菜单项变成灰 色,不能被用户选择 569. 假定有一个菜单项, 名为 MenuItem, 为了在运行时使该菜单项失效(变灰), 应使用的语句为________。 A.MenuItem.Enabled=False B.MenuItem.Enabled=True C.MenuItem.Visible=True D.MenuItem.Visible=Flase 570. 要使某菜单能够通过按住键盘上的 Alt 键及 K 键打开,应________。 A.在“名称”栏中“K”字符前加上“&” B.在“标题”栏中“K”字符后加上“&” C.在“标题”栏中“K”字符前加上“&” D.在“名称”栏中“K”字符后加上“&”

571. 在下列程序中,________不论是用鼠标左键还是右键,弹出菜单项都响应 菜单单击。 A.Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) If Button = 2 Then PopupMenu Menu_Test, 2 End Sub B.Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) PopupMenu Menu_Test, 0 End Sub C. Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) PopupMenu Menu_Test End Sub D.Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) If (Button = vbLeftButton) Or (Button = vbRightButton) Then PopupMenu_Test End Sub 572. 确保窗体上所有文本框中输入的全都是数字的最佳方法是________. A.在窗体的 KeyDown 或 KeyUp 事件过程中摒弃非数字输入 B.在窗体的 KeyPress 事件摒弃非数字输入 C.再没一个文本框的 KeyDown 或 Keyup 事件过程中摒弃非数字输入 D.再没一个文本框的 KeyPress 事件过程中摒弃非数字输入 573. 15.当用户安按下放一个键后会触发 KeyPress、KeyUp 或 keydown 事件, 这三个是检索放生的顺序是________. A.keypress 、keydown、keyup B.keydown、keyup、keypress C.keydown、keypress、keyup D.没有规律 574. 在下列关于键盘事件的说法中,正确的是________. A.按下键盘上的任意一个键都会引发 KeyPress 事件 B.大键盘上的“1”键和数字键盘的“1”间的 KeyCode 码相同 C.KeyDown 和 KeyUp 的事件过程中有 KeyAscii 参数 D.大键盘上的“4”键的上档子附是“$”的 ASCII 值 575. 在 KeyDown 或 KeyUp 的事件过程中,能用来检查 Ctrl 和 F3 键是否同时按 下的表达式为________ A.(Button=vbCtrlMask) And (KeyCode=vbKeyF3) B.KeyCode=vbKeyControl+vbKeyF3 C.(KeyCode=vbKeyF3) And (Shift And vbCtrlMask) D.(Shift And vbCtrlMask) And (KeyCode and vbKeyF3) 576. 与键盘操作有关的事件有 KeyPress、KeyUp 和 KeyDown 事件,当用户按下 并且释放一个键后,这三个事件发生的顺序是________。

A.KeyDown、KeyPress、KeyUp B.KeyDown、KeyUp、KeyPress C.KeyPress、KeyDown、KeyUp D.没有规律 577. 下列说法正确的是________ A.KeyDown 事件在 KeyPress 事件前发生 B.KeyPress 过程等不可以使用 Call 语句来调用 C.MouseUp 事件在 Click 事件之后发生 D.控件响应 Click 事件后不再响应 MouseUp 事件 578. 窗体的隐藏和删除,分别用在不同的场合,隐藏 Form1 和删除 Form1 的命 令是________ A. Hide.Form1 Unload.Form1 B.Form1.Hide Form1.Unload C.Form1.Hide Unload.Form1 D.Hide.Form1 Form1.Unload 579. 决定一个窗体有无控制菜单的属性是________ A.MinButton B.VB98 C.MaxButton D.Windows 580. 若要将窗体从内存中卸载出去,应该使用的方法是________ 。 A.Show B.UnLoab C.Load D.Hide 581. 当窗体大小改变时,要使其中的控件也 按比例发生变化,应使用窗体的________ A.AutoSize 属性 B.Resize 事件 C.AutoRedraw 属性 D.Stretch 方法 582. 要从自定义对话框 Form2 中退出,可以在该对话框的“退出”按钮 Click 事件过程中使用________语句。 A.Form2.Unload B.Unload.Form2 C.Hide.Form2 D.Form2.Hide 583. 与 Forml.Show 方法效果相同的是________。 A.Form1.Visible=True B.Form1.Visible=False C.Visible.Form1=True D.Visible.Form1=False 584. 要从自定义对话框 Form2 中退出可以在该对话框的“退出”按钮 Click 事 件过程中使用________语句。

A.Form2.Unload B.Unload Form2 C.Hide Form2 D.Form2.Hide 585. 在 Visual Basic 中,要将一个窗体加载到内存进行预处理但不显示,应 使用的语句是________。 A.Load B.Show C.Hide D.Unload 586. 如果 Form1 是启动窗体, 并且 Form1 的 Load 事件过程中有语句 Form2.Show, 则程序启动后________。 A.发生一个运行时错误 B.发生一个编译错误 C.在所有的初始化代码运行后 Form1 是活动窗体 D.在所有的初始化代码运行后 Form1 是活动窗体 587. 当用户将焦点移到另一个应用程序时,当前应用程序的活动窗体将 ________。 A.发生 DeActivate 事件 B.发生 LostFocus 事件 C.发生 DeActivate 和 LostFocus 事件 D.DeActivate 和 L ostFocus 事件都不发生 588. 每建立一个窗体,工程管理器窗口中就会增加一个________。 A.窗体文件 B.工程文件 C.程序模块文件 D.类模块文件 589. 在 Visual Basic 中,要将一个窗体装载到内存进行预处理,但不显示, 应该使用语句________。 A.Show B.Hide C.Load D.UnLoad 590. 在下列关于自定义对话框的叙述中,错误的是________. A.作为对话框的窗体的 BorderStyle、ControlBox、MaxButton 和 MinButton 应分别设置为 1、True、False 和 False B.语句 frmAbout.Show vbModeless,frmMain 将 frmAbout 作为 frmMain 的无 模式子窗体显示 C.可以将对话框分成两种类型:模式的和无模式的 D.语句 frmAbout.Show 将 frmAbout 作为无模式对话框显示 591. 在下面关于窗体事件的叙述中,错误的是________. A.在窗体的整个生命周期中,Initialize 事件只触发一次 B.在用 Show 显示窗体时,不一定发生 Load 事件 C.每当窗体需要重画时,肯定会触发 Paint 事件

D.Resize 事件是在窗体的大小有所改变时被触发 592. 下面关于多重窗体的叙述中,确的是________. A.作为启动对象的 Main 子过程只能放在窗体模块中 B.如果启动对象是 Main 子过程,则程序启动时不加任何窗体,以后该过程 根据不同情况决定是否加载或加载块 C.没有启动窗体,程序不能执行 D.其他都不对 593. 在下列说法中,正确的是________。 A.通过适当的设置,可以在程序运行期间让定时器显示在窗体上。 B.在列表框中不能进行多项选则 C.

相关文章:
VB上机练习题(二).doc
VB上机练习题(二) - VB 上机练习题(二) 18、新建一个工程,完成应用程
VB练习题(1)(1)(1) 2.doc
VB练习题(1)(1)(1) 2 - 选这题 1.在Visual Basic 中称对象的数据为___D___。 A、方法 B、事件 C、封装 D、属性 2. 设窗体上有一个...
VB练习题2.pdf
VB练习题2 - 1. 项目文件的扩展名是() A. .vb B..sln C..exe D..vbproj 2. 集成开发环境有两类窗口:浮动和固定,下面的()窗口不是浮动窗口。 A. ...
vb课后练习答案习题解答 (2).doc
vb课后练习答案习题解答 (2) - 中华 IT 学习网 www.100itxx
2016年计算机二级《VB》基础练习题及答案(2)资料.doc
2016年计算机二级《VB》基础练习题及答案(2)资料 - 2016 年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为 Forml 的窗体上添加两个名称分别为 Text...
2016年计算机二级《VB》基础练习题及答案(2).pdf
2016年计算机二级《VB》基础练习题及答案(2) - 2016 年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为 Forml 的窗体上添加两个名称分别为 Textl ...
2016年计算机二级《VB》基础练习题及答案(2)课件.doc
2016年计算机二级《VB》基础练习题及答案(2)课件 - 2016 年计算机二级《VB》基础练习题及答案(2) 1[简答题]在名称为 Forml 的窗体上添加两个名称分别为 Text...
VB练习题(2).doc
VB练习题(2) - 练习二 6-10: DBDCB 一、单选题 1、用___属
VB综合练习题二.doc
VB综合练习题二 - VB 综合练习题二 一.选择题 1.VB 程序设计的完整步骤是( (A)可视化程序设计 (C)可视化程序设计和代码程序设计 (A)Caption (A)vb+1 (A...
vb练习题2含答案.txt
m2 的 VB 算术表达式是___。 e ? x ? sin x (A) (12*x+5*y-Sqr(Abs(d^3-m^2)))/Exp(-x)/Sin(x) (B) (12*x+5y-Sqr(Abs(d^3-m^2...
VB测试题(一)及答案.doc
VB测试题(一)及答案 - 测试题(一) 一:选择题 1)VB 是一种面向对象的可视化程序设计语言,采取了( A:事件驱动 C:从主程序开始执行 2)在 VB 中最基本的...
VB模拟试题及参考答案(2).doc
VB模拟试题及参考答案(2) - 一、选择题 1.数据结构作为计算机的一门学科,
VB综合练习题二及参考答案.doc
VB综合练习题二及参考答案 - VB 综合练习题二 综合练习题二 一、选择题 [ (1)(15),每小题 2 分,共 30 分 ] , ?? (1) 以下变量名中合法的是 A...
VB测试题(二)--语言基础和顺序结构及答案.doc
VB测试题(二)--语言基础和顺序结构及答案_IT认证_资格考试/认证_教育专区
vb练习题2.doc
vb练习题2 - Vb 练习题(二) 1.下列程序段的运行结果为___B___。
第二部分 VB练习题与答案.doc
部分 VB练习题与答案 - 第2章 一、选择题 数据类型与表达式 1. 一个语句行内写多条语句时,每个语句之间用( )符号分隔。 A. , B. : C. 、 D. ...
VB练习题2.doc
VB练习题2 - vb练习题,复习专用,大学考试专用,考试专题,二级专用... VB练习题2_工学_高等教育_教育专区。vb练习题,复习专用,大学考试专用,考试专题,二级专用 ...
VB模拟试题2.doc
VB模拟试题2 - 笔试部分 一、选择题 1.数据结构作为计算机的一门学科, 主要研究数据的逻辑结构、 对各种数据结构进行的 运算,以及( ) A.数据的存储结构 B....
第二部分 VB练习题与答案1.pdf
部分 VB练习题与答案1 - 第2章 一、选择题 数据类型与表达式 1. 一个语句行内写多条语句时,每个语句之间用( )符号分隔。 A. , B. : C. 、 D....
VB期末试题2(内蒙古师范大学).pdf
VB期末试题2(内蒙古师范大学) - 要求:编程,输入圆的半径,计算并输出圆的面积,按下列要求分别实现: (1)在打开的工程的Form1窗体中设计如图1所示的界面 (2)创建...
更多相关文章: