vb中比较10个数的大小,(用if太麻烦)有没有简单的方法

冒泡排序：
Private Sub Command1_Click()
Dim arr(1 To 10) As Integer
For i = 1 To 10
arr(i) = Val(inputbox("请输入一个整数"))
Next i
For i = 1 To 10
For j = 1 To 10 - i
If arr(j) > arr(j + 1) Then
temp = arr(j): arr(j) = arr(j + 1): arr(j + 1) = temp
End If
Next j
Next i
For i = 1 To 10
print arr(i)
Next i
End Sub

你可以用排序，冒泡 选择等算法

如果用个算法，可以比如折中，冒泡..
简单的办法..应该没有了吧。