问题详情

运行下列程序：

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