|
Dim v(1 To 8) As Integer Dim i As Integer, swap As Integer, num As Integer, m As Integer Private Sub Cmdord_Click() m = 8 Do While m > 1 i = 1 Do While i < m If v(i) > v(i + 1) Then swap = v(i) v(i) = v(i + 1) v(i + 1) = swap End If i = i + 1 Loop m = m - 1 Loop For i = 1 To 8 Text2.Text = Text2.Text & " " & v(i) Next i End Sub Private Sub Cmdres_Click() Text1.Text = "" Text2.Text = "" Call Form_Load End Sub Private Sub Form_Load() For i = 1 To 8 Randomize num = Int((Rnd * 100) + 1) v(i) = num Text1.Text = Text1.Text & " " & num Next i End Sub
|
|
