Private Sub Command1_Click()
Dim a()
a = Array(12, 23, 34, 55, 66, 69, 78) '原来的数组
Print "原来的数组:"
n = UBound(a)
For i = 0 To n
Print a(i);
Next i
ReDim Preserve a(n + 1)
x = Val(InputBox("请输入一个要插入的数:")) '读入一个新的要插入的数
Do While a(n) > x '从后面开始,将大数后移一位
a(n + 1) = a(n)
n = n - 1 '继续比较前面的数
If n < 0 Then Exit Do '超出范围就退出循环
Loop
a(n + 1) = x '将新数插入合适的位置
Print "新的数组:"
For n = 0 To UBound(a) '输出新的数组
Print a(n);
Next n
Print: Print
End Sub