● 某企业针对实施失败的系统集成项目进行分析，计划优先解决几个引起缺陷最多的问题。该企业最可能

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

A．A.1

B．B.2

C．C.3

D．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．上海

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

A．空白

B．错误提示

C．北京

D．上海

在窗体上画一今名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer,s As Integer a=8 s=1 Do s=s+a a=a-1 Loop While a＜=0 Print s；a End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是 ______。

A．79

B．340

C．97

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

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

A．空白

B．错误提示

C．北京

D．上海