.
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 .