Sub Change(x As Integer, y As Integer)
   Dim t As Integer
   t = x
   x = y
   y = t
   Print x, y
End Sub
Private Sub Form_Click()
  Dim a As Integer, b As Integer
  a = 30: b = 40
  Change a, b
  Print a, b
End Sub
程序运行后，单击窗体，在窗体上显示的值是（    ）。
A、
30   40
30   40
B、
30   40
40   30
C、
40   30
40   30
D、
40   30
30   40

---