设有如下通用过程: Public Sub Fun(a(),ByVal x As Integer) For i=1 To 5 x=x+a(i) Next End Sub 在窗体上画一个名称为Text1的文

admin2009-03-15  22

问题 设有如下通用过程:    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 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、25
D、24

答案1

解析 Fun函数的参数x为传值调用。在函数中,对x值的改变不能够返回给n,因此最后n的值仍然为10,没有改变。故应选择A。
转载请注明原文地址:https://jikaoti.com/ti/Eiq0FFFM
0

最新回复(0)