更多"下列程序段的运行结果是：Private Sub Command1_Cl"的相关试题:
[单项选择]有如下程序段：
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print G(
[单项选择]下面程序段的运行结果是( )。 Private Sub Form_Click（ ） For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A. ***** *** *
B. * *** *****
C. * *** *****
D. * *** *****
[单项选择]下列程序段，运行后窗体上输出结果是( )。
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（ ）
For i=6 To 9
Print Tab(i*i),i
Next i
End Sub
A. 6 7 8
B. 6 7 8 9
C. 6 7
D. 6
[单项选择]下列程序段运行后窗体上输出结果为( )。 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（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]下列程序段的运行结果是( )。
Sub sele（ ）
Dim n As Integer
i=21:n=3
Do While i＞n
i=i-n
Loop
Print i
End Sub
A. 2
B. 4
C. 5
D. 3
