已知一维数组a()中的元素，分别为{12，15，21，25，27，35，36，39，48，52}，将30插入a，并使a有序

Dim A() As Integer

Private Sub Command1_Click()
Dim i, Ip, t, ins, n As Integer

Text1.Text = ""
For i = 0 To UBound(A) - 1
Text1.Text = Text1.Text & " " & A(i)
Next i

Ip = Val(InputBox("请输入数字"))
For i = 0 To UBound(A)
If Ip < A(i) Then
ReDim Preserve A(UBound(A) + 1)
t = A(i)
A(i) = Ip
ins = i
Exit For
End If
Next i
For i = ins + 1 To UBound(A) - 1
n = A(i)
A(i) = t
t = n
Next i

Text2.Text = ""
For i = 0 To UBound(A) - 1
Text2.Text = Text2.Text & " " & A(i)
Next i
End Sub

Private Sub Form_Load()
ReDim A(9)
A(0) = 12: A(1) = 15: A(2) = 21: A(3) = 25
A(4) = 27: A(5) = 35: A(6) = 36: A(7) = 39
A(8) = 48:A(9)=52
End Sub