导读 您好,今天小编胡舒来为大家解答以上的问题。冒泡排序代码实现，冒泡排序代码相信很多小伙伴还不知道,现在让我们一起来看看吧！1、随即产生1...

您好,今天小编胡舒来为大家解答以上的问题。冒泡排序代码实现，冒泡排序代码相信很多小伙伴还不知道,现在让我们一起来看看吧！

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爱好者,以后互相学习,互相努力哦!!!^_^。

本文就为大家分享到这里，希望小伙伴们会喜欢。