12、决定一个控件不可见，要将该控件的( A、Enabl
C、Width 13、以下算术运算符中，优先级最低的是( A、\ )。（1 分）
D、Text
B、/
C、^ 14、下列表达式中，合法的是( A、a<b+c )。（1 分）
D、*
B、a≥b+c
C、a≤b+c 15、表达式 4+5\6*7/8 mod A、4 9 的值是( )。（1 分）
End Sub,运行时，单击按钮，输出结果是( B、6 18
)。（1 分）
C、12 36、若有 k
6 = 10，则循环结构 Do Until k < 0: k =
D、12 k -
18 )。（1 分）
1: Loop 中的循环体执行次数是(
A、9
B、10
C、11 37、下列语句中，不能实现循环 100 次的是( A、N=0:Do: N=N+1: Loop Until N>=100 )。（1 分）
25、设有如下变量声明：Dim A、TextDate=#1/1/2002#
C、TextDate=date("1/1/2002") 26、 在立即窗口中运行以下语句， a="Beijing" 分） A、Beijing 和 ShangHai 中间没有空格
D、TestDate=Format("m/d/yy","1/1/2002") :b="ShangHai" :Print a,b 对其输出结果的描述中， 正确的是( )。 （1
D、a≠b+c
B、5
C、6 16、下列语句中，合法的是( A、Print a:spc )。（1 分）
D、7
B、Print TAB(10)*"VB"
C、Print
TAB(10): 1234.56 )。（1 分）
D、Print "Date(
)"+"Time(
)"
17、下列变量名写法错误的是( A、abc
C、60 45、下列语句错误的是( A、Private )。（1 分）
D、13
a(-10 To 5)
B、Dim a(N)
'N 为变量
C、Dim
a() As Integer
D、Dim a%(10,-10
To -10)
46、能使一维数组 arr(6)元素个数加 1，但保留数组中原有元素的语句是( A、ReDim arr(7)
C、2 48、以下定义数组或给数组元素赋值的语句中，错误的是( A、Dim a : a=Array(1,2,3,4,5)
D、3 )。（1 分） B、Dim a( ) : a=Array(1,2,3,4,5)
C、Dim
A%() : a=Array(1,2,3,4,5) Dim
D、-6
B、exit
C、end 43、要从 For … Next 循环中退出循环，应使用(
D、sub )语句。（1 分）
A、Exit
B、Exit For
C、Continue
D、Stop Loop )。（1 分）
44、如下数组声明语句 Dim a(3, -2 To 1, 5)中数组 a 包含的元素个数为( A、96 B、75
B、abc123
C、abc_123 18、判断正数 a 的开平方是否为整数的正确语句为( A、a >0 and sqr(a)=chr(a)
D、123abc )。（1 分） B、a >0 or sqr(a)=abs(a)
C、a
>0 or
sqr(a)=int(sqr(a)) : b!=14.5，则执行 Print a%;b!
C、a 值为 5，b 值为 5 28、下列语句中，正确的是( A、If x<3*y And x>y )。（1 分） Then y=x^3
D、a 值为 5，b 值为 3
B、If x<3*y And
x>y Then y=3x
C、If x<3*y 29、下面程序段 Dim A、5
: x>y x%:
Then y=x^3 x=5: If x Then y=x+1
B、Beijing 和 ShangHai 中间有 1 个空格
C、Beijing 和 ShangHai 中间有 6 个空格 27、语句段 A=3: B=5:T=a：a=b: b=t 执行后( A、a 值为 3，b 值为 3 )。（1 分）
D、Beijing 和 ShangHai 前面有 7 个空格
B、a 值为 3，b 值为 5
C、Int(Rnd*51)+49 21、函数 UCase("basic")的值为( A、Basic )。（1 分）
D、Int(Rnd*51)+50
B、basic
C、BAsic 22、设 a="39 级台阶"，使 b="台阶"的语句是( A、Right(a,4) )。（1 分）
D、BASIC
B、Instr(a,5,4)
D、x> y and>z Choose(nop, "春", "夏", "秋", "冬") 后，op 的值为( )。
B、夏
C、秋 41、执行下列语句 a = A、5 3:x = IIf(a >
D、冬 5, int(-5.6), Fix(5.6))后，x 的值是( B、-5 )。（1 分）
C、6 42、结束当前程序运行的语句是( A、quit )。（1 分）
A、Today
B、Tomorrow
C、Yesterday 31、窗体上有一个命令按钮 Command1,编写如下事件过 程: Private Sub
D、5
Command1_Click() :x = Val(InputBox("x="))
: y
= InputBox("y=") :
Print x
+ y
: E
nd Sub, 单击命令按钮，先后在两个输入对话框中输入 123 和 321，窗体显示的内容是( A、444 B、123321
)。（1 分）
C、123+321 32、执行语句 MsgBox "AAA", 2, "BBB" A、AAA
D、出错信息 后，所产生的消息框的标题是( B、BBB )。（1 分）
C、Left(a,5,4)
D、mid(a,4,2)
23、下列( A、100
)是不合法的常量。（1 分） B、10E02
C、100.0 24、下列对变量的定义中，定义 X 为变体型变量的是( A、Dim X as Double
D、10e0.5 )。（1 分） B、Dim X
C、Dim
X!
D、X%=23 TestDate As Date，为变量 TestDate 正确赋值的表达方式是( B、TestDate=#"1/1/2002"# )。（1 分）
C、2 33、已知：a = "Software and Hardware"，b = )。（1 分） Len(a)，c
D、出错，不能产生消息框 = Right(a, 8)，执行 MsgBox a, b, c 后，在弹出的
信息框的标题栏中显示的信息是( A、Software and Hardware
B、Software
D、If x<3*y And Else y=x 运行后，y 结果是( B、6
x>y Then y=x**3 )。（1 分）
C、1 30、执行语句 显示的信息是( a = InputBox("Today", )。（1 分）
D、显示出错信息 "Tomorrow", "Yesterday", 5, 5)，将显示一个输入对话框，在对话框的输入区中
C、Hardware 34、阅读下列程序 段： m = 0: For i = 1 To 3: For j =
D、19
1 To i:
m
= m
+ j:
Next j, i:执行以
上的循环后，i 和 m 的值分别为( A、3 6
)。（1 分） B、3 10
C、4
6
D、4
10
35、窗体上有一个命令按钮 Command1，编写如下事件过程： Private 0: Next m: A、6 6 Sub Command1_Click(): For j = Print 1 To 3: a, b: a = 0: a For m = a = 1 + 1: To 3: b a = = b a + + 2: 1: b = Next j:
D、a >0 and 后，输出结果是( B、12 14.5
sqr(a)=fix(sqr(a)) )。（1 分）
19、已知 a%=12.8 A、12.8 14
C、12.8 20、以下(
15 )语句可表示[50,100]之间的随机整数。（1 分）
D、13
14.5
A、Rnd*51+49
B、Rnd*51+50
D、属性窗口
A、窗体名称和该窗体文件名必须一致
B、窗体名称和该窗体文件名可以不相同
C、窗体名称和该窗体文件名不能使用汉字
D、窗体名称不能使用汉字、但该窗体文件名能使用汉字 )得到帮助。（1 分）
4、Visual Basic 有完备的 Help 联机帮助功能，可以通过按下功能键( A、F9 B、F8