作业

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，数字不停交换。