大家好,小经来为大家解答以上的问题。冒泡排序代码讲解，冒泡排序代码这个很多人还不知道,现在让我们一起来看看吧！
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爱好者,以后互相学习,互相努力哦!!!^_^。
本文到此分享完毕，希望对大家有所帮助。