更多"程序段如下：Private Sub Command1_ Click（ "的相关试题:
[单项选择]若看到程序有如下事件过程，则可以肯定的是，当程序运行时
Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Print "VB Program"
End Sub
A. 若用鼠标左键单击名称为“Command1”的命令按钮，则执行此过程
B. 若用鼠标左键单击名称为“MouseDown”的命令按钮，则执行此过程
C. 若用鼠标右键单击名称为“MouseDown”的命令按钮时，则执行此过程
D. 若用鼠标左键或右键单击名称为“Click”的控件时，则执行此过程
[单项选择]下列程序段运行后窗体上输出结果为( )。
Private Sub Command1 Click（ ）
a=5：b=4：c=3：d=2
X=3＞2*b Or a=c And b＜＞C Or c＞d
Print X
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]编写如下程序：
Private Sub Form Click（ ）
a$=: "4321": b$="abcd"
For 3=1 To 4
Print Mid$(a$，5-j，1)+Nid$(b$, j, 1)；
Next j
Print
End Sub
程序运行后，单击窗体，其输出结果为 ______。
A. alb2c3d4
B. b4c3d2el
C. eld2c3b4
D. la2b3c4d
[单项选择]编写如下程序：
Private Sub Form_Click（ ）
a$="54321":b$="abcde"
For j=1 To 5
Print Mid$(a$，6-j，1)+Mid$(b$，j，1)；
Next j
Print
End Sub
程序运行后，单击窗体，其输出结果为 ______。
A. a1b2c3d45e
B. a5b4c3d2e1
C. e1d2c3b4a5
D. 1a2b3c4d5e
[单项选择]运行下列程序：
Private Sub Form Click( )
Sum=0
For i=1 To 100
If Mid(CStr(i)，1，1)="1"Then
Sum=Sum+1
End If
Next i
Print Sum
End Sub
单击窗体后，则在窗体上显示的结果是______。
A. 12
B. 13
C. 14
D. 15
[单项选择]运行下列程序：
Private Sub Command1_Click（ ）
x = 0
Do While x＜10
x=x * x + 1
y=y+x
Loop
MsgBox y
End Sub
单击Command1命令按钮后，弹出的消息对话框中会显示
A. 5
B. 8
C. 26
D. 34
[单项选择]单击命令按钮时，下列程序的执行结果是
Private Sub Commandl_Click（ ）
Dim a As Integer，b As Integer，c As Integer
a=3:b=4:c=5
Print SecProc(c，b，
[单项选择]有如下事件过程：
Private Sub Command1_Click（ ）
b=10
Do Until b =-1
a = InputBox("请输入a的值")
a = Val(
[单项选择]下列程序运行后会出现错误的提示为
Private Sub Command1_Click（ ）
Dim i AS Integer
Dim x
x=Array(2，3， 4， 5， 6， 7)
For Each i In x
Print i；
Next i
End Sub
A. 数组的下标超界
B. For Each数组的控制变量必须为变体变量
C. 关键字Each的位子不对
D. x应该定义成数组
[单项选择]下列程序运行时输出的结果是( )。
Private Sub Form_Click（ ）
Dima
a=Array("天天向上"，"清华大学"，"天上人间"，"程序设计")
forI=Lbound(a，1) to Ubound(a，1)
ifleft(a(i)，1)="天"then print a(i)；
nextI
End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]编写如下事件过程：
Private Sub Form_Click（ ）
k=2
Ifk＞=1 Then A=3
Ifk＞=2 Then A=2
Ifk＞=3 Then A=1
Print A
End Sub
程序运行后，单击窗体，输出的结果为 ______。
A. 1
B. 2
C. 3
D. 出错
[单项选择]执行以下程序后输出的是
Private Sub Command1_Click（ ）
Ch$="ABCDEFGH"
Print Mid(Right(Ch$,6), Len(Left(Ch$,4)),2)
End Sub
A. CDEFGH
B. ABCD
C. FG
D. AB
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click（ ）
x="a":y="b"
z=1:u=2
Debug.Print x;y,z;u
Debug.Print z;x,y;u
End Sub
A. ab 12
B. ab 12
C. ab 12
D. ab 12
[单项选择]下面程序的输出是______。
Private Sub Command1_Click（ ）
Print 7/3
End Sub
A. 3.5
B. 7
C. 3
D. 2
[单项选择]下列程序打印结果为 ______。
Private Sub Command1_ Click（ ）
Dim a(5)As String
Dim b As Integer
Dim i As Integer
for i = 0 To 5
a(i)= i +1
Print a(i);
Next i
End Sub
A. 12345
B. 6
C. 1 2 3 4 5 6
D. 0
[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1_Click（ ）
a&=InputBox("请输入第一个数")
b&=InputBox("请输入第二个数")
Print b&+a&
End Sub
程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是
A. 66666
B. 54321 12345
C. 1234554321
D. 出错
