vfp题:从键盘上任意输入10个数,分别计算正数和负数的和

程序代码如下： 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

求vfp题;求3到100之间所有素数

clear
for i=3 to 100
for j=2 to i-1
if i%j=0
EXIT
ENDIF
endf
IF j>=i
??i
endi
endf
我运行过了。

编写程序求1 1/3+1/5 1/7+1/9……前20项的和。VFP题。

楼上的，是前20项，最后一项是-1/39
clear
n=1
s=0
for i=1 to 20
s=s+n/(2*i-1)
n=-n
endfor
?"前20项和为：",s
**************
for 语句也可如下：
for i=1 to 39 step &&39也可改为40
s=s+n/i
n=-n
endfor

数据库原理难题，设有一个SPJ数据库，包括S，P，J，SPJ四个关系模式：注意分别用关系代数和SQL语句哦

关系代数： 1）求供应工程J1零件的供应商号码SNO： πSno(σSno=‘J1’（SPJ）) 2）求供应工程J1零件P1的供应商号码SNO： πSno(σSno=‘J1’∧Pno=‘P1‘(SPJ)) 3）求供应工程J1零件为红色的供应商号码SNO： πSno(σPno=‘P1‘（σCOLOR=’红‘ （P）∞SPJ）) 4）求没有使用天津供应商生产的红色零件的工程号JNO： πJno(SPJ)- πJNO（σcity=‘天津’∧Color=‘红‘ （S∞SPJ∞P） 5）求至少用了供应商S1所供应的全部零件的工程号JNO： πJno，Pno(SPJ)÷ πPno（σSno=‘S1‘ （SPJ）） sql语句： ( l ）求供应工程 Jl 零件的供应商号码 SNO ; SELECT SNO FROM SPJ WHERE JNO=’J1’ ( 2 ）求供应工程 Jl 零件 Pl 的供应商号码 SNO ; SELECT SNO FROM SPJ WHERE JNO=J1 AND PNO=P1 ( 3 ）求供应工程 Jl 零件为红色的供应商号码 SNO ; SELECT SNO FROM SPJ,P WHEREJNO=J1 AND SPJ.PNO=P.PNO AND COLOR=红 ( 4 ）求没有使用天津供应商生产的红色零件的工程号 JNO ; SELECT JNO FROM SPJ WHERE JNO NOT IN(SELE JNO FROM SPJ,P,S WHERE S.CITY=天津 AND COLOR=红 ANDS.SNO=SPJ.SNO AND P.PNO=SPJ.PNO)。 ( 5 ）求至少用了供应商 Sl 所供应的全部零件的工程号 JNO ; 由于VFP不允许子查询嵌套太深，将查询分为两步 A、查询S1供应商供应的零件号 SELECT PNO FROM SPJ WHERE SNO=S1结果是（P1，P2） B、查询哪一个工程既使用P1零件又使用P2零件。 SELECT FROM SPJ WHEREPNO=P1 AND JNO IN (SELECT JNO FROM SPJ WHERE PNO=P2)