朋友，你改成这样试下，冒泡排序
Private Sub Command1_Click()
    Dim a As Variant, i As Integer, k As Integer, j As Integer
    Dim temp As Integer
    a = Array(10, 20, 3, 4, 5, 6, 7, 8, 9, 10)
    temp = a(0)
    For i = 8 To 0 Step -1
        For j = 0 To i
            If a(j) < a(j + 1) Then
                temp = a(j)
                a(j) = a(j + 1)
                a(j + 1) = temp
            End If
        Next j
    Next i
    For i = 0 To 9
        Print a(i)
    Next i
End Sub