更多"下面程序的运行结果是 Private Sub Command1_Cl"的相关试题:
[单项选择]下面程序运行后的输出结果是 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 Form_Click（ ） Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]
下面程序运行时，若输入395，则输出结果是（）
Private Sub Comand1_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 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 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 Form_Click（ ） i=0 Do i=i+1 if i＞10 then Exit Do Loop Until i＜10 Print i End Sub
A. 0
B. 1
C. 10
D. 11
[单项选择]下面的程序运行结果是( )。 Private Sub Form_Click（ ） I=0 DoUntil0 i=i+1 if i＞10 then Exit Do Loop Printi End Sub
A. 0
B. 10
C. 11
D. 出错
[单项选择]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click（ ） Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub
A. 10
B. 12
C. 37
D. 22
[单项选择]下面程序段的运行结果是( )。 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 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. 天天向上清华大学天上人间程序设计
[单项选择]下列程序运行后的输出结果是 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. * * * * * *
[单项选择]下列程序运行时输出的结果是 Option Base 1
Private Sub Form_Click（ ）
Dim x(10) As Integer，y(5) As Integer
For i=1 to 10
x(i) =10-i+1
Next
For i=1 to 5
y(i)=x(2*i-1)+x(2*i)
Next
For i=1 to 5
Print y(i)
Next
End Sub
A. 3 7 11 45 19
B. 19 15 11 7 3
C. 1 3 5 7 9
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 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_CUCk（ ） Dimk As Integ＜er n=5 m=1 k=1 Do m=m+2 k=k+1 Loop Until k＞n Printm End Sub
A. 1
B. 12
C. 11
D. 32
[单项选择]下列程序的运行结果是( )。 Private Sub Command1_Click（ ） a=1.5 b=1.5 Call fun(a，b) Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub
A. 2.25 3.75
B. 1.5 2.25
C. 1.5 0.75
D. 0.75 1.5
[单项选择]下列程序运行后在立即窗口输出结果是( )。 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
