3
条回答
写回答
写回答
-
-
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(101 * Rnd)
Next i
For i = 1 To 9
k = i
For j = i + 1 To 10
If a(j) < a(k) Then k = j
Next j
t = a(i): a(i) = a(k): a(k) = t
Next i
For i = 1 To 10
Print a(i);
Next i
Print: Print
End Sub
2019-07-17 22:50:32赞同 展开评论 打赏 -
Dim a(1 To 10) As Integer, zc As Integer
For i = 1 To 10
a(i) = Int(Rnd * 101) '0~100一共101个数，从零开始，所以是int(rnd*101+0)，+0省略
Print a(i); '打印原始数据
Next i
Print
For i = 1 To 10
For j = 1 To 9
If a(j + 1) < a(j) Then '如果下标较大的比下标较小的还要小
zc = a(j + 1) '就替换
a(j + 1) = a(j)
a(j) = zc
End If
Next j
Next i
For i = 1 To 10
Print a(i); '打印排序后数据
Next i
如果要在Form中成功打印需要把Form.AutoRedrew设置成True2019-07-17 22:50:32赞同 展开评论 打赏
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
