VB作业：使用冒泡排序法对输入的10个随机数进行从大到小排序。 要有详细步骤
VB作业：使用冒泡排序法对输入的10个随机数进行从大到小排序。 要有详细步骤
展开
收起
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
1
条回答
写回答
-
社区管理员
Private Sub Command1_Click()
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数：")
Print a(i);
Next i
Print
Print "排序以后："
For i = 1 To 9
For j = 1 To 10 - i
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
Print
End Sub
2019-07-17 22:49:54赞同 展开评论
相关问答
问答排行榜
最热
最新
还有其他疑问?
咨询AI助理