VB数字由小到大排列

冒泡排序法：
n = 1
k = 6
Dim a(6)
For i = 1 To 6
a(i) = Int(InputBox("输入第" & i & "个数"))
Next
For k = 6 To 1 Step -1
For n = 1 To k
If a(n) > a(k) Then
m = a(k): a(k) = a(n): a(n) = m
End If
Next
Next
msgbox (a(1) & " " & a(2) & " " & a(3) & " " & a(4) & " " & a(5) & " " & a(6))

其实就是一个数组排序噻 方法很多 给你一个插入排序算法

Private Sub InsertSort(ary() As Integer, Optional ByVal sType As Integer = 0)

'*********
'
'逐鹿传说
'插入排序算法
'sType=0 按升序排序
'sType<>0 按降序排序
'
'*********

On Error GoTo ex
Dim iLbound As Integer '指定数组维可用的最小下标
Dim iUbound As Integer '指定数组维可用的最大下标
Dim iPoint As Integer '指针
Dim iCunrent As Integer '待比较的值

iLbound = LBound(ary)
iUbound = UBound(ary)

For j = iLbound + 1 To iUbound