计算机二级
下面运行程序后，单击命令按钮，输出出的结果是【 】。Private Sub Command1_Click( )Dim a% (1 To 5) ,i%, sFor i = 1 To 5a(i) =iNexts = Fun(a)Print"s="; s;End SubFunction Fun(a() As Integer)Dim t, i%t=1For i = LBound(A0To UBound(a)t=t * a(i)NextFun =tEnd Function
题目
下面运行程序后，单击命令按钮，输出出的结果是【 】。
Private Sub Command1_Click( )
Dim a% (1 To 5) ,i%, s
For i = 1 To 5
a(i) =i
Next
s = Fun(a)
Print"s="; s;
End Sub
Function Fun(a() As Integer)
Dim t, i%
t=1
For i = LBound(A0To UBound(a)
t=t * a(i)
Next
Fun =t
End Function
参考答案和解析
s1=24 s2=360 解析：程序首先调用循环语句为数组a、b赋值，其中a(i)=i；b(i)=i，且数组。的上下界分别为1和5，接着将数组。作为参数调用Fun过程，在Fun过程中，定义了两个变量t及i，i作为循环语句For的变量，它的初始值和终值分别为数组的上下界，循环体为t =t*a(i)，即将a(i)的值乘以t，然后再赋给t，当循环结束后，程序返回的就是数组。中的各元素的积，输出结果为：s=120。注意：函数调用和参数传递。
相似问题和答案
第1题：
在窗体上画一个名为Command1的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是_________。
4
【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。
第2题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。 Private Sub Command1_Click() Dim a a=Array(1, 2, 3, 4, 5) Fork= 1 To 4 s=s+a(k) Next k Print s End Sub
A．10
B．14
C．15
D．120
解析：使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式如下：①显式定义为Variant变量(例如，Dim数组变量名As Variant)：②在定义时不指明类型(例如，Dim数组变量名)；③不定义而直接使用。
第3题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Command1_Click( ) Dim a a = Array(1,2,3,4,5) For k = 1 To4 s=s+a(k) Next Print S End Sub
A．10
B．14
C．15
D．120
解析：Array函数在默认的情况下，数组的F标从0开始，所以S=a(1)+a(2)+a(3)a(4)=2 +3+4+5=14
第4题：
在窗体上画一个名为Commandl的命令按钮，编写如下程序：
程序运行后，单击命令按钮，输出的结果是（ ）。
A. 4
B. 5
C. 6
D. 8
A) 【解析】本题考查数组中元素的分析。数组中的第k个元素的值为12-k，因此M(6)数据为6，M(8)为4。
第5题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是
A．10
B．14
C．15
D．120
解析：考查考生对数组定义的掌握程度。
[解题要点] Array函数在默认的情况下，数组的下标从O开始，所以s=a(1)+a(2)+a(3)a(4)=2+3+4+5=14
[考点链接] 数组的定义、赋值和应用。
第6题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。
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
解析：使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式是：①显式定义为Variant变量(例如，Dim数组变量名As Variant)；②在定义时不指明类型(例如，Dim数组变量名)；③不定义而直接使用。
第7题：
（19）窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 。 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 S=S+a(k) Next k Print S End SubA.10 B.14 C.15 D.120
【解析】解答本题的关键是读懂程序。程序中首先通过赋值语句定义一个有5个元素的数组（数组的下标从零开始）；接下来通过For循环来循环给变量S赋值（即对数组元素求和），这里循环中k从1开始，因此a(k)从2开始取值，到a(4)也就是5结束，计算结果为14。
第8题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是 Private Sub Commandl_Click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 s=s+a(k) Next k Print s End Sub A.10 B.14 C.15 D.120
【解析】使用Array函数为数组变量赋值，数组变量不能是具体的数据类型，只能是变体(Variant)类型，使用Array函数给数组变量赋值的3种形式是：①显式定义为Variant变量（例如，Dim数组变量名As Variant）；②在定义时不指明类型（例如，Dim数组变量名）；③不定义而直接使用。
第9题：
窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是。Private Sub Command1_Click()Dim aa = Array(1,2,3,4,5)For K = 1 To 4 S = S + a(K)Next K Print SEnd SubA. 10 B. 14 C. 15 D. 120
【解析】解答本题的关键是读懂程序。程序中首先通过赋值语句定义一个有5个元素的数组（数组的下标从零开始）；接下来是通过For循环来循环给变量S赋值（即对数组元素求和），循环中k从1开始，因此a(k)从2开始取指，a(4)也就是5结束，计算结果为14。