VB选择题题库

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：进⼊中断模式

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

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 = ______

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

End Sub

B：Private Sub List1_Click()

/doc/0e6a2d50185f312b3169a45177232f60ddcce7ac.html =List1.ListIndex

End Sub

C：Private Sub List1_Click()

/doc/0e6a2d50185f312b3169a45177232f60ddcce7ac.html =List1.Text

End Sub

D：Private Sub List1_Click()

Label1.Caption=List1.ListIndex

End Sub

参考答案：A

3、在列表框中当前被选中的列表项的序号是由下列哪个属性表⽰______。

A：Listindex

B：Index

C：List

D：T abindex

参考答案：A

4、为了清除列表框中的所有内容，应使⽤的⽅法是：______。

A：Clear

B：Remove

C：RemoveItem