问题
单项选择题
设有如下通用过程：Public Sub Fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i) Next End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如 下的事件过程：Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFor i = 1 To 5arr(i) = i + iNext Fun arr, nText1.Text = Str(n) End Sub程序运行后，单击命令按钮，则在文本框中显示的内容是______。
A．30
B．25
C．20
D．15
答案
参考答案：A
解析：参数的传送分为两种：一种是按值传送（ByVal），一种是按地址传送（ByRef），而 ByRef 是默认的 传送方式。按值传送时，不影响实参的值，而按地址传送则影响实参的值。本题中的参数都是按默认方式 来传送的，即按地址传送，所以调用过程 Fun 后 n 的值被改变。而在 Command1 的 Click 事件中，数组被 赋值为 2、4、6、8、10，故 n=2+4+6+8+10=30。