以下过程用来在w数组中插入x，w数组中的数已按由小到大的／顷序存放，n指存储单元中存放数组中数据

的个数，插入后数组中的数仍有序。请填空补充程序。 Sub fun(w，x，n) Dim i，p p=0 w(n)=x Do While x＞w(p) 【 】 Loop For i=n to p+1 Step-1 w(i)=【 】 Next i w(p)=x n=n+1 Sub End