投稿日 | : 2003/02/25(Tue) 10:00 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^3: バブルソート例 |
一番単純なバブルソートを使ったソート例です。
Private Sub Command1_Click()
Dim dat(14, 2) As Long
Dim i As Long
Dim j As Long
Text1.Text = ""
For i = 0& To 14
dat(i, 0) = CLng(99 * Rnd) 'ランダムなデータを作成
Text1.Text = Text1.Text & dat(i, 0) & vbCrLf
Next i
'バブルソート
For i = 0& To 14
For j = i To 14
If dat(i, 0) > dat(j, 0) Then '逆にすれば降順並びに
Swap dat(i, 0), dat(j, 0)
End If
Next j
Next i
Text2.Text = ""
'ソート結果を表示
For i = 0& To 14
Text2.Text = Text2.Text & dat(i, 0) & vbCrLf
Next i
End Sub