VB习题(含答案)

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 分）
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
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!
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
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
)。（1 分）
B、ReDim Preserve arr(7)
C、Public arr(1
To 7)
D、Static arr(7)
47、窗体上有一个命令按钮 Command1，编写如下事件过 程： 分） A、0 B、1 Private Sub Command1_Click(): Text1.Text = Dim a(10): / a(6)): For End j = 6 To 10: a(j)= j - 5: )。（1 Next j: a(0) + a(a(10) Sub，运行时，单击按钮，Text1 中显示(
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
D、属性窗口
A、窗体名称和该窗体文件名必须一致
B、窗体名称和该窗体文件名可以不相同
C、窗体名称和该窗体文件名不能使用汉字
D、窗体名称不能使用汉字、但该窗体文件名能使用汉字 )得到帮助。（1 分）
4、Visual Basic 有完备的 Help 联机帮助功能，可以通过按下功能键( A、F9 B、F8
C、F1 5、以下( A、Label )控件可作为容器使用。（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 分）
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
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 分）
D、BorderStyle )。（1 分）
A、Default 用来设置缺省命令按钮
B、ForeColor 用来设置前景色
C、Font 用来设置字体 9、设置标签 Label1 的( A、Label1.Visible = 0 )属性使它不可见。（1 分）
D、Caption 用来设置标题
B、Label1.Visible == 1
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、F5
B、PictureBox
C、TextBox 6、将窗体的 BoderSt来自百度文库le 属性设置为( A、0
D、Image )可使窗口不显示标题栏。（1 分） B、1
C、2 7、文本框没有( A、Text )属性（1 分）
D、5
B、Name
C、Caption 8、以下关于命令按钮的控件属性的描述中，不正确的是(
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
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、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)
D、无数次
B、N=0:Do: N=N+1: Loop While
N<100
C、N=0:Do:
N=N+1: Loop Until N<100
D、N=0:Do While N<100: N=N+1: Loop < 15 的 VB 表达式是( B、 a = 11 Or a D、Not ( = 12 Or a a<= 10) = 13 Or a ( a = 14 )。（1 分）
: E
nd Sub, 单击命令按钮，先后在两个输入对话框中输入 123 和 321，窗体显示的内容是( A、444 B、123321
)。（1 分）
C、123+321 32、执行语句 MsgBox "AAA", 2, "BBB" A、AAA
D、出错信息 后，所产生的消息框的标题是( B、BBB )。（1 分）
11、将当前目录下的图形文件 Clock.jpg 装入图片框 Picture1 的语句是( A、Picture = "Clock1.jpg"
B、Picture =
C、Picture1.Picture =
"Clock1.jpg"
D、Picture1.picture = LoadPicture("Clock1.jpg") )属性设置为 False。（1 分） B、Visible
A、Today
B、Tomorrow
C、Yesterday 31、窗体上有一个命令按钮 Command1,编写如下事件过 程: Private Sub
D、5
Command1_Click() :x = Val(InputBox("x="))
: y
= InputBox("y=") :
Print x
+ y
38、设 a 为整型变量，不能正确表达数学关系 10 < a
A、10 <
a <
15
C、a
> 10 And
a <
15
And Not
>=15)
39、在 Visual Basic 中，能正确描述条件“x>y>z”的表达式是( A、x>y and z
)。（1 分） B、x>y and y>z
C、x>y>z 40、如果变量 nop 的值为 2，则执行完语句 （1 分） A、春 op =
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:
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 分）
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
C、Label1.Visible =
Tru
D、Label1.Visible = False )。（1 分）
10、要使时钟控件的 Timer 事件每隔 3 秒发生一次，应该把它的 Interval 属性设置为( A、3 B、30
C、300
D、3000 )。（1 分） LoadPicture("Clock1.jpg")
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)，将显示一个输入对话框，在对话框的输入区中
本卷共有 3 道大题: 一、单项选择题（50 道小题，共 50 分） 1、VB 程序中，通常不会产生错误提示的是( A、编译错误 )。（1 分） B、逻辑错误
C、运行时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( A、工程资源管理器窗口
D、实时错误 )。（1 分） B、代码窗口
C、工具箱窗口 3、下列说法中，正确的说法是( )。（1 分）