KeyPress 39,1
        EndIf 
    EndIf 
EndIf 
Goto 开始
//循环结束的标记
Rem 结束