甲在某酒店就餐，邻座乙、丙因喝酒发生争吵，继而动手打斗，酒店保安见状未出面制止。乙拿起酒

在窗体上画一个名称为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．89

B．99

C．23

D．77

在窗体上画一个名称为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．89

B．99

C．23

D．77

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京"，"上海"，"天津"，"重庆") Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是()。

A．空白

B．错误提示

C．北京

D．上海

在窗体上画一个命令按钮，名称为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．0

B．1

C．2

D．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．0

B．1

C．2

D．3

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

Option Base 0

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 ） 0

B ） 2

C ） 3

D ） 4

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程； Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是______。

A．空白

B．错误提示

C．北京

D．上海