vb用冒泡法将数据-2,5,24,58,43,-10,87,75,27,83排序
答案:2 悬赏:60 手机版
解决时间 2021-03-29 15:03
- 提问者网友：欲劫无渡
- 2021-03-28 19:24
vb用冒泡法将数据-2,5,24,58,43,-10,87,75,27,83排序
最佳答案
- 五星知识达人网友：夜风逐马
- 2021-03-28 20:48
Sub maopao()
Dim a = Array(-2,5,24,58,43,-10,87,75,27,83)
Dim i As Integer, j As Integer
For i = UBound(a) - 1 To 0 Step -1
For j = 0 To i
If a(j) > a(j + 1) Then
a(j) = a(j) + a(j + 1)
a(j + 1) = a(j) - a(j + 1)
a(j) = a(j) - a(j + 1)
End If
Next j
Next i
For i = 0 To UBound(a)
Print a(i)
Next i
End Sub
Dim a = Array(-2,5,24,58,43,-10,87,75,27,83)
Dim i As Integer, j As Integer
For i = UBound(a) - 1 To 0 Step -1
For j = 0 To i
If a(j) > a(j + 1) Then
a(j) = a(j) + a(j + 1)
a(j + 1) = a(j) - a(j + 1)
a(j) = a(j) - a(j + 1)
End If
Next j
Next i
For i = 0 To UBound(a)
Print a(i)
Next i
End Sub
全部回答
- 1楼网友：鱼芗
- 2021-03-28 21:01
arr = Split("-2,5,24,58,43,-10,87,75,27,83", ",")
Do
f = 1
For i = LBound(arr) To UBound(arr) - 1
If Val(arr(i)) < Val(arr(i + 1)) Then
f = 0
t = arr(i)
arr(i) = arr(i + 1)
arr(i + 1) = t
End If
Next
Loop Until f = 1
Do
f = 1
For i = LBound(arr) To UBound(arr) - 1
If Val(arr(i)) < Val(arr(i + 1)) Then
f = 0
t = arr(i)
arr(i) = arr(i + 1)
arr(i + 1) = t
End If
Next
Loop Until f = 1
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯