VB的排序法的代码
VB的排序法的代码
展开
收起
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
1
条回答
写回答
-
排序的各类很多，最简单的冒泡排序代码如下：
Private Sub Command1_Click()
Dim a(), i As Integer, j As Integer, tmp As Integer
a = Array(1, 3, 2, 5, 4, 6, 9, 7, 8, 0)
Print Join(a, ",")
For i = 0 To UBound(a)
For j = i + 1 To UBound(a)
If a(j) < a(i) Then
tmp = a(j)
a(j) = a(i)
a(i) = tmp
End If
Next
Next
Print Join(a, ",")
End Sub2019-07-17 22:50:18赞同 展开评论
相关问答
问答排行榜
最热
最新
还有其他疑问?
咨询AI助理