15电气李书鹏3（2）

15个随机数从小到大排列

左边点击Command 双击输入

Private Sub Command1_Click()
Cls
    Font.Size = 30
    Dim n As Integer
    Dim sierdum(15) As Integer
    n = 1
    While n <= 15
        sierdum(n) = Int(Rnd * 1000)
        n = n + 1
    Wend
    Dim t As Integer, m As Integer
    m = 1
    While m <= 14
    n = 1
    While n <= 15 - m
    If sierdum(n) < sierdum(n + 1) Then
    t = sierdum(n): sierdum(n) = sierdum(n + 1): sierdum(n + 1) = t
    End If
    n = n + 1
    Wend
    m = m + 1
    Wend
    n = 1
    While n <= 15
    Print sierdum(n)
    n = n + 1
    Wend
End Sub