更多"有如下程序，输出结果为( )。 Private Sub Form_"的相关试题:
[单项选择]有如下程序，输出结果为( )。
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 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 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_ Click（ ） Dim a Dim i As Integer, j As Integer a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) For i = 0 To 3 Print a(5 - i) Next End Sub程序运行后，单击窗体，则在窗体上显示的是______ 。。
A. 4 3 2 1
B. 5 4 3 2
C. 6 5 4 3
D. 7 6 5 4
[单项选择]以下程序的输出结果是( )。 Option Base 1 Private Sub Command1 Click（ ） Dim a(10)，p(3)as Integer k=5 For I=1 to 10 a(i)=I Next I For j=1 to 3 p(i)=a(I*j) Next j For I=1 to 3 k=k+p(I)*2 Next I Print k End Sub
A. 33
B. 28
C. 35
D. 37
[单项选择]下列程序运行后的输出结果是 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 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
[单项选择]当发生Command1_C1ick事件后，以下程序的输出结果是 Private Sub Command1_Click（ ） Dim i As Integer Dim a(10) 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
[单项选择]下列程序运行时输出的结果是 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. 不确定的值
[单项选择]下列程序的输出结果是______。 Private Sub command1_click（ ） a=10：b=20 Print a；Spc(5)；b； Print Print b；SpaCe＄(5)；a； End Sub
A. 10 20 20 10
B. 10 20 20 10
C. 20 10 20 10
D. 20 10 20 10
[单项选择]有如下程序，运行后输出的是( )。 Option Base 1 Private Sub Commandl_click（ ） Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End Sub
A. 5
B. 20
C. 22
D. 显示出错信息
[单项选择]单击命令按钮执行下列程序，其输出结果是( )。
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 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. 天天向上清华大学天上人间程序设计
