[VB6 ] 請問這個氣泡排序法出了什麼問題....
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
推
06/08 14:04, , 1F
06/08 14:04, 1F
→
06/08 16:31, , 2F
06/08 16:31, 2F
→
06/08 17:07, , 3F
06/08 17:07, 3F
推
06/08 20:14, , 4F
06/08 20:14, 4F
→
06/08 20:14, , 5F
06/08 20:14, 5F
→
06/08 20:44, , 6F
06/08 20:44, 6F
推
06/08 20:50, , 7F
06/08 20:50, 7F
推
06/08 21:19, , 8F
06/08 21:19, 8F
→
06/08 22:11, , 9F
06/08 22:11, 9F
→
06/09 02:38, , 10F
06/09 02:38, 10F
推
06/10 12:39, , 11F
06/10 12:39, 11F
推
06/10 12:40, , 12F
06/10 12:40, 12F
推
06/11 22:18, , 13F
06/11 22:18, 13F
推
06/11 22:43, , 14F
06/11 22:43, 14F
→
06/11 22:44, , 15F
06/11 22:44, 15F
推
06/11 22:46, , 16F
06/11 22:46, 16F
→
06/14 12:34, , 17F
06/14 12:34, 17F