vb，用冒泡排序法实现对数组中含有10个元素（随机产生）的一维数组进行升序排列
vb，用冒泡排序法实现对数组中含有10个元素（随机产生）的一维数组进行升序排列
展开
收起
3
条回答
写回答
写回答
-
Private Sub Command1_Click()
Dim a(1 to 10) ,i ,j,s as integer
Randomize
For i=1 to 10 //随机10个产生1-100的整数
a(i) = Int(Rnd * 100) + 1
next i
for i=1 to 9
for j=i+1 to 10
if a(i)>a(j) then //如果前面的比后面大，那么就让他们交换
s=a(i)
a(i)=a(j)
a(j)=s
end if
next j
next i
for i=1 to 10
Print a(i)
next i
end Sub
有什么不明白的，可以追问。2019-07-17 22:50:54赞同 展开评论 打赏 -
12535Dim n(9) As Integer
For i = 0 To 9
Randomize '初始化
n(i) = Rnd * 100 '赋随机值
Next i
Dim temp As Integer '用作改变位置临时存储
For i = 0 To 8
If n(i) > n(i + 1) Then '判断是否前一位大于后一位
temp = n(i)
n(i) = n(i + 1)
n(i + 1) = temp
i = -1 '为了更准确，让它重新开始
End If
Next i
For i = 0 To 9
Print "第" & i + 1 & "位：" & n(i) '输出
Next i2019-07-17 22:50:54赞同 展开评论 打赏 -
版权声明：本文内容由阿里云实名注册用户自发贡献，版权归原作者所有，阿里云开发者社区不拥有其著作权，亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容，填写侵权投诉表单进行举报，一经查实，本社区将立刻删除涉嫌侵权内容。
相关问答
