作者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