在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click()Dim a(5)For i=0 To 4 a(i)=i+1t=i+1 If t=3 ThenPrint a(i)a(t-1)=a(1-2) Elsea(t)=a(i) End if If i=3 Then a(i+1)=a(t-4) a(4)=1 Print a(
主观题
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Private Sub Command1_Click()Dim a(5)For i=0 To 4 a(i)=i+1t=i+1 If t=3 ThenPrint a(i)a(t-1)=a(1-2) Elsea(t)=a(i) End if If i=3 Then a(i+1)=a(t-4) a(4)=1 Print a(