ordering2.txt

来自「冒泡排序,VB中调试成功,从大到小 排序,」· 文本 代码 · 共 12 行

Private Sub Command1_Click()
Dim i As Long, j As Long, b As Long
For i = 1 To 9
    For j = 0 To 9 - i
        If a(j) < a(j + 1) Then
            b = a(j)
            a(j) = a(j + 1)
            a(j + 1) = b
        End If
    Next j
Next i
End Sub