更多"有如下程序，输出结果为( )。 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 x
x=Array("Software","and","Hardware","System")
For i=LBound(x,1)To UBound(x,1)
If Left(x(i),1)="S" Then Print x(i);
Next i
End Sub
A. Software
B. SoftwareSystem
C. 出错信息
D. SoftwareandHardwareSystem
[单项选择]下面程序执行时，输出的结果是( )。
Private Sub Form_Click（ ）
Dim i As Integer,j As Integer
i=10
Do
i=i+j
For j=10 To i Step-3
i=i+j
Next j
Loop While i＜50
Print i;j
End Sub
A. 50 10
B. 50 9
C. 57 10
D. 57 9
[单项选择]下列程序输出结果为______。
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 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 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(20)
For j=1 To 20 Step 2
a(j)=j
Next j
Print a(1)+a(2)+a(3)
End Sub
A. 4
B. 5
C. 6
D. 7
[单项选择]下列程序的输出结果是______。 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.
