例7-7.prg

来自「几个VFP程序实例」· PRG 代码 · 共 8 行

*例7.7计算S=1+2+...+100。
s=0
i=1
DO WHILE i<=100
   s=s+i
   i=i+1
ENDDO
? "S=",s