怎么使用冒泡排序法进行排序？
怎么使用冒泡排序法进行排序？
展开
收起
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
1
条回答
写回答
-
Dim a(8) As Integer, temp As Integer
For i = 1 To 8
a(i) = Int(Rnd * 70 + 10)
Next i
For i = 1 To 8
For j = 1 To 8 - i
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i2019-07-17 22:50:25赞同 展开评论
相关问答
问答排行榜
最热
最新
还有其他疑问?
咨询AI助理