VB习题5
1、VB系统中供用户在程序过程内直接调用，用来执行对象所需要的操作的是( )。（1分）
A B
C D
2、如果Visual Basic环境中缺少某个窗口，一般应该从主菜单的( )下拉菜单中寻找并打开。（1分）
A B
C D
3、将调试通过的工程文件拿到其它机器上不能运行的主要原因是( )。（1分）
A B
C D
4、Visual Basic是一种面向对象的可视化编程语言，采取了( )的编程机制。（1分）
A B
C D
5、VB坐标系的默认原点在窗体的( )。（1分）
A B
C D
6、运行时，单击窗体不能将窗体的背景色设置为红色的事件过程是( )。（1分）
A B
C D
7、下面在文本框Text1内显示变量ST内容的语句是( )。（1分）
A B
C D
8、命令按钮能够响应( )事件。（1分）
A B
C D
9、为了使标签Label1呈现透明，正确的属性设置为( )。（1分）
A B
C D
10、在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _____():
TxtTime.text=Time:End Sub, 在下划线上应填入的内容是( )。（1分）
A B
C D
11、设置图像框的( )可使框内的图片按图像框大小自动调整。（1分）
A B
C D
12、OBJ1是一个对象且有如下4个事件，若在程序运行时单击它，则( )被激发执行。（1分）
B
A
Sub OBJ1_KeyPress( KeyAscii as Intger)
C D
13、以下算术运算符中，优先级最低的是( )。（1分）
A B
C D
14、与代数式2xSin(30)/((x+y)lnx) 对应的Visible Basic表达式是( )。（1分）
A
2 * x * Sin (30 * 3.14 / 180) / x + y * Log(x B
C 2 * x * Sin (30 * 3.14 / 180) / ((x + y) * Lo
D 2 * x * Sin (30 * 3.14 / 180) / ((x + y) * Ln 15、在Visual Basic 6.0中，语句 Print 3 > 9 的输出结果为( )。（1分）
A B C D 16、执行语句Print Format$(5456.678, "0#,##0.00")，正确的输出是( )。（1分）
A B C D 17、下面变量名中，合法的是( )。（1分）
A B C D 18、表达式"Turbo"+"c" > "Ture"+"Basic"的值是( )。（1分）
A B C D 19、程序x=-6^2:Print Sgn(x)+Abs(x)+Int(x)结果是( )。（1分）
A B C D 20、以下( )语句可表示[10,50]之间的随机整数。（1分）
A B
C D 21、除去字符串左侧空格的函数是( )。（1分）
A 、Left()
B 、Trim()
C D
22、设a="12345"，则表达式 Val(Left(a, 3) + Mid(a, 2, 3))的值为( )。（1分）
A B
C D
23、下列( )是不合法的常量。（1分）
A B
C D
24、设有语句：Dim S1 As String*6： S1 ="VB Test"，则S1的值为( )。（1分）
A B
C D
25、设有如下变量声明：Dim TestDate As Date，为变量TestDate正确赋值的表达方式是( )。（1分）
A B
C D
26、下列语句语法正确的是( )。（1分）
A B
C D
27、下列语句中，具有“计数”功能的语句是( )。（1分）
A B
C D
28、分析下列程序段： If X = 0 Then Y = 0 , 以下说法正确的是( )。（1分）
B
A
式
C D
29、有语句If X = 0 Then Y = 0，下列叙述中，正确的是( )。（1分）
A B
C D
30、执行语句st= InputBox("请输入数值","输入对话框",1)，用户输入5 并按确定按钮后，st变量的内容为( )。（1分）
A B
C D
31、设有语句x = InputBox("输入姓名", "输入框示例", "王晓明")，运行后从键盘上输入“李明”并回车，则x中的结果是( )。（1分）
A B
C D
32、下列语句组：a$="Today And Tomorrow":b$=Right(a$,8):c$=Left(a$,5):MsgBox a$, ,b$执行后消息框中显示的内容是( )。（1分）
A B
C D
33、执行x = MsgBox("数据类型不匹配",VbOKCancel,"出错提示!") ，然后单击消息框的“取消”按钮，x的值是( )。（1分）
A B
C D
34、已知：x = 2，执行 For i = 1 To 10 Step -2: x = x + i: Next 后，x的值是( )。（1分）
A B
C D
35、语句段s=0:for k=1 to 5:s=s+k:next k，执行后，s的值为( )。（1分）
A B
C D
36、执行程序段：
Dim a, b As Integer:a = 1 : b = 5:Do: a = a + b: b = b + 1:Loop While a < 10: MsgBox(Str (a) + " " + Str(b))，输出的结果是( )。（1分）
A B
C D
37、窗体上有两个文本框（Text1、Text2）和一个命令按钮Command1，编写如下事件过
程： Private Sub Command1_Click(): x = 0: Do While x < 50: x = (x + 2)* (x + 4): n = n + 1: Loop: Text1.Text = Str(n): Text2.Text = Str(x): End Sub,运行时，单击按钮，Text1和Text2将分别显示( )。（1分）
A B
C D
38、在Visual Basic中，能正确描述条件“x>y和y>z同时成立”的表达式是( )。（1分）
A B
C D
39、窗体上有一个命令按钮Command1，编写如下事件过程： Private Sub Command1_Click()（换行） Sum = 0（换行）For m = 1 To 3（换行）Select Case m（换行）Case 1（换行）a= 1（换行）Case 2（换行）a = 2（换行）Case 3（换行）a = 3（换行）End Select（换行）Print a,（换行）Sum = Sum + a（换行）Next m（换行）Print Sum（换行）End Sub,运行时，单击按钮，输出结果是( )。（1分）
A B
C D
40、设a=6，则执行 x = IIf(a > 5, -1, 0) 后，x的值为( )。（1分）
A B
C D
41、当x=-1时，函数IIf(x > 0, 1, IIf(x < 0, -1, 0))的返回值是( )。（1分）
A B
C D
42、设变量f为逻辑型，执行 f="123" 赋值语句后，f中的结果为( )。（1分）
A B
C D
43、要从 For … Next 循环中退出循环，应使用( )语句。（1分）
A B
C D
44、Option Base n语句可以决定数组下界的默认值，这个默认值n只能是( )。（1分）
A B
C D
45、下列关于数组的说法中，不正确的说法是( )。（1分）
A B
C、除了变体类型的数组外，一般的数组中各元素都具有相同的数据类型
D
一个连续的区域
46、能使一维数组arr(6)元素个数加1，但保留数组中原有元素的语句是( )。（1分）
A B
C D
47、窗体上有一个命令按钮Command1，编写如下事件过
程： Private Sub Command1_Click(): Dim a(10): For j = 6 To 10: a(j)= j - 5: N ext j: Text1.Text = a(0) + a(a(10) / a(6)): End Sub，运行时，单击按钮，Text1中显示( )。（1分）
A B
C D
48、设有如下程序：
Option Base 0:Private Sub Form_Click(): Dim a: Dim i As Integer:a=Array(1,2,3,4,5,6,7,8,9): For i=0 To 3: Print a(5-i);: Next: End Sub,程序运行后，单击窗体，则在窗体上显示的是( )。（1分）
A B
C D
49、当工程中有多个窗体时，必须指定启动窗体，其方法是：选择“工程”菜单中的“工程属性”命令，打开“通用”选项卡，在( )中选择运行时显示的第一个窗体。（1分）
A B
C D
50、设置工程中某一个窗体作为启动窗体，必需的操作步骤是( )。（1分）
A、先打开“属性窗口”，然后选择作为启动窗体的窗体名称
B
窗体的窗体名称
C、先打开“工程窗口”，然后选择作为启动窗体的窗体名称
D
启动窗体的窗体名称
Private Sub Form_Click()
Dim i%, s&, sum&, stri As String For i = 1001 To 9999 Step 2
stri = LTrim(Str(i))
For j = 1 To 4
x = Val(Mid(stri, j, 1))
s = s + x
Next j
If s Mod 25 = 0 Then sum = sum + i Next i
Print sum
End Sub