已知有序数组a()，编程插入x（x的值为54）。数组a中的元素分别为{4，20，31，63，75，89，99， 100，110 }

最简单的办法
先把这个54放到最后
然后，重新排序
这个方法思路清晰，容易理解和实施

参考代码：
dim a(),x as integer
dim i as integer
a=array(4,20,31,63,75,89,99,100,110)
x=54
redim preserve a(ubound(a)+1) '在数组最后增加一个空位
for i=ubound(a) to 1 step -1 '从数组最后逐渐往前查找x的位置
if x<a(i-1) then '如果x小于前面一个数，表示x应该放在这个数前面
a(i)=a(i-1) '那么前面这个数就后移一个位置
else '否则，就表示x应该放在这个空位
exit for '找到位置了，退出循环
endif
next i
a(i)=x '把x放到对应的位置上

新建一个数组也可以

Dim a()
Dim s, f, i, x
a = Array(4, 20, 31, 63, 75, 89, 99, 100, 110)
s = UBound(a)
x = 54
For f = 0 To s
If x < a(f) Then
Exit For
End If
Next
ReDim Preserve a(s + 1)
For i = s To f Step -1
a(i + 1) = a(i)
Next
a(f) = x
For i = 0 To s + 1
Print a(i)
Next