更多"下列程序的输出结果为______。 Private Sub Comm"的相关试题:
[单项选择]下列程序输出结果为______。
Private Sub Command1_Click（ ）
Dim a As Boolean
a=True
If a Then GoTo L1 Else GoTo L2
L1:
Print"VB"
L2:
Print"VC"
End Sub
A. VB
B. VC
C. VB
D. 出错!
[单项选择]下列程序的输出结果为( )。
Private Sub Command1_Click（ ）
Dim a(20)
For j=1 To 20 Step2
a(j)=j
Next i
Print a(1)+a(2)+a(3)
End Sub
A. 4
B. 5
C. 6
D. 7
[单项选择]有如下程序，输出结果为( )。
Private Sub Form_Activate（ ）
Dima
a=Array(1,2,3,4,5)
Fori=LBound(a)To UBound(a)
a(i)=i*a(i)
Nexti
Printi，LBound(a)，UBound(a)，a(i)
End Sub
A. 4 0 4 25
B. 5 0 4 25
C. 不确定
D. 程序出错
[单项选择]下面程序运行后的输出结果是
Private Sub Command1_Click（ ）
For j=1 To 10
If j Mod 3＜＞0 Then a=a+j/3
Next
Print a
End Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]下列程序运行后的输出结果是
Private Sub Command1_Click（ ）
For k=3 To 1 Step-1
x=String(k，"*")
Print x
Next
End Sub
[单项选择]单击命令按钮执行下列程序，其输出结果是( )。
Private Sub Command1_Click（ ）
Dim a As Integer,b As Integer,c As Integer
a=3
b=4
c=5
Prim SecProc(c,b,
A.
[单项选择]下列程序运行时输出的结果是
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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dimx(10)
ForI=1 to 10
x(i)=10-I+1
Next I
ForI=10 to 1 step-2
Printx(i)；
NextI
End Sub
A. 1 3579
B. 975 3 1
C. 1234567 89 10
D. 1098765432 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
Print x
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]下面的程序运行时，若输入395，则输出结果是
Private Sub Command1_Click（ ）
Dim x%
x=InputBox("请输入一个3位整数")
Print x Mod 10, x/100, (x Mod 100)/10
End Sub
A. 3 9 5
B. 5 3 9
C. 5 9 3
D. 3 5 9
[单项选择]下列程序段，运行后窗体上输出结果是( )。
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
[单项选择]下列程序在运行时输出的结果是( )。
Option Base 1
Private Sub Form_Click（ ）
Dim x(10)
For i=1 To 10
x(i)=10-i+1
Next i
For i=10 To 1 Step-2
Print x(i)
Next i
End Sub
A. 1 3 5 7 9
B. 9 7 5 3 1
C. 1 2 3 4 5 6 7 8 9 10
D. 10 9 8 7 6 5 4 3 2 1
