try1.bas
上传用户:afrynkmhm
上传日期:2007-01-06
资源大小:1262k
文件大小:0k
源码类别:

编译器/解释器

开发平台:

Others

  1. PROGRAM ( ChainParameterString$ , DebugMode% )
  2. x%=2
  3. do until x%=5
  4. x% = x% +1
  5. print x%
  6. loop
  7. do
  8. x%=x%+1
  9. print x%,x%,"Hello World"
  10. loop until x%=7
  11. if x% = 1 then
  12. print 21
  13. else if x% = 2 then
  14. print 22
  15. else if x% = 5 then
  16. print 23
  17. else
  18. print 24
  19. end if
  20. for x%=1 to 3
  21. y%=x%
  22. print x% , y%+2
  23. next x%
  24. y% = 2
  25. end