用INPUTBOX 函数输入3个任意整数。从大到小等顺序输出

这个算法类似于选择排序：

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim max As Integer, min As Integer

a = Val(InputBox("输入第1个整数", "Input"))
b = Val(InputBox("输入第2个整数", "Input"))
c = Val(InputBox("输入第3个整数", "Input"))

max = a
If b > max Then max = b
If c > max Then max = c

min = a
If b < min Then min = b
If c < min Then min = c

Print max, a + b + c - max - min, min
End Sub

103481444 的答案是基本上是冒泡排序

或者穷举：

If a >= b And b>=c Then Print a,b,c
If a >= c And c>=b Then Print a,c,b
……

Option base 1
Private sub command1_click()
for i=1 to 3
arrnum(i) =Val(inputbox("输入第"+str(i)+"个数",数据输入框",0))

next
for i=1 to 3
print arr(i)