Private Sub Form_Click()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("输入")
b = InputBox("输入")
c = InputBox("输入")
If a > b And b > c Then
Print , a, b, c
ElseIf a > c And c > b Then
Print a, c, b
ElseIf b > a And a > c Then
Print b, a, c
ElseIf b > c And c > a Then
Print , b, c, a
ElseIf c > a And a > b Then
Print c, a, b
Else
Print c, b, a
End If
Print
End Sub
这是一个让输入数值按照大到小显示出来的程序，然后老师说定义子过程会更简单一点，我想了很久也没有想到怎么去定义这个子过程 望大神告知

谢谢

谢谢