dbase/fizzbuzz.prg · 246 字节 · 下载原文

* FizzBuzz —— dBase（xBase）示例
* 运行: dbaserun Examples/dbase/fizzbuzz.prg
FOR i = 1 TO 20
  IF MOD(i, 15) = 0
    ? "FizzBuzz"
  ELSEIF MOD(i, 3) = 0
    ? "Fizz"
  ELSEIF MOD(i, 5) = 0
    ? "Buzz"
  ELSE
    ? STR(i)
  ENDIF
NEXT