在窗体上画一个名为Command1的命令按钮，然后编写下列程序：

Option Base 1

Private Sub Command1_Click()

D．im Arr

A．rr=Array(1,2,3,4,5)

j=1

F．or i=5 To 1 Step-1

S=S+Arr(i)*j

j=j*10

Next

Print S

E．nd Sub

程序运行后，单击命令按钮，输出结果是( )。

A．54321

B．123

C．12345

D．345

[单选题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr = Array(1,2,3,4,5) j=1 For i = 5 To 1 Step -1 S = S + Art(i) * j j =j * 10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

[单选题]（24）在窗体上画一个名为Command1德命令按钮，然后编写下列程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1,2,3,4,5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果是 A.54321 B.123 C.12345 D.345

[单选题]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim Arr Arr=Array(1, 2, 3, 4, 5) j=1 For i=5 To 1 Step -1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。A．54321B．123C．12345D．345

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写下列程序：Private Sub Command1_Click()F．or i=1 To 2F．or j=1 To iPrint String(i,"Hello")Next jPrintNext iE．nd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。A)B)C)D．)HA．H HH HHB．H HHHHC．HHHHD．H

[单选题]在窗体上画一个名称为command1的命令按钮，然后编写如下程序； Option Base 1 Private Sub Command1_Click() Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。A．ABCDB．abcdC．出错信息D．1 2 3

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base1 Private Sub Command1_Click( ) Dim a As Variant a=Array(1，2，3，4，5) Sum=0 For i=1To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i)>x Then Print a(i)； Next i End Sub程序运行后，单击命令按钮，在窗体上显示的内容是A．1 2B．1 2

[主观题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click（）D．im a（10） As IntegerF．or i = 1 To 10a（i） = iNextC．all swap （ ______ ）F．or i = 1 To 10Print a（i）;NextE．nd SubSub swap（b（） As Integer）n = _______F．or i = 1 To n / 2t = b（i）b（i）

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d=0 c=6 x=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输

[单选题]在窗体上画一个命令按钮Command1，然后编写下列代码：Private Sub Command1_Click()D．im Arr1(10) As Integer,Art2(10) As Integern=3F．or i=1 To 5A．rr1(i)=iA．rr2(n)=2*n+iNext iPrint Arr2(n);Arr1(n)E．nd Sub运行程序后，单击命令按钮，输出结果是( )。A．11 3B．3 11C．13 3D．3 13

[单选题]（23）在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )D．im M(10) As IntegerF．or k=1 To 10M(k)=12-kNext kx=8Print M(2+M(x))E．nd Sub运行程序，单击命令按钮，在窗体上显示的是（ ）。A．）6B．）5C．）7D．）8