在窗体上画一个命令按钮（其name属性为command1），然后编写如下代码： private sub command1_click()

dim a(5)

for i=0 to 4

a(i)=i+1

t=i+1

if i=3 then

print a(i);

a(t-1)=a(i-2)

else

a(t)=a(i)

end if

if i=3 then a(i+1)=a(t-4)

a(4)=1

print a(i)

next i

end sub