在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码: Private Sub Commandl_Click() Dima(5) Fori=0 To 4A(i)=i+1t=i+1If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i)
主观题
在窗体上画一个命令按钮(其Name属性为Commandl),然后编写如下代码: Private Sub Commandl_Click() Dima(5) Fori=0 To 4A(i)=i+1t=i+1If t=3 Then Print a(i) A(t-1)=a(i-2) Else A(t)=a(i) End If Ifi=3 Thena(i+1)=a(t-4) A(4)=1 Printa(i)