进入vb后选择command并拖入form中
点击form进入code中输入
Private Sub Command1_Click()
ClsMe.Font.Size = 70
Dim a As Integer, b As Integer, c As Integer
c = Int(Rnd() * 1000)
b = Int(Rnd() * 1000)
Print "a=" & a
Print "b=" & b
c = a
a = b
b = c
Print "a=" & a
Print "b=" & b
End Sub
Private Sub 换_Click()
Dim a As String
a = Me.Label1.Caption
Me.Label1.Caption = Me.Label2.Caption
Me.Label2.Caption = a
Dim b As String
Me.Label1.ForeColor = Me.Label2.ForeColor
Me.Label2.ForeColor = b
End Sub