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

Option Base 1

Private Sub Command1_Click（）

D．im a（10） As Integer

F．or i = 1 To 10

a（i） = i

Next

C．all swap （ ______ ）

F．or i = 1 To 10

Print a（i）;

Next

E．nd Sub

Sub swap（b（） As Integer）

n = _______

F．or i = 1 To n / 2

t = b（i）

b（i） = b（n）

b（n） = t

_______

Next

E．nd Sub

上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a（1）与a（10）的值互换，a（2）与a（9）的值互换，……，a（5）与a（6）的值互换。请填空。

[单选题]在窗体上画一个名称为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 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的命令按钮，然后编写如下程序； 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 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 1 Private Sub Command1_Click() d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。A．89B．99C．23D．77

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： Option Base 1 Prirate Sub Command1_Click() d=0 c=10 x=Array(10,12,21,32,24) For i=1 To 5 If x(i)＞c Then d=d+x(i) c=x(i) Else d=d-c End If Next I Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为______。A．89B．99C．23D．77

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下代码： OPtion Base l Private Sub Commandl_Click( ) d=0 c=10 x=Array(10，12，21，32，24) For i=1 To 5 If x(i)＞c Then d=d+x(i) C=x(i) Else d=d-c End lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为A．89B．99C．23D．77

[单选题]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序 _______。 Dim k As Integer Private Sub Form_Load() k=5 End Sub Private Sub Command Click() Static b As Integer b ＝ b + k k=k+1 Print k，b End Sub 程序运行时，两次单击命令按钮Command1后，在窗体上显示的第二行是 _______。A．7 11B．5 11C．76D．2 1