vb三值排序

Private Sub Command1_Click()
Dim A As Long, B As Long, C As Long
A = Text1.Text
B = Text2.Text
C = Text3.Text

If A > B And A > C And B > C Then Text1.Text = A: Text2.Text = B: Text3.Text = C
If A > B And A > C And C > B Then Text1.Text = A: Text2.Text = C: Text3.Text = B
If B > A And B > C And A > C Then Text1.Text = B: Text2.Text = A: Text3.Text = C
If B > A And B > C And C > A Then Text1.Text = B: Text2.Text = C: Text3.Text = A
If C > A And C > B And A > B Then Text1.Text = C: Text2.Text = A: Text3.Text = B
If C > A And C > B And B > A Then Text1.Text = C: Text2.Text = B: Text3.Text = A
End Sub

Private Sub Command2_Click()
MsgBox "确实想退出吗?", 4, "提示"
Unload Me
End Sub

Private Sub Form_Load()
Command1.Caption = "排序"
Command2.Caption = "退出"
End Sub

Option Explicit