更多"下列程序运行时输出的结果是( )。 Option Base 1 "的相关试题:
[单项选择]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click（ ） Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End Sub
A. 36
B. 25
C. 1
D. 出错信息
[单项选择]下列程序在运行时输出的结果是( )。
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
[单项选择]以下程序运行后输出的结果是 ______。
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. 出错信息
[单项选择]有如下程序，运行后输出的是( )。 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. 显示出错信息
[单项选择]设有如下程序：
Option Base （ ）
Private Sub Form_Click（ ）
Dim a
Dim i 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
a=Array(3,5,7,9)
x=1
For i=4 to 1 Step -1
S=s+a ( i )*x
x=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程，输出结果是（ ）。
A. 9753
B. 3579
C. 35
D. 79
[单项选择]有下列程序： Option Base 0 Private Sub Command1_Click（ ） Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是
A. Microson
B. 错误提示
C. Visual
D. Basic
[单项选择]设有如下程序： Option Base 0 Private Sub Form Click（ ） Dim a Dim i 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 21
B. 543 2
C. 6 54 3
D. 7 6 54
[单项选择]下列程序运行时输出的结果是 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 0
Private Sub Command3_Click( )
Dim d
d=Array("a", "b", "c", "d"
Print d(1) ; d(3)
End Sub
A. ab
B. bd
C. ac
D. 出错
