怎么使用冒泡排序法进行排序？
答案:1 悬赏:0 手机版
解决时间 2021-02-17 08:55
- 提问者网友：原来太熟悉了会陌生
- 2021-02-16 12:38
怎么使用冒泡排序法进行排序？
最佳答案
- 五星知识达人网友：十鸦
- 2021-02-16 13:14
Dim a(8) As Integer, temp As Integer
For i = 1 To 8
a(i) = Int(Rnd * 70 + 10)
Next i
For i = 1 To 8
For j = 1 To 8 - i
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 1 To 8
a(i) = Int(Rnd * 70 + 10)
Next i
For i = 1 To 8
For j = 1 To 8 - i
If a(j) > a(j + 1) Then
temp = a(j + 1)
a(j + 1) = a(j)
a(j) = temp
End If
Next j
Next i
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯