冒泡排序法

Question

没有，你能帮我设计一下吗？

Answer 1

Option ExplicitPrivate Sub Form_Load()
    Dim a(9) As Integer
    Randomize
    Form1.AutoRedraw = True
    Dim i As Integer, j As Integer, temp As Integer
    For i = 0 To 9
        a(i) = Int(Rnd * 100) '
        Print a(i) & "  ";    '在窗体上输出原始数据
    Next i
    For i = 0 To 9            '冒泡排序
        For j = 0 To 8 - 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
    Print
    For i = 0 To 9            '在窗体上输出排序后的数据
        Print a(i) & "  ";
    Next i
End Sub