1、vb利用输入框输入一个三位的整数，将其从小到大排序后在自定义对话框窗体上输出其结果

Private Sub Form_Click()
Dim a$, amn%, amx%, a1%, a2%, a3%, rmn%, rmx%
a = 1
Do While Len(a) <> 3 Or Not IsNumeric(a)
a = InputBox("输入一个三位数")
a = Trim(a)
Loop

a1 = Int(Val(a) / 100)
a2 = Int(Val(a) / 10) - 10 * a1
a3 = Val(a) - 100 * a1 - 10 * a2
amx = (a1 + a2) / 2 - Abs(a1 - a2) / 2
amn = (a2 + a3) / 2 - Abs(a2 - a3) / 2
rmn = (amx + amn) / 2 - Abs(amx - amn) / 2
Print a; ":"; rmn,
amx = (a1 + a2) / 2 + Abs(a1 - a2) / 2
amn = (a2 + a3) / 2 + Abs(a2 - a3) / 2

rmx = (amx + amn) / 2 + Abs(amx - amn) / 2
Print a1 + a2 + a3 - rmn - rmx, rmx
End Sub

Sub run()
Dim Arr(1 To 3) As String
Dim OutPut As String
2000: a = InputBox("请输入3位整数")
If Len(a) <> 3 Then
MsgBox "输入位数错误！"
GoTo 2000
End If
Arr(1) = Mid(a, 1, 1)
For i = 1 To 3
Arr(i) = Mid(a, i, 1)
If (Asc(Arr(i)) <