2010计算机等级考试二级VB预测题(3)

End Sub

Private Sub Command1_Click()

Timer1.Enabled=True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

If Label1.Left<Width Then

Label1.Left = Label1.Left + 20

Else

Label1.Left=0

End If

End Sub

程序运行后，单击"开始"按钮，标签在窗体中移动。

对于这个程序，以下叙述中错误的是______。

A：单击"停止"按钮后再单击"开始"按钮，标签从停止的位置继续移动

B：标签的移动方向为自右向左

C：当标签全部移出窗体后，将从窗体的另一端出现并重新移动

D：标签按指定的时间时隔移动

参考答案：B

12、执行下列语句

strInput=InputBox("请输入字符串","字符串对话框","字符串")

将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是______。A："请输入字符串"

B：空字符串

C："字符串"

D："字符串对话框"

参考答案：C

13、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是______。

A：执行语句Picture1.Picture =""

B：执行语句Picture1.Picture = LoadPicture ("")

C：选择图片框，然后按Del键

D：选择图片框，在属性窗口中选择Picture属性条，然后按回车键

参考答案：B

14、在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：

Private Sub Command1_Click()

a=InputBox("请输入日期（1～31）")

t="旅游景点：" _

& IIf ( a > 0 And a <= 10,"长城","") _

& IIf ( a >10 And a <= 20,"故宫","") _

& IIf ( a > 20 And a <= 31,"颐和园","")

Text1.Text = t

End Sub

程序运行后，如果从键盘上输入16，则在文本框显示的内容是______。

A：旅游景点：长城颐和园

B：旅游景点：长城故宫

C：旅游景点：颐和园

D：旅游景点：故宫

参考答案：D

15、若变量a未事先定义而直接使用（例如：a=0），则变量a的类型是______。

A：Variant

B：String

C：Boolean

D：Integer

参考答案：A

16、有如下程序：：

Private Sub Form_Click()

Dim i As Integer, sum As Integer

sum = 0

For i = 2 To 10

If i Mod 2 <> 0 And i Mod 3 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

程序运行后，单击窗体，输出结果为______。

A：30

B：12

C：24

D：18

参考答案：B

17、以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是______。

A：String

B：Mid

C：Left

D：Instr

参考答案：B

18、设窗体上有一个列表框控件List1，含有若干列表项。以下能表示当前被选中的列表项内容的是______。

A：List1.ListIndex

B：List1.List

C：List1.Text

D：List1.Index

参考答案：C

19、设a=5,b=10，则执行c = Int((b - a) * Rnd + a) + 1后，c值的范围为______。

A：6~10

B：6~9

C：5~10

D：5~9

参考答案：A

20、在窗体上有1个名为Cd1的通用对话框，为了在运行程序时打开保存文件对话框，则在程序中应使用的语句是______。

A：Cd1.Action=2

B：Cd1.ShowSave=True

C：Cd1.Action=1

D：Cd1.ShowSave=0

参考答案：A

21、下面可以正确定义2个整型变量和1个字符串变量的语句是______。

A：Dim a As Integer,b,c As String

B：Dim a%,b$,c As String

C：Dim n,m As Integer,s As String

D：Dim x%,y As Integer,z As String

参考答案：D

22、在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

Private Sub Command1_Click()

a = InputBox("Enter an integer")

b = InputBox("Enter an integer")

Text1.Text = b + a

End Sub

程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。

A：出错

B：18

C：810

D：108

参考答案：D

23、在窗体上画一个名称为CommonDialog1的通用对话框，一个名称为Command1的命令