下列程序的输出结果是 Dim x As Integer Private Sub Command4_Click() Dim y As Integer x=1 y=10 Call fun(y,x) MsgBox"y="&y End Sub Sub fun(By

admin2020-06-06  26

问题 下列程序的输出结果是
Dim x As Integer
Private Sub Command4_Click()
Dim y As Integer
x=1
y=10
Call fun(y,x)
MsgBox"y="&y
End Sub
Sub fun(ByRef y As Integer,ByVal z As Integer)
y=y+z
z=y-z
End Sub

选项 A、y=1
B、y=10
C、y=11
D、y=9

答案C

解析 在函数参数传递中,包括按地址传递ByRef和按值传递ByVal两种方法。其中前者在函数体内改变变量值会影响参数外的变量,后者不会。本题y是按地址传递,调用fun()函数后,会将y的值改为fun()函数中y的值,所以应选择选项C。
转载请注明原文地址:https://jikaoti.com/ti/ZTQ0FFFM
0

最新回复(0)