VB考试一
1、能够获得一个文本框中被选取文本的内容的属性是______。
A：SelStart B：SelLength C：SelText D：Text
参考答案：C
2、在窗体上画一个文本框，其名称为Text1，为了在程序运行后隐藏该文本框，应当使用的语句为：______。
A： = False B：
C： D： = 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$("","000,")
A：32, B： C：032, D：32,
参考答案：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= To Step
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("Enter a score")
Do while x>=0
y = y + x
z = z + 1
x = InputBox("Enter a score")
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()
=
End Sub
B：Private Sub List1_Click()
=
End Sub
C：Private Sub List1_Click()
=
End Sub
D：Private Sub List1_Click()
=
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
……
NEXT
B：For i=0 To
……
NEXT
C：For i=0 To
……
NEXT
D：For i=1 To
……
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
二级VB
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
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论