单选题 在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮,并编写有如下的事件过程和通用过程:
Public Sub Fun(a(),_
ByVal x As Integer)
For i=1 To 5
x=x+a(i)
Next
End Sub
Private Sub Command1_Click()
Dim arr(5) As Variant
For i=1 To 5
arr(i)=i
Next
n=10
Call Fun(arr(),n)
Text1.Text=n
End Sub
程序运行后,单击命令按钮,则在文本框中显示的内容是______。
  • A.10
  • B.15
  • C.24
  • D.25
【正确答案】 A
【答案解析】[考点] 参数传递 [解析] 本题Fun过程有两个参数,数组a按址传送,变量x按值传送。因此,当调用Fun过程时,实参n的值不变。