vb用冒泡法将数据-2,5,24,58,43,-10,87,75,27,83排序

答案:2 悬赏:60 手机版

解决时间 2021-03-29 15:03

提问者网友：欲劫无渡
2021-03-28 19:24

最佳答案

五星知识达人网友：夜风逐马
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

全部回答

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息