vb代码怎么在降序的数组中插入一个元素？

Question

如题所述

Answer 1

Dim str As String = ""
        Dim n As Integer
        n = InputBox("请输入一个要插入的数字")
        Dim a(20), temp, x As Integer
        Dim b(21) As Integer
        str = "原来的数列为" & vbCrLf
        For i = 1 To 20
            Randomize()
            a(i) = Int(Rnd() * 90 + 10)
            str = str & a(i) & " "
        Next

        str = str & vbCrLf & "排序后的数组为" & vbCrLf
        For i = 1 To 20
            For j = 1 To 20 - 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 20
            b(i) = a(i)
            str = str & b(i) & " "
        Next
        b(21) = 0
        If n <= b(20) Then
            b(21) = n
        ElseIf n >= b(1) Then
            For x = 21 To 2 Step -1
                b(x) = b(x - 1)
            Next
            b(1) = n
        Else
            For i = 1 To 19
                If n <= a(i) And n > a(i + 1) Then
                    For x = 21 To i + 2 Step -1
                        b(x) = b(x - 1)
                    Next
                    b(i + 1) = n
                    Exit For
                End If
            Next
        End If
        str = str & vbCrLf & "插入后的数组为" & vbCrLf
        For i = 1 To 21
            str = str & b(i) & " "
        Next
        TextBox6.Text = str