2010计算机等级考试二级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

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