例7-7.prg

几个VFP程序实例

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