Private Sub Command1_Click()
Dim a
#, b#
, c
#, d#

a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
If Not IsNumeric(Text1) Or Not IsNumeric(Text2) Or Not IsNumeric(Text3) Then
MsgBox "输入有误"
ElseIf a > b And b > c Then
Label2.Caption = "从小到大为：" & c & b & a&
ElseIf a > c And c > b Then
Label2.Caption = "从小到大为：" & b & c & a&
ElseIf b > c And c > a Then
Label2.Caption = "从小到大为：" & a & c & b&
ElseIf b > a And a > c Then
Label2.Caption = "从小到大为：" & c & a & b&
ElseIf c > a And a > b Then
Label2.Caption = "从小到大为：" & b & a & c&
ElseIf c > b And b > a Then
Label2.Caption = "从小到大为：" & a & b & c&
End If
End If
End Sub
Private Sub Command2_Click()
End
End Sub