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

https://www.360docs.net/doc/169900277.html,=List1.ListIndex

End Sub

C：Private Sub List1_Click()

https://www.360docs.net/doc/169900277.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：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("String1",,"String2","String3",2)

执行该语句后，将显示一个信息框，此时如果单击"确定"按钮，则answer的值为：______。A：String3 B：String2 C：String1 D：1

参考答案：D

12、设有语句

x=InputBox("输入数值","0","示例")

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是______。

A：0是默认值

B：变量X的值是字符串"10"

C：在InputBox对话框标题栏中显示的是"示例"

D：变量X的值是数值10

参考答案：B

13、以下程序段运行的结果是：______。

Dim a(-1 To 5) As Boolean

Dim flag As Boolean

flag = False

Dim i As Integer

Dim j As Integer

Do Until flag = True

For i = -1 To 5

j = j + 1

If a(i) = False Then

a(i) = True

Exit For

End If

If i = 5 Then

flag = True

End If

Next

Loop

Print j

A：20 B：7 C：8 D：35

参考答案：D

14、设a=5，b=6，c=7，d=8，则执行下列语句后，x的值为：______。

x= IIF((a>b) And (c

A：300 B：20 C：30 D：10

参考答案：B

15、要将一个组合框设置为简单组合框（Simple Combo），则应将其Style属性设置为______。A：0 B：1 C：3 D：2

参考答案：B

VB考试三

1、设组合框Combo1中有3个项目，则以下能删除最后一项的语句是______。

A：Combo1.RemoveItem Combo1.Listcount

B：Combo1.RemoveItem 2

C：Combo1.RemoveItem 3

D：Combo1.RemoveItem Text

参考答案：B 题分：6

2、在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Function Func(ByVal x As Integer, y As Integer)

y = x * y

If y > 0 Then

Func = x

Else

Func = y

End If

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 3

b = 4

c = Func(a, b)

Print "a="; a

Print "b="; b

Print "c="; c

End Sub

程序运行后，单击命令按钮，其输出结果为：______。

A：a= 3

b= 4

c= 12

B：a= 13

b= 12

c= 12

C：a= 3

b= 4

c= 3

D：a= 3

b= 12

c= 3

参考答案：D 题分：6

3、单击命令按钮时，下列程序代码的执行结果为______。

Public Sub Procl(n As Integer, ByVal m As Integer)

n = n Mod 10

m = m / 10