将两个数进行大小排序,并在text 中显示最后结果。(思考。。思考。。。再思考!!!!!!)
创建button 和 text
Private Sub Command1_Click()
Cls
Me.Font.Size = 50
Dim a As Integer
Dim b As Integer
a = Int(Rnd * 1000)
b = Int(Rnd * 1000)
If a < b Then
Me.Text1.Text = "a<b"
End If
If a = b Then
Me.Text1.Text = "a=b"
End If
If a > b Then
Me.Text1.Text = "a>b"
End If
Print a & "," & b; ","
End Sub