15电气李书鹏作业3（3）

建立一个text1 再建立一个command

在command里面输入

    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