运行下面的程序，单击命令按钮后，当输入分别为123和456时，输出结果为 ______。
Private Sub Command1_Click（　）
a=InputBox("请输入一个数字:")
b=Val(InputBox("请再输入一个数字："))
PrInt a+b
End Sub

A:123 B:456 C:123123 D:579

下列程序执行后，按住Cbl键并在文本框中输入a，则在窗体上输出的结果为 ______。
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Print keyCode, Shift
End Sub

A:a 2 B:65 2 C:97 1 D:97 2

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为 ______。

A:For i = 0 To List1.ListCount - 1
……
Next B:For i = 0 To List1. Count- 1
……
Next C:For i = 0 To List1. ListCount
……
Next D:For i = 0 To List1.Count
……
Next

用八进制表示Visual Basic的整型常数时，需要在前面加上的符号是 ______。

A:&O B:&H C:O D:H

要使文本框Text1不可用且文字居中，可以用以下语句 ______。

A:Text1. Enabled = False
Text1.Alignmem = 2 B:Text1. Enabled = False
Text1. Alignment = 0 C:Text1. Enabled = True
Text1. Alignment = 0 D:Text1. Enabled = True
Text1. Alignment = 1

以下程序段的执行结果是 ______。
Dim a As Integer，b As Integer
For a=4 To 1 Step-1
b=b+a
Next a
Print b， a

A:100 B:9 1 C:10 1 D:90

执行下面这段程序后，单击命令按钮，窗体中输出结果是 ______。
Private Sub Command1_Click（　）
a=1 : b=4 : c = 9 : d = 5
If a ＜ b Then
If c＜d Then
x=True
Else
If a＜c Then
x=False
Else
x=True
End If
End If
End If
Print Val(x)
End Sub

A:True B:False D:1

在窗体上有一个计时器控件Timer1和一个标签控件Label1，在程序运行时可通过每隔30毫秒让Lable1左移100缇，从而产生文字移动动画效果。文字从右向左移动，当移动到接近窗体左边界时停止移动。空格处应填 ______。
Private Sub Form1_Load（　）
Label1. Left=Form1. Width
Timer1. Interval=30
______
End Sub
Private Sub Timer1_Timer（　）
Lable1.Left=Lable1. Left -100
If Lablel. Left＜100 Then
Timer1. Enable=False
End If
End Sub

A:Timer1. Enable=True B:Label1.Enable=True C:Timer1. Enable=False D:Label1. Enable=False

在窗体上画一个命令按钮，然后编写如下程序：
Private Sub Command1_Click（　）
Dim a As Integer, b As integer
b = 1
For a = 1 To 100
If b ＞＝ 10 Then Exit For
If b Mod 3 = 1 Then
b = b + 3
End If
Next a
Print a
End Sub
在命令按钮上单击后，窗体上显示的结果是 ______。

A:101 B:6 C:5 D:4

执行下面的程序，单击命令按钮后，窗体中的输出结果是 ______。
Private Sub Cotomand1_Click（　）
Ch$="Welcome Home!"
a=Len(ch$)
For i= 1 To a
b$ = Mid(ch$， i 1)
If b$ = "m" Then m = m + 1
Next 1
Print m
End Sub

A:2 B:3 C:1