[填空题] 以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。

[填空题] 以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据的个数，插入后数组中的数仍有序。请填空补充程序。

Sub fun(w，x，n)

Dim i，p

p=0

w(n)=x

Do While x＞w(p)

【11】

Loop

For i=n to p+1 Step-1

w(i)= 【12】

Next i

w(p)=x

n=n+1

Sub End

[11]p＝p+1 [12]w(i-1)

先要找到x的插入点，从w(0)开始与x比较，找到第一个大于x的元素，该元素的位置即为x的插入点，DoWhile语句就是完成这个功能，p作为下标变量，每循环比较一次，就移动一次，因此要对p进行加1的操作；找到x的插入点后，要将其后元素依次后移，从最后一个元素开始移动，把前一个元素的值送到后一个元素处。