[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click（　）
Dim i As Integer，a(9)As Integer
For i=9 To 0 Step-1
a(i)=10-i
Next i
Print a(2); a(5)；a(8)
End Sub
A. 2 5 8
B. 7 4 1
C. 8 5 2
D. 3 6 9

[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。 Private Sub Command1_Click（　） Dim i As Integer，a(9)As Integer For i=9 To 0 Step-1 a(i)=10-i Next i Print a(2); a(5)；a(8) End Sub
A. 2 5 8
B. 7 4 1
C. 8 5 2
D. 3 6 9

[单项选择]单击窗体上Command1命令按钮时，执行如下事件过程
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$，8)
c$=Mid(a$，1，8)
MsgBox a$，b$，c$，1
End Sub
则在弹出的信息框的标题栏中显示的信息是
A. software and hardware
B. software
C. hardware
D. 1

[单项选择]单击窗体上Command1命令按钮时，执行如下事件过程： Private Sub Command1-Click（　） a$="software and hardware" b$=Right(a$，8) c$=Mid(a$，1，8) Msgbox a $,,b$；c$,1 End sub 则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1

[单项选择]窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click（　） Dim a 　　a=Array(1,2,3,4,5) 　　For k=1 To 4 　　　　s=s+a(k) 　　Next 　　Print S End Sub 运行程序后，单击命令按钮，输出结果是
A. 10
B. 14
C. 15
D. 120

[单项选择]

窗体上有一个名称为Command1的命令按钮，其单击事件过程代码如下：
Private Sub Command1_Click（　）
Static x As Variant
n=0
x=array(1,2,3,4,5,6,7,8,9,10)
While n<=4
x(n)=x/(n+5)
Print x(n);
N=n+1
Wend
End Sub
运行程序，单击命令按钮Command1，窗体上显示的是（）。

A. 1 2 3 4 5
B. 6 7 8 9 10
C. 2 3 4 5 6
D. 6 2 3 4 5

[单项选择]如下有一段程序，窗体上打印出来的结果是______。
Private Sub Command1_ Click（　）
x=1
do
x=x+3
Print x；
Loop until x＞=8
End Sub
A. 4 7 10
B. 1 3
C. 8
D. 1 8 9

[单项选择]

在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程：
Private Sub Command1_Click（）
a$="software and hardware"
b$=Right（a$，8）
c$=Mid（a$，1，8）
MsgBox a$，b$，c$，1
End Sub
则在弹出的信息框标题栏中显示的标题是（）。

A. software and hardware
B. hardware
C. software
D. 1

[单项选择]在窗体上画一个命令按钮，名称为Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click（　） 　　a$="software and hardware" 　　b$=Right(a$,8) 　　c$=Mid(a$,1,8) 　　MsgBox a$,,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是( )。
A. software and hardware
B. software
C. hardware
D. 1

[单项选择]下列程序段，运行后窗体上输出结果是( )。

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

Printx

End Sub
A. 1
B. True
C. False
D. 2

[单项选择]

窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub Command1_Click（　）
Dim a(10), x%
For k=1 To 10
a(k)=Int(Rnd*90+10)
x=x+a(k)Mod 2
Next k
Print x
End Sub
程序运行后，单击命令按钮，输出结果是（）。

A. 10个数中奇数的个数
B. 10个数中偶数的个数
C. 10个数中奇数的累加和
D. 10个数中偶数的累加和

[单项选择]窗体上命令按钮的事件过程如下：
Private Sub Command1_Click（　）
A="34":B="26":C="98"
Print B+C+A
End Sub
运行程序后，单击命令按钮，输出结果是( )。
A. "269834"
B. 269834
C. 158
D. 程序运行出错

[单项选择]单击一次命令按钮，下列程序代码的执行结果为( )。
Private Sub Command1_Click（　）
Dim a As Integer,b As Integer,c As Integer
a=2:b=3:c=4
Print P2(c,b,
A. 19
B. 17
C. 34

[单项选择]在窗体上画1个命令按钮，并编写如下事件过程： Private Sub Command1_Click（　） For i=5 To 1 Step-0.8 Print Int(i)； Next i End Sub 运行程序，单击命令按钮，窗体上显示的内容为（）
A. 5 4 3 2 1 1
B. 4 4 3 2 1
C. 4 3 2 1 1
D. 4 4 3 2 1 1

[单项选择]

在窗体上画 1 个命令按钮，其名称为 Command1，然后编写如下程序：
Private Sub Command1_Click（　） Dim a(10) As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next x=2
Print a(f(x)+x) End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后，单击命令按钮，输出结果为（）。

A. 12
B. 15
C. 17
D. 18

[单项选择]在窗体上有文本框Text1和命令按钮Command1，并有如下事件过程： Private Sub Command1_Click（　） Dim i As Integer, n As Integer For j=0 To 50 i=i+3 n=n+1 If i＞10 Then Exit For Next Text1.Text=Str(n) End Sub
A. 2
B. 3
C. 4
D. 5

[单项选择]

在窗体上画 1 个名称为 Command1 的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then a=a-1
End If a=a+1
Next j
Next i Print a End Sub
程序运行后，单击命令按钮，输出结果是（）。

A. 0
B. 2
C. 3
D. 4

[单项选择]在窗体上画一个命令按钮，然后编写如下代码：
Private Sub Command1 Click（　）
a&＝InputBox("请输入第一个数")
b&=InputBox("请输入第二个数")
Print b&+a&
End Sub
程序运行后，单击命令按钮，在两个输入对话框中先后输入12345和54321，程序的输出结果是
A. 66666
B. 5432112345
C. 1234554321
D. 出错