阅读程序: Private Sub Form_Click() Dim x As Integer,y As Integer x=32:y=42 Call PCS(x,y) Print x;y End Sub Sub PCS(ByVal n As Intege

admin2016-06-22  16

问题 阅读程序:
Private Sub Form_Click()
Dim x As Integer,y As Integer
x=32:y=42
Call PCS(x,y)
Print x;y
End Sub
Sub PCS(ByVal n As Integer,ByVal In As Inte
ger)
n=n Mod 10+10
m=m Mod 10+10
End Sub
运行程序,单击窗体,输出结果为(    )。

选项 A、2 32
B、32 42
C、2 3
D、12 3

答案B

解析 单击窗体时,Form_Click()事件被触发,在Form_Click()事件中,定义了两个整型变量x和y,其初始值分别为32和42。通过执行语句“Call PCS(x,y)”来调用过程“PCS”,在调用过程“PCS”时伴随参数传递,在过程“PCS”中,形参n和m前使用ByVal,表示参数传递使用的是单向值传递,在被调过程“PCS”中,对形参的改变,不会影响实参x和y,故本题中x和y的值不变,所以B选项正确。
转载请注明原文地址:https://jikaoti.com/ti/QoJ0FFFM
0

最新回复(0)