exit.bas

来自「82 sample programs written in BASCOM-805」· BAS 代码 · 共 26 行

'--------------------------------------------------------------
'                     (c) 1997-2000 MCS Electronics
'--------------------------------------------------------------
'  file: EXIT.BAS
'  demo: EXIT
'--------------------------------------------------------------
Dim B1 As Byte , A As Byte

B1 = 50                                 'assign var
For A = 1 To 100                        'for next loop
   If A = B1 Then                       'decision
      Exit For                          'exit loop
   End If
Next
Print "Exit the FOR..NEXT when A was " ; A

A = 1
Do
  Incr A
  If A = 10 Then
     Exit Do
  End If
Loop
Print "Loop terminated"
End