单选题
设有如下通用过程：
Public Sub Fun(a() As Integer, x As Integer)
For i = 1 To 5
x = x + a(i) Next
End Sub 在窗体上画一个名称为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
【答案解析】参数的传送分为两种：一种是按值传送（ByVal），一种是按地址传送（ByRef），而 ByRef 是默认的 传送方式。按值传送时，不影响实参的值，而按地址传送则影响实参的值。本题中的参数都是按默认方式 来传送的，即按地址传送，所以调用过程 Fun 后 n 的值被改变。而在 Command1 的 Click 事件中，数组被 赋值为 2、4、6、8、10，故 n=2+4+6+8+10=30。