。。。。。。

Option Base 1

Private Sub Command1_Click()

Cls

Font.size = 30

Dim n As Integer

Dim size As Integer

size = Int(Val(Me.T
68e9
ext1.Text))

Dim sierdun(15) As Integer

n = LBound(sierdun)

While n <= UBound(sierdun)

    sierdun(n) = Int(Rnd * 1000)

    n = n + 1

    Wend

    '开始排序

    Dim swap As Integer

    m = LBound(sierdun)

    While m < UBound(sierdun) - 1

    n = LBound(sierdun)

    While n <= UBound(sierdun) - m

    If sierdun(n) < sierdun(n + 1) Then

    swap = sierdun(n)

    sierdun(n) = sierdun(n + 1)

    sierdun(n + 1) = swap

    End If

    n = n + 1

    Wend

    m = m + 1

    Wend

    '排序结束

    n = LBound(sierdun)

    While n <= UBound(sierdun)

    Print sierdun(n)

    n = n + 1

    Wend

    
End Sub