2

1.      打開VB

2.      點擊出現的窗口左側的commandbutton，再點擊出現的command1，在出現的窗口中輸入：

Cls         

Me.Font.Size = 20

Dim a As Integer, b As Integer

Dim c As Integer

   a= Int(1000 * Rnd)

   b= Int(1000 * Rnd)

  Print "a=" & a

  Print "b=" & b

  c =a

  a =b

  b =c

 Print "a=" & a

 Print "b=" & b

3之後關閉出現的窗口，點擊運行中的啓動。再點擊出現的窗口中的command1，數字不停交換。