![]() |
#2
lowxiong2013-03-31 16:07
|
[code] Private Sub pb1_Click(sender As Object, e As EventArgs) Handles picturebox1.Click
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
If b < a Then
t = a
a = b
b = a
ElseIf c < a Then
t = a
a = c
c = t
ElseIf c < b Then
t = b
b = c
c = t
End If
Print(a, "<", b, "<", c)