解释VB代码，谢谢

来源：百度知道 编辑：UC知道 时间：2024/06/08 04:39:37
redim preserve a(n+1)
p=0
do while x>a(p) and p<=n
p=p+1
loop
for i =n to p step-1
a(i+1)=a(i)
next i
a(p)=x

redim preserve a(n+1) '重新定义a的长度，并保留原始数据

p=0'让p等于0

do while x>a(p) and p<=n'当x>a(p)且p<=n的时候
p=p+1'让p递增
loop'循环

for i =n to p step-1'让i从n递减到p循环
a(i+1)=a(i)'让a(i+1)等于a(i)
next i'循环

a(p)=x'让a(p)等于x

这很可能是一个插入排序的过程