vb代码怎么在数组中插入元素。

Question

如题所述

Answer 1

Dim st As String = ""
        Dim a(9) As Integer, aa As Integer
        Dim i As Integer, n As Integer
        For i = 0 To 8
            a(i) = i + 1
        Next
        aa = Val(InputBox(" 请输入一个整数"))
        n = Int(10 * Rnd())
        For i = 8 To n - 1 Step -1
            a(i + 1) = a(i)
        Next
        a(n) = aa
        For i = 0 To 9
            st = st & a(i) & " "
        Next
        TextBox6.Text = st.ToString

Answer 2

是这样