(资料图片)

1、随即产生10个0~100的数,并按从小到大排序,已经验证OK!!! Private Sub Command1_Click() Dim num(1 To 10) As Integer Dim i, j, t As Integer For i = 1 To 10 num(i) = Int((100 - 0 + 1) * Rnd + 0) Next For i = 1 To 10 For j = i + 1 To 10 If num(i) > num(j) Then t = num(i) num(i) = num(j) num(j) = t End If Next j Next i For i = 1 To 10 Print num(i) Next End Sub 我也是VB爱好者,以后互相学习,互相努力哦!!!^_^。

本文分享完毕，希望对你有所帮助。

关键词： 冒泡排序