VB考试题库,二级习题(含答案)

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$("32548.5","000,000.00")

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("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()

Label1.Caption=List1.Text

End Sub

B：Private Sub List1_Click()

=List1.ListIndex

End Sub

C：Private Sub List1_Click()

=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