1.打开VB软件
2.单击TextBox,放在窗体合适位置,再单击CommandButton,放在窗体合适位置,并将command1属性中名称和caption改为排序,然后双击排序,输入:
Private Sub 排序_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
Me.Text1.Text = "a<b"
Else
Me.Text1.Text = "a>=b"
If a = b Then
Me.Text1.Text = "a=b"
Else
Me.Text1.Text = "a>b"
End If
End If
Print a & "," & b
End Sub