十个数从大到小排列

Private Sub Form_Click()

    Dim a(10) As Integer

    Dim i As Integer

    For i = 1 To 10

        a(0) = Int(InputBox("请输入第" & i & "个整数："))

        InsArrayAndSort(a, i - 1)  '在输入的时候就先进行从小到大排序

    Next

    For i = 1 To 10

        Print a(i);

    Next

End Sub

 

Private Sub InsArrayAndSort(a() As Integer, index As Integer)

    Dim i As Integer, j As Integer

    If index > 0 Then

        For i = 1 To index

            If a(i) > a(0) Then

                For j = index To i Step -1

                    a(j + 1) = a(j)

                Next j

                a(i) = a(0)

                Exit For

            End If

        Next i

        If i > index Then a(index + 1) = a(0)

    Else

        a(1) = a(0)

    End If

End Sub

 

这个程序实现了自动生成和自动排序的过程！！！