计算机二级
现有如下一段程序： Option Base 1 Privalc Sub Command1 Click（ ） Dim a a=Array(3，5，7，9‘) x=1 For i=4，10 j Step-1 s=s+a(i)*X x=x*10 Next i Print s End Sub 执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。A.9753B.3579C.35D.79
题目
现有如下一段程序： Option Base 1 Privalc Sub Command1 Click（ ） Dim a a=Array(3，5，7，9‘) x=1 For i=4，10 j Step-1 s=s+a(i)*X x=x*10 Next i Print s End Sub 执行程序，单击Command1命令按钮键，执行上述事件过程，输出结果是（ ）。
A.9753
B.3579
C.35
D.79
相似问题和答案
第1题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a() a=Array("机床"，"车床"，"钻床"，"轴承")Print a(2) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析： 本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第2题：
在窗体上添加一个命令按纽，名为command1，其事件过程如下，程序运行后，其输出的结果为______ 。 Private sub_command1_ click () Dim a a=array(1，2，3，4，5) For k=1 to 4 S=s+ a(k) Next k Print s End sub
A．10
B．14
C．15
D．120
第3题：
在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a()
a＝Array("机床"，"车床"，"钻床"，"轴承")
Print a(2)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A．机床
B．车床
C．钻床
D．轴承
解析：本题考查VBA中数组的知识。数组变量由变量名和数组下标构成，我们通常使用Dim语句来定义数组，其中下标下限缺省值为0。本题中的a(2)就是数组的第三个元素即“钻床”。
第4题：
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click() Dim a a=Array("a"，"b"，"c"，"d"，"e"，"f"，"g") Print a(1)； a(3)； a(5) End Sub
A．abc
B．bdf
C．ace
D．出错
解析：本题考查用Array函数为数组赋值。根据Option Base 1，可知数组a的下标下界为1，故a(1)、a(3)，a(5)的值分别为a、c、 e。故答案为C。
第5题：
现有如下一段程序：
Option base 1
Private Sub Command1_Click()
Dim a
a=Array(3,5,7,9)
X=1
For i=4 to 1 step -1
s=s+a(i)*x
X=x*10
Next
Print s
End Sub
执行程序，单击Command1命令按钮，执行上述事件过程中，输出结果是
A)9753
B)3579
C)35
D)79
【答案】：B
【知识点】：循环语句及数组的使用方法
【解析】：option base 1表示数组下标从1开始，则a数组元素a(1)=3, a(2)=5, a(3)=7, a(4)=9。第一次循环：x=1,s=0+a(4)*1=9, 第二次循环：x=10,s=9+a(3)*10=79, 第三次循环：x=100,s=79+a(2)*100=579, 第四次循环：x=1000,s=579+a(1)*1000=3579, 故本题选B。
第6题：
在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 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 2
B．1 2 3
C．3 4 5
D．4 5
解析：本题主要考查考生对程序代码的阅读理解能力。用Array函数为数组a(5)赋值，其元素分别为1、2、3、4、5。第一个For i循环把a(i)数组中的元素逐个加到变量Sum上，然后求出Sum浮点除5的结果(为3)，赋值给变量x。第二个Fori循环表示当a(i)大于3时，则用Print语句输出该元素。据此，正确答案为D。
第7题：
执行以下Command1的Click事件过程在窗体上显示 Option Base 1 Private Sub Command1_Click( ) Dim a a=Array(“a”，“b”，“c”，“d”，“e”，“f”，“g”) Printa(1)；a(3)；a(5) End Sub
A．abc
B．bdf
C．ace
D．出错
解析：根据OptionBasel，可知数组a的下标下界为1，故a(1)、a(3)、a(5)的值分别为a、c、e。
第8题：
在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl1_Click( ) Dim array1 ( 10, 10) As Integer Dim i,j As Integer For i=1 To 3 For j = 2 To 4 Array1 (i, j) =i +j Next j Next i Text1.Text=array1(2.3) + array1(3.4) End Sub程序运行后，单击命令按钮，在文本框中为示的值是( )。
A．12
B．13
C．14
D．15
解析：经过循环后，数组array1(2，3)=5，array1(3，4)=7，然后将array1(2，3)+array1(3，4)赋给Text1，结果为12。
第9题：
有如下程序，单击command1后窗体显示结果是( )
OptionBase1
PrivateSubCommand1_Click()
Dima
a=Array(1,2,3,4,5)
Fori=LBound( )ToUBound( )
a(i)=i*a(i)
Nexti
Printi;UBound( )
EndSub
A.65
B.625
C.不确定
D.程序出错