作者deju (呼雷)
看板Visual_Basic
標題[VB6 ] 請問這個氣泡排序法出了什麼問題....
時間Sun Jun 8 12:44:08 2008
Dim A(1 To 5)
For i = 1 To 5
A(i) = InputBox(i)
Next i
f = 0
For p = 5 To 1
For j = 1 To p
If A(j) > A(j + 1) Then
f = A(j + 1)
A(j + 1) = A(j)
A(j) = f
End If
Next j
Next p
For k = 1 To 5
Print A(k);
Next k
寫出來 他完全不排
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.217.208.118
1F：推 junhao:他討厭你 XD 06/08 14:04
2F：→ jerick:for p=5 to 1 step -1 06/08 16:31
3F：→ MOONRAKER:推他討厭你 XDDDDDD 06/08 17:07
4F：推 yauhh:要不要試試看轉數字型態 CInt(A(j)) ... 06/08 20:14
5F：→ yauhh:手邊已經沒有VB6來確認了, 請你自己試試看 06/08 20:14
6F：→ MOONRAKER:VB6有這樣獨立的print好用啊？ 06/08 20:44
7F：推 wwon:二樓是對的。 06/08 20:50
8F：推 yauhh:嗯,二樓是對的; VB6的確還保有BASIC的 PRINT 命令 06/08 21:19
9F：→ MOONRAKER:怪哉，以前用print都會錯的說… 06/08 22:11
10F：→ deju:成功了 但是有偶爾排不出不成功 06/09 02:38
11F：推 fumizuki:VB6的Print等於 Form.Print() 06/10 12:39
12F：推 fumizuki:請注意宣告變數要明確指定資料型態... 06/10 12:40
13F：推 albb0920:不指定就是Varient吧，應該沒什麼關係 06/11 22:18
14F：推 fumizuki:不定型別 vb會自動轉型... 06/11 22:43
15F：→ fumizuki:不過會變得不確定vb會以字串進行比較 還是以數字進行比較 06/11 22:44
16F：推 fumizuki:"3" > "10" 3 < 10 結果就完全相反 06/11 22:46
17F：→ scotty007:2樓2樓..... 06/14 12:34