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

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 怎么回事????
...全文
58 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧