已知事件对应的程序代码如下: Private Sub Command0 Click() Dim J As Integer J=100 Call GetData(J) MsgBox J End Sub

admin2019-04-13  78

问题 已知事件对应的程序代码如下:
    Private Sub Command0 Click()
    Dim J As Integer
    J=100
    Call GetData(J)
    MsgBox J
    End Sub
    Private Sub GetData(ByRef f AS Integer)
    f=f+120
    End Sub
    则程序的输出是(    )。

选项 A、100
B、120
C、220
D、运行出错

答案C

解析 根据题意,程序代码中用Sub定义了2个过程:C0mmand0_Click()和GetData()。其中GetData的功能是将参数f的值增加1 20后再赋给f,且f为ByRef类型(即按地址传递)的参数,可将参数在过程中的改变传递到过程外。在过程C0mmand0_Click中定义了整型数据J=100,并将J作为GetData()函数的参数,在GetData()过程中形参为100且此参数为地址传递,经GetData()过程处理后增加120,变成220,同时在过程外部的J的值也变为220。最后输出变量J,因此选择C选项。
转载请注明原文地址:https://kaotiyun.com/show/jF0p777K
0

最新回复(0)