2016-03-31

Option Base 1

Private Sub Command1_Click()

 

Cls

Font.size = 30

Dim a As Integer

 

Dim sierdun(15) As Integer

n = 1

While n <= 15

   sierdun(n) = Int(Rnd * 1000)

    n= n + 1

Wend

 

 

Dim swap As Integer

m = 1

While m < 14

    n = 1

    While n <= 15 - 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 = 1

While n <= 15

   Print sierdun(n)

    n= n + 1

Wend

      

      

       

 

End Sub