Question

求解编程题

16.下面程序运行的结果是
Private Sub Form_click（）
Dim x As Integer, x1 As Integer
x = 5: x1 = 4
Call Ktest（x, x1）
Print x; x1;
Call Ktest（x, x1）
Print x; x1
End Sub
Sub Ktest（ByVal t As Integer, byref t1 As Integer）
t = t + 5
t1 = t1 + t * 2
End Sub
A. 10 14 25 39
B. 5 24 44 5
C. 5 24 5 44
D. 10 24 15 44
求解释。

Answer 1

答案选择 C. 5 24 5 44

Sub Ktest（ByVal t As Integer, byref t1 As Integer）

第一个参数是 ByVal t As Integer
值传递，不影响外部，所以，Call Ktest（x, x1）时，对 x 没有任何影响，x 始终是5。
到现在为止，已经可以判定答案是 C 了。

第二个参数是 byref t1 As Integer
是地址传递，或者叫引用传递，每Call Ktest（x, x1）一次，x1 的值就更改一次，每次增加20。
所以答案就是 C. 5 24 5 44