Question

VB6.0三个数排序完全代码

三个数按从小到大的顺序进行排序

Answer 1

Private Sub Command1_Click()

a = Val(InputBox("请输入第一个数:"))

b = Val(InputBox("请输入第二个数:"))

c = Val(InputBox("请输入第三个数:"))

s = "输入的三个数为：" & a & ", " & b & ", " & c & vbCrLf

If a > b Then t = a: a = b: b = t

If a > c Then t = a: a = c: c = t

If b > c Then t = b: b = c: c = t

MsgBox s & "三个数从小到大为：" & a & ", " & b & ", " & c

End Sub