VB作业

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