[VB6 ] 請問這個氣泡排序法出了什麼問題....

[deju (呼雷)]

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
推 junhao:他討厭你 XD
→ jerick:for p=5 to 1 step -1
→ MOONRAKER:推他討厭你 XDDDDDD
推 yauhh:要不要試試看轉數字型態   CInt(A(j)) ...
→ yauhh:手邊已經沒有VB6來確認了, 請你自己試試看
→ MOONRAKER:VB6有這樣獨立的print好用啊？
推 wwon:二樓是對的。
推 yauhh:嗯,二樓是對的; VB6的確還保有BASIC的 PRINT 命令
→ MOONRAKER:怪哉，以前用print都會錯的說…
→ deju:成功了 但是有偶爾排不出不成功
推 fumizuki:VB6的Print等於 Form.Print()
推 fumizuki:請注意宣告變數要明確指定資料型態...
推 albb0920:不指定就是Varient吧，應該沒什麼關係
推 fumizuki:不定型別 vb會自動轉型...
→ fumizuki:不過會變得不確定vb會以字串進行比較 還是以數字進行比較
推 fumizuki:"3" > "10"    3 < 10   結果就完全相反
→ scotty007:2樓2樓.....