[VB6 ] 插入排序法

看板Visual_Basic作者minimatsumi (sugar)時間13年前 (2011/06/15 00:47)推噓2(2推 0噓 10→)

留言12則, 4人參與討論串1/1

請問 While j > 1 And A(j - 1) > A(j) 此行出了甚麼問題，不是每次執行都會出問題，有時候會出現執行階段錯誤9 陣列索引超出範圍。以下是我的程式碼 Sub InsertSort(ByRef A, n) Dim standard, j, temp As Integer For i = 1 To n - 1 standard = A(i) j = i + 1 If A(j) < standard Then While j > 1 And A(j - 1) > A(j) temp = A(j) A(j) = A(j - 1) A(j - 1) = temp j = j - 1 Wend End If Next End Sub 謝謝請問有其他更好的寫法嗎?因為總覺得寫的不是很好 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.120.43.238

推

ClubT

06/15 09:18, , 1^F

06/15 09:18, 1^F

→

ClubT

06/15 09:18, , 2^F

06/15 09:18, 2^F

→

ClubT

06/15 09:19, , 3^F

06/15 09:19, 3^F