VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2006/04/13(Thu) 11:31 |
| 投稿者 | ： ＶＢくん |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ＶＢ６クイックソートについて |
Const N = 10
Private Sub quick(A() As Variant, B As Variant, C As Variant)
If B < C Then
S = A(B)
I = B
J = C + 1
Do While 1
Do
I = I + 1
Loop While A(I) < S
Do
J = J - 1
Loop While A(J) > S
If I >= J Then Exit Do
T = A(I): A(I) = A(J): A(J) = T
Loop
A(B) = A(J): A(J) = S
quick A(), B, J - 1
quick A(), J + 1, C
End If
End Sub
Private Sub Command1_Click()
Dim A(N)
A(0) = 41: A(1) = 24: A(2) = 76: A(3) = 11: A(4) = 45
A(5) = 64: A(6) = 21: A(7) = 69: A(8) = 19: A(9) = 36
quick A(), 0, N - 1
Picture1.Cls
For K = 0 To N - 1
Picture1.Print A(K)
Text1.Print A(K)
Next
End Sub
いきなり貼り付けてすいません。
ソートコードの最後のＰｉｃｔｕｒｅ１．ＣｌｓとＰｉｃｔｕｒｅ１．Ｐｒｉｎｔ Ａ（Ｋ）とＫの
変数の目
的の意味を教えてください。これだとオブジェクトが必要ですと表示されます。たびたび申し訳
ないです。。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）