程序1.prg

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

CLEAR
STORE 0 TO X,Y    
DO WHILE .T. 
   X=X+1
   DO CASE
      CASE X>30
           EXIT
      CASE MOD(X,5)!=0
           LOOP
      ENDCASE
           Y=Y+X
ENDDO
? Y