更多"以下程序运行后输出的结果是 ______。 Option Base "的相关试题:
[单项选择]以下程序的输出结果是( )。 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
[单项选择]有如下程序，运行后输出的是( )。 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 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
[单项选择]有下列程序： 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 1 Private Sub Form Click（ ） Dim arr arr = Array(10, 20, "ABCDE") For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后，单击窗体，在窗体上显示的内容为______ 。
A. ABCDE 20 10
B. 10 20 ABCDE
C. ABCDE 10 20
D. 出错信息
[单项选择]设有如下程序： Option Base 0 Private Sub Form_Click（ ） Dim a Dimi 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 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. 出错
[单项选择]在窗体上画一个文本框，然后编写如下程序： Option Base 1 Private Sub Form_Click（ ） Dim Arr(10)As Integer For i=6 To 10 Arr(i)=i-3 Next i Text1．Text：Str(Arr(6)+Arr(Arr(6)+Arr(10))) End Sub 程序运行后，单击窗体，在文本框中显示的内容是
A. 1
B. 3
C. 6
D. 10
[单项选择]执行以下语句过程，在窗体上显示的内容是 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. 出错
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：Option Base 1Private Sub Command1_Click（ ） Dim a As Variant a= Array (1,2,3,4) j=1 for i=a To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub 运行上面的程序，单击命令按钮，其输出结果是______ 。
A. 4321
B. 12
C. 34
D. 1234
[单项选择]以下程序运行后的输出结果是______。 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 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
