更多"下面程序运行后的输出结果是 Private Sub Command1"的相关试题:
[单项选择]下列程序运行后的输出结果是 Private Sub Command1_Click（ ） For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub
A. * * * * * *
B. 1 * 2 * 3 *
C. 3 * 2 * * 1 * * *
D. * * * * * *
[单项选择]下面程序运行后输出是 ______。 Private Sub Form_Click（ ） for i=1 to 4 x=1 for i=1 to 3 x=3 for k=1 to 2 x=x+6 next k next j next i print x End Sub
A. 7
B. 15
C. 157
D. 538
[单项选择]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd Sub
A. 20
B. 10
C. 3
D. 9
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下列程序运行后在立即窗口输出结果是( )。 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. a b 1 2 1 ab 2
B. a b 1 2 1 a b 2
C. a b 1 2 1 a b 2
D. a b 1 2 1 a b 2
[单项选择]下列程序运行后在立即窗口输出的结果是( )。
Private Sub Form_Click（ ）
x="a":y="b"
z=1:u=2
Debug.Printx;y,z;u
Debug.Printz;x,y;u
End Sub
[单项选择]以下程序运行后输出的结果是 ______。 Option Base 1 Private Sub Form_Click（ ） Dim A(20) For K=1 To 20 A(K)=K^2 Next K Print A(K) End Sub
A. 20
B. 441
C. 400
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
[单项选择]以下程序运行后输出的结果是______。 Private Sub Form _Click（ ） a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub
A. 10
B. 15
C. 80
D. 100
[单项选择]以下程序运行后的输出结果是______。 Private Sub Form_ Click（ ） y=1 ：x=2 Print Iif(x＞=y，x，y) End Sub
A. 0
B. 1
C. 2
D. 3
[单项选择]下列事件过程运行后输出结果是 Private Sub Command1_Click（ ） Print Formats(123，456，"###，##%") End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
[单项选择]下面程序运行后输出是 ______。 Private Sub Form_Click（ ） for i=1 to 4 x=1 for j=1 to 3 x=3 for k=1 to 2 x=x+6 next k next j next i print x End Sub
A. 7
B. 15
C. 157
D. 538
[单项选择]下列代码运行后输出结果是 Ｄefstr B-E Ｐrivate Sub Command1_Click（ ） Ｂ$="123" Ｃ="456" Ｐrint B+C$ Ｅnd Sub
A. 123456
B. "123456"
C. 123+"456"
D. 显示出错信
[单项选择]下列代码运行后输出结果是 Defstr B-E Private Sub Command1_Click（ ） B$="123" C="456" Print B+C$ End Sub
A. 123456
B. "123456"
C. 123+"456"
D. 显示出错信
[单项选择]下列代码运行后输出结果是( )。 Defstr C-F Private Sub Command1_Click（ ） C$="123" D="456" Print C+D$ End Sub
A. 123456
B. "123456"
C. 123+"456"
D. 显示出错信
[单项选择]下列程序运行后的输出结果是______。Private Sub f(k,s) s = 1 for j = 1 To k s=s*j Next jEnd SubPrivate Sub Command1_ Click （ ） Sum = 0 for i = 1 To 3 Call f(i, s) Sum = Sum + s Next i Print Sum End Sub
A. 0
B. 3
C. 6
D. 9
[单项选择]下列事件过程运行后输出结果是( )。 Private Sub Command1_Click（ ） Print Format$(123.456,"###.##%") End Sub
A. 123.46%
B. 123.45%
C. 123.456%
D. 12345.6%
