问题详情

运行下列程序：
Dim b
Private Sub Form_Click()
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.X = 1，Y = 1
B.X = 2，Y = 6
C.X = 6，Y = 2
D.X = 6，Y = 1