b
来源：互联网 发布：ubuntu 16.04的qq 编辑：程序博客网 时间：2024/04/27 21:01
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim b As Integer, c As Integer
Dim d As Integer
c = Int(Rnd() * 1000)
b = Int(Rnd() * 1000)
Print "b=" & b
Print "c=" & c
d = c
c = b
b = d
Print "b=" & b
Print "c=" & c
End Sub
Cls
Me.Font.Size = 50
Dim b As Integer, c As Integer
Dim d As Integer
c = Int(Rnd() * 1000)
b = Int(Rnd() * 1000)
Print "b=" & b
Print "c=" & c
d = c
c = b
b = d
Print "b=" & b
Print "c=" & c
End Sub
0 0
