当前位置:IT认证>BASIC题库

问题:[填空题]

[填空题] 设有如下通用过程: Public Sub Fun(a(),ByVal 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 variantFor i=1 To 5 arr(i)=iNextn=10Call Fun(arr(),n)Text1.Text=n E

  

参考答案:

J

  参考解析

Fun函数的参数x为传值调用。在函数中,对x值的改变不能够返回给n,因此最后n的值仍然为10,没有改变。

微信端