demo.txt

Basic语言的解释器 由于本人没有学过《编译原理》所以做的不好,等我学完《编译原理》后再做个好的. 我正在看《编译原理及实践》,所以把老师写的demo附上.

Sub Main()

 Dim a As Integer
 Print "1+2+3+...+100="
 a=100
 Count(a)
End Sub

Sub Count( Dim Max As Integer)
 Dim i As Integer
 Dim s As Integer
 s=0
 i=1
 Do
  s=s+i
  i=i+1
 Loop While i<Max+1
 Print s
End Sub