问一个循环的问题，急死了！！！！！！！！！！！！！！！

Question

两列数，比如分别为0，5，7，8，9，23，45和3，23，34
想排列在一起，从小到大排列，如何计算？

Answer 1

把那两列数放到一个数组里（比如放到Temp()数组），然后调用下面的排序函数Private Sub Sort(ByRef arrSort() As Single)
    Dim arrTemp As Single, i%, j%
    For i = 0 To UBound(arrSort)
        For j = i + 1 To UBound(arrSort)
            If arrSort(i) > arrSort(j) Then
                arrTemp = arrSort(i)
                arrSort(i) = arrSort(j)
                arrSort(j) = arrTemp
            End If
        Next
    Next
End Sub'调用
Private Sub Command1_Click()
    Sort Temp
End Sub

Answer 2

Option Explicit
Dim a(5) As Integer
Private Sub Command1_Click()
 Dim i As Integer
 Dim j As Integer
 Dim t As Integer
  For i = 0 To 5
    For j = i To 5
       If a(i) > a(j) Then
           t = a(j)
           a(j) = a(i)
           a(i) = t
       End If
    Next
    Next
    For i = 0 To 5
    Debug.Print a(i)
    Next
    End SubPrivate Sub Form_Load()
a(0) = 34
a(1) = 0
a(2) = 5
a(3) = 48
a(4) = 23
a(5) = 9
End Sub
拿去参考吧！！