while_w.bas

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

'--------------------------------------------------------------
'                (c) 1997-1999 MCS Electronics
'--------------------------------------------------------------
'  file: WHILE_W.BAS
'  demo: WHILE, WEND
'--------------------------------------------------------------
Dim A As Byte

A = 1                                   'assign var
While A < 10                            'test expression
   Print A                              'print var
   Inc A                                'increase by one
Wend                                    'continue loop
End