2

2.将最小数放在最后一个

Private Sub Command1_Click()

   Font.Size = 30

   Dim n As Integer

   Dim xinhua(10) As Integer

   n = 1

While n <= 10

   xinhua(n) = Int(Rnd * 1000)

n = n + 1

Wend

 

Dim swap As Integer

 

n = 1

While n <= 9

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

swap = xinhua(n)

xinhua(n) = xinhua(n + 1)

xinhua(n + 1) = swap

End If

n = n + 1

Wend

 

n = 1

While n <= 10

Print xinhua(n)

n = n + 1

Wend

End Sub