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

admin2020-11-25  45

问题 已知事件对应的程序代码如下:
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个过程:Command0_Click()和GetData()。其中GetData的功能是将参数f的值增加120后再赋给f,且f为ByRef类型(即按地址传递)的参数,可将参数在过程中的改变传递到过程外。在过程Command0_Click中定义了整型数据J=100,并将J作为GetData()函数的参数,在GetData()过程中形参为100且此参数为地址传递,经GetData()过程处理后增加120,变成220,同时在过程外部的J的值也变为220。最后输出变量J,因此选择C选项。
转载请注明原文地址:https://kaotiyun.com/show/XISp777K
0

最新回复(0)