程序1.prg

几个VFP程序实例

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