可以用iF完成啊, i=1 do if i=1 then Gosub 子程序1 ElseIf i=2 then Gosub 子程序2 ElseIf l=3 then Gosub 子程序3 End If loop 以此类推
ture=0n=0if n=ture thencall aend ifsub ai=0while i<30call bi=i+1wendend subsub bMessageBox ""end sub