（ 23 ）在窗体上画一个命令按钮，其名称为 command1, 然后编写如下代码：

Option Base 1

Private Sub Command1_Click()

D．im a

a = Array(1, 2, 3, 4)

j = 1

F．or i = 4 To 1 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s

E．nd Sub

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

A． ） 4321

B． ） 1234

C． ） 34

D． ） 12

[单选题]（ 23 ） 在窗体上画一个命令按钮，名称为 Command1 ，然后编写如下代码：Option Base 0Private Sub Command1_Click()D．im A(4) As Integer,B(4) As IntegerF．or k = 0 To 2A．(k + 1) = InputBox(" 请输入一个整数 ")B．(3 - k) = A(k + 1)Next kPrint B(k)E．nd Sub程序运行后，单击命令按钮，在输入对话框中分别输入 2 、 4 、 6 ，输

[试题]（10）在窗体上画一个命令按钮，其名称为 Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click( )D．im ArrA．rr=Array(43, 68, -25, 65, -78, 12, -79, 43, -94, 72)pos=0neg=0F．or k=1 To 10If Arr(k)>0 Then(10)E．lse(11)E．nd IfNext kPrint pos, negE．nd Sub以上程序的功能是，计算并输出数组

[单选题]在窗体上画一个命令按钮(其名称为Command1)，然后编写如下代码：Private Sub Command 1_Click()D．im aa=Array(1,2，3，4)i=3：i=1D．o While i>=0s=s+a(i)*ji=i-1j=j*10LoopPrint sE．nd Sub运行上面的程序，单击命令按钮，则输出结果是( )。A．4321B．123C．234D．1234

[单选题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码： Option Base 1 Private Sub Command1_Click () Dim a a = Array(1, 2, 3, 4) j = 1 For i = 1 To 4 s = s + a(i) * j j = j * 10 Next i Print s End Sub程序运行后，单击命令按钮，其输出结果是______。A．1234B．12C．34D．4321

[单选题]在窗体上画一个命令按钮，名称为 Command1, 然后编写如下代码：Option Base 0Private Sub Command1_Click（）D．im A （4）As Integer,B（4） As IntegerF．or k=0 To 2A．（k+1）=InputBox（“ 请输入一个整数 ”）B．（3-k）=A（k+1）Next kPrint B（k）E．nd Sub程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输入结果为（ ）。 A．0B．2C．3D．4

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base()Private Sub Command1_ Click() Dim A1(4) As Integer, A2(4)As Integer For k= 0 To 2 A1(k+1)=InputBox(“请输入—个整数”) A2(3-k)=A1(k+1) Next k Print A2 (k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为______。A．0B．1C．2

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base() Private Sub Command1 Click() Dim A(4)As Integer,B(4)As Integer For k=0 To 2 A(k+1)＝InputBox(“请输入一个整数”) B(3-k)＝A(k+1) Next k Print B(k) End sub 程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为______。A．0B．2C．3D．4

[单选题]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click() Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为___

[单选题]在窗体上画—个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_ Click() Dim a a=Array(1,2,3,4) j=1 For i=,4 To 1 Step-1 s=s+ a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是______。A．4321B．1234C．34D．12

[试题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：Private Sub Command1_Click()D．im a(10)As IntegerD．im x As IntegerF．or i=1 To 10a(i)=iNext ix=1MsgBoxa(f(x)+x)E．nd SubF．unction f(y As Integer)y=y+2f=yE．nd Function程序运行后，单击命令按钮，消息框的输出结果为______。