.
VB考试一
1、能够获得一个文本框中被选取文本的内容的属性是______。 A：SelStart B：SelLength C：SelText D：Text 参考答案：C
2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
A：Text1.Enabled = False B：Text1.Hide
C：Text1.Clear D：Text1.Visible = False 参考答案：D
3、对于语句 If x=1 Then y=1, 下列说法正确的是____。 A： x=1和y=1 均为赋值语句 B： x=1和y=1 均为关系表达式
C： x=1为赋值语句，y=1为关系表达式 D： x=1为关系表达式，y=1 为赋值语句
参考答案：D
4、以下变量名中，______是不符合Visual Basic的命名规范的。 A：_mnu_Open_234 B：Abc901 C：price_ D：K 参考答案：A
5、MsgBox 函数返回值的类型是__________。
A：数值或字符串 B：字符串 C：变体 D：整型数值 参考答案：D
6、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A：进入中断模式 B：进入运行模式 C：进入设计模式 D：不用进入任何模式 参考答案：A
7、设a=6，则执行
x=IIF(a>5,-1,0) 后，x的值为______。 A：-1 B：6 C：0 D：5 参考答案：A
8、可以同时删除字符前导和尾部空白的函数是______。 A：Mid B：Rtrim C：Trim D：Ltrim 参考答案：C
9、以下语句的输出结果是______。 Print Format$(\ .
.
A：32,548.5 B：32548.5 C：032,548.50 D：32,548.50 参考答案：C
10、设有如下声明： Dim X As Integer
如果Sgn(X)的值为-1，则X的值是______。
A：等于0的整数 B：大于0的整数 C：整数 D：小于0的整数 参考答案：D
11、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For i = 1 To 4 x = 4
For j = 1 To 3 x = 3
For k = 1 To 2 x = x + 6 Next k Next j Next i Print x End Sub
程序运行后，单击命令按钮，输出结果是______。
参考答案： 15# 15 #15 #15
12、执行下面的程序段后，S的值为______。 s=5
For i=2.6 To 4.9 Step 0.6 s=s+1 Next i 参考答案：9
13、下列表达式有错误,正确的写法应该是______。 [(a+b)+c]/80-5÷(d+e)
参考答案：(a+b+c)/80-5/(d+e)#（a+b+c）/80-5/（d+e）
14、表示x 是5的倍数或是9的倍数的逻辑表达式为__________
参考答案：x Mod 5 = 0 Or x Mod 9 = 0#x Mod 9 = 0 Or x Mod 5 = 0
15、以下程序的功能是:从键盘上输入若干个数字，当输入负数时结束输入，统计出若干数字的平均值，输出结果。请填空。 .
.
Private Sub Form_click() Dim x, y As Single Dim z As Integer
x = InputBox(\ Do while x>=0 y = y + x z = z + 1
x = InputBox(\ Loop
If z = 0 Then z = 1 End If
y = ______ Print y End Sub
参考答案：y/z
VB考试二
1、列表框中的列表项的数目可以通过以下哪个属性的值获得______。 A：ListIndex B：ListCount C：Count D：Index 参考答案：B
2、在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是______。 A：Private Sub List1_Click() Label1.Caption=List1.Text End Sub
B：Private Sub List1_Click() Label1.Name=List1.ListIndex End Sub
C：Private Sub List1_Click() Label1.Name=List1.Text End Sub
D：Private Sub List1_Click()
Label1.Caption=List1.ListIndex End Sub 参考答案：A
3、在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。 A：Listindex B：Index C：List D：Tabindex 参考答案：A .
.
4、为了清除列表框中的所有内容，应使用的方法是：______。 A：Clear B：Remove C：RemoveItem D：Cls 参考答案：A
5、在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为______。 A：For i=1 To List1.ListCount …… NEXT
B：For i=0 To List1.Count-1 …… NEXT
C：For i=0 To List1.ListCount-1 …… NEXT
D：For i=1 To List1.Count …… NEXT
参考答案：C
6、设有如下程序： 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
程序运行后，单击窗体，则在窗体上显示的是______。
A： 6 5 4 3 B： 5 4 3 2 C： 4 3 2 1 D： 7 6 5 4 参考答案：A
7、设执行以下程序段时依次输入1、3、5，执行结果为______。 Dim a(4) As Integer, 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： 0 B： 3 C： 5 D： 1 参考答案：D .
.
8、在窗体上画一个名称为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 4 5 6 7 8 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 2 4 6 3 6 9
参考答案：A
9、用下面的语句所定义的数组的元素个数是：______。 Dim arr(3 To 5,-2 to 2)
A：24 B：12 C：15 D：20 参考答案：C
10、下列______语句可以为动态数组分配实际元素个数。
A：static语句 B：Dim语句 C：public语句 D：ReDim语句 参考答案：D
11、假定程序中有以下语句：
answer = MsgBox(\
执行该语句后，将显示一个信息框，此时如果单击\确定\按钮，则answer的值为：______。 A：String3 B：String2 C：String1 D：1 参考答案：D .