dim N,A
N=0
Rem 正文
N=N 1
If N>5
N=1
EndIf
WaitKey A
If A=32
If N=1
Gosub 1
EndIf
If N=2
Gosub 2
EndIf
If N=3
Gosub 3
EndIf
If N=4
Gosub 4
EndIf
If N=5
Gosub 5
EndIf
Goto 正文
EndIf
随便写了一下,大概就是这个样子
是你逻辑搞糊涂了吧 你写的程序的确就是 一直调用A B的死循环啊 你自己看看吧