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

admin2015-07-01  34

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

选项 A、100
B、120
C、125
D、225

答案A

解析 根据题意,程序代码中用Sub定义了2个过程:Command0_Click()和GetData()。其中GetData的功能是将参数f的值增加120后再赋给f,且f为ByRef类型(即按地址传递)的参数,可将参数在过程中的改变传递到过程外。在过程Command0_Click中定义整型数据J=100,并将J+5作为GetData的参数,然后调用GetData过程。此时在GetData过程中的形参为105,经GetData过程处理后增加120,变成225。但是最后输出的是变量J,而作为GetData参数的J+5是表达式,而J的值在整个过程中并没有改变,还是100,因此选择A选项。
转载请注明原文地址:https://jikaoti.com/ti/Yv20FFFM
0

最新回复(0)