选择法排序

其实与冒泡法排序的原理是相同的

就是通过依次比较大下来确定顺序

Private Sub Command1_Click()

Cls

Me.Font.Size = 20

Dim a(10) As Integer

Dim i As Integer

For i = 1 To 10

a(i) = 10 + Int(Rnd() * 100)

Print a(i)

Next i

Dim j As Integer

For j = 1 To 9

For i = j + 1 To 10

If a(j) < a(i) Then

swap a(j), a(i)

End If

Next i

Next j

For i = 1 To 10

Print a(i);

Next i

End Sub

Private Sub swap(a As Integer, b As Integer)

Dim t As Integer

t = a

a = b

b = t

End Sub

vb还真是难，不过我会一点一点慢慢学的

因为我一点儿也不着急