vfp数学计算命令

       程序代码如下：

       CLEAR

       n=1 &&循环变量

       s1=0 &&正数和

       s2=0 &&负数和

       DO WHILE n<=10

        input "请输入第"+ALLTRIM(STR(n))+"个数：" to d

        IF d>=0 THEN

        s1=s1+d

        ELSE

        s2=s2+d

        ENDIF

        n=n+1

       ENDDO

"正数和＝"+ALLTRIM(STR(s1))

"负数和＝"+ALLTRIM(STR(s2))

       RETURN