Question

设有如下通用过程: Public Sub fun(a() As Integer, x As Integer) For i = 1 To 5 x = x + a(i) Next End

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim arr(5) As Integer, n As Integer
For i = 1 To 5
  arr(i) = i + i
Next
fun arr, n
Text1.Text = Str(n)
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是
A)30 B)25 C)20 D)15
我想问具体的解法，谢谢

Answer 1

For i = 1 To 5
arr(i) = i + i
Next
arr(1)=1+1=2
arr(2)=2+2=4
arr(3)=3+3=6
arr(4)=4+4=8
arr(5)=5+5=10
调用fun 将数组arr五个值和n=0传过去
a()为aar()的五个值,x为n值0
For i = 1 To 5
x = x + a(i)
Next
对a(i)五个值累加 x=2+4+6+8+10=30
最后返回n=x=30转换成字符串赋给TEXT1.TEXT选A