求助 这个程序是用来干什么的

Private Sub Command1_Click()
Cls
a% = Text1.Text
b% = Text2.Text
c% = Text3.Text
If b > a Then
t = a
a = b
b = t
End If
If c > a Then
t = a
a = c
c = t
End If
If c > b Then
t = b
b = c
c = t
End If
Print a, b, c
End Sub