VB语言随机产生10个10-99内的整数，分别用冒泡法和选择法将数据从大到小排序并显示结果

如题所述

举报该文章

相关建议 2011-05-11

写了无数个了，你自己参考下面的链接，各种算法都有。

产生随机数，就用这个
dim marr%(0),i%
for i=0 to 9
randomize
marr(i)=int(rnd*90)+10
next追问

不对啊，

参考资料：http://www.itlearner.com/article/2682

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pv2s42ff4.html

其他看法

第1个回答 2011-05-11

Private Sub Form_click()
Dim A(1 To 10)
Randomize
For I = 1 To 10
A(I) = Int(Rnd * 90) + 10
Next I
For I = 1 To 9 '选择法
p = I
For J = I + 1 To 10
If A(J) < A(I) Then
p = J
End If
Next J
tem = A(I)
A(I) = A(p)
A(p) = tem
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I

For I = 1 To 9 '冒泡法
For J = 1 To 10 - I
If A(J) > A(J + 1) Then
tem = A(I)
A(I) = A(p)
A(p) = tem
End If
Next J
Next I
For I = 1 To 10
A(I) = A(11 - I)
Next I

End Sub
已经调试过追问

print 什么啊

本回答被提问者采纳

第2个回答 2011-05-11

vcvcv

相似回答

大家正在搜