VB作业 利用“冒泡法”对一下数据进行从小到大排序：7、3、9、12、20、8（数组）
VB作业 利用“冒泡法”对一下数据进行从小到大排序：7、3、9、12、20、8（数组）
展开
收起
2
条回答
写回答
写回答
-
阿里云开发者社区运营负责人。原云栖社区负责人。For a = 0 To 5
For b = a + 1 To 5
If s(b) < s(a) Then
result = s(a)
s(a) = s(b)
s(b) = result
End If
Next
debug.print(s(a))
Next2019-07-17 22:50:10赞同 展开评论 打赏 -
Private Sub Command1_Click()
Dim a(6) As Integer
a(1) = 7
a(2) = 3
a(3) = 9
a(4) = 12
a(5) = 20
a(6) = 8
For i = 1 To 5
For j = 1 To 6 - i
If a(j) > a(j + 1) Then
r = a(j)
a(j) = a(j + 1)
a(j + 1) = r
End If
Next j
Next i
For i = 1 To 6
Print a(i);
Next i
End Sub2019-07-17 22:50:10赞同 展开评论 打赏
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
问答排行榜
最热
最新
推荐问答
