在窗体上画一个命令按钮(其name属性为command1),然后编写如下代码: private sub command1_click()dim a(5)for i=0 to 4a(i)=i+1t=i+1if i=3 thenprint a(i);a(t-1)=a(i-2)elsea(t)=a(i)end ifif i=3 then a(i+1)=a(t-4)a(4)=1print a(i)next iend sub