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

Question

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

Answer 1

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

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
……

Answer 2

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)
next i
print
for i= 2 to 3
for j=1 to i-1
if arr(j) > arr(i) then
t=arr(i)
arr(i)=arr(j)
arr(j)=t
end if
next jnext i
print "排序后的数据"
for i =1 to 3
print arr(i);
next i
end sub