!!!!!!!!!急,一个超级简单的冒泡排序,怎么结果一直是错的?????

wlaptech 2004-02-26 12:48:29
Private Sub Command1_Click()
Dim a(5) As Long
Dim i, j As Long
Dim temp As Long
a(0) = 68
a(1) = 100
a(2) = 18
a(3) = 188
a(4) = 80

While (i < 5)
While (j < i - 1)
If a(j) > a(j + 1) Then
temp = a(j)
a(j) = a(j + 1)
a(j + 1) = temp
End If
j = j + 1
Wend
i = i + 1
Wend
MsgBox a(0)
MsgBox a(1)
MsgBox a(2)
MsgBox a(3)
MsgBox a(4)
End Sub 怎么回事????
...全文
23 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2004-02-26 12:48
社区公告
暂无公告