Vfp Mathematical Calculation Command _ How to Make VFP Calculation Expression

The program code is as follows:

clear

n= 1。 & cyclic variable

s 1=0。 & Zhenghe

S2 = 0 & amp& amp sum of negative numbers

DO WHILE n & lt= 10

Enter "please enter a number" +ALLTRIM(STR(n))+ ":"to d "

If d> then =0

s 1=s 1+d

other

s2=s2+d

ENDIF

n=n+ 1

Endor

"sum of positive numbers ="+alltrim (str (s 1))

"sum of negative numbers ="+alltrim (str (S2))

return