填空题

以下过程用来在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