15教育技术余晓红

Private Sub Command1_Click()

Cls

Font.Size = 10

Dim n As Integer

Dim xierdun(15) As Integer

n = 1

While n <= 15

      xierdun(n) = Int(Rnd * 1000)

      n = n + 1

Wend

Dim swap As Integer

n = 1

While n <= 14

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

    swap = xierdun(n)

    xierdun(n) = xierdun(n + 1)

    xierdun(n + 1) = swap

    End If

    n = n + 1

Wend

    

n = 1

While n <= 15

Print xierdun(n)

n = n + 1

Wend

End Sub