test.txt

来自「Basic语言解释器.zip」· 文本 代码 · 共 17 行

 Dim A As Integer
 Dim B As Integer
 A=0
 B=0
 Do While A<10
  B=0
  Do While B<10
   Print " "
   Print B
   B=B+1
  Loop
  A=A+1
  Print
 Loop