A和B比大小

来源:互联网 发布:龙回头指标公式源码 编辑:程序博客网 时间:2024/06/11 21:07
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
Dim swap As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
swap = a
a = b
b = swap
End If
0 0