VFP实验作业9-13答案

1、实验9（1）字段： xm, jg表： xs筛选：ALLT(jg)=”江苏” AND xb=”女”（2）字段 xm,YEAR(DATE()-YEAR(csrq) AS 年龄表： js筛选： xb=”男”排序： YEAR(DATE()-YEAR(csrq) AS 年龄杂项：排在前面的1个（3）字段： LEFT(xh,2) AS 年级, COUNT(*) AS 人数表： xs分组：LEFT(xh,2) AS 年级排序：LEFT(xh,2) AS 年级（4）字段：xh,COUNT(*) AS 选课门数,AVG(cj) AS 平均成绩表：cj分组：xh输出去向：表qdata（5）字段：kcdh, AVG

2、(cj) AS 平均分表： cj分组：kcdh，满足条件：平均分=60;输出去向：临时表tnpb（6）字段：xs.xh表：cj 筛选：cj=0.25排序：SUM(IIF(zc=”教授”,1,0) AS 教授人数、降序（10）字段：kcm,MAX(cj) AS 最高分,MIN(cj) AS 最低分,AVG(cj) AS 平均分表：cj与kc内联接，联接条件：kc.kcdh=cj.kcdh分组：kcm，满足条件：平均分=75（11）字段：xs.xh,xm,COUNT(cj.xh) AS 选课门数表：xs 与cj左联接，联接条件：xs.xh=cj.xh 分组：xs.xh（12）字段：xs.xh,xm

3、,COUNT(*) AS 补考门数表：xs与cj内联接，联接条件：xs.xh=cj.xh筛选：cj=60; TO CURS tnpb SELECT DISTINCT xs.xh;FROM cj ;WHERE cj=0.25;ORDER BY 3 DESC SELECT kcm,MAX(cj) AS 最高分,MIN(cj) AS 最低分,AVG(cj) AS 平均分;FROM cj INNER JOIN kc ON kc.kcdh=cj.kcdh;GROUP BY 1 HAVING 平均分=75 SELECT xs.xh,xm,COUNT(cj.xh) AS 选课门数;FROM xs LEFT

4、JOIN cj ON xs.xh=cj.xh;GROUP BY 1 或者：SELECT xs.xh,xm,COUNT(*) AS 选课门数;FROM xs JOIN cj ON xs.xh=cj.xh;GROUP BY 1;UNION;SELECT xs.xh,xm,0 AS 选课门数;FROM xs LEFT JOIN cj ON xs.xh=cj.xh HAVING cj.xh IS NULL SELECT xs.xh,xm,COUNT(*) AS 补考门数;FROM xs INNER JOIN cj ON xs.xh=cj.xh;WHERE cj (SELECT COUNT(*) FRO

5、M js JOIN xim ON js.xdh=xim.xdh WHERE ximing=”数学系”)（4）SELECT kcmc,kss; FROM kc;WHERE bxk AND kssANY(SELECT kss FROM kc WHERE NOT bxk);ORDER BY 2 DESC（5）SELECT xm,”教师” AS 身份;FORM js;UNION;SELECT xm,”学生” AS 身份;FORM xs; ORDER BY 2(6) SELECT kcm,COUNT(*) AS 人数； FROM kc JOIN cj ON kc.kcdh=cj.kcdh; GROUP

6、BY 1; UNION; SELECT “选课学生人数为”+SPACE(4),COUNT(DISTINCT cj.xh) AS 人数; FROM cj ; ORDER BY 2实验12（1） NOTE ZY1.PRG INPUT “请输入行驶里程：” TO s IF s=65 AND ASC(c)=97 AND ASC(c)=65 AND ASC(c)=65 AND ASC(c)=97 AND ASC(c)0 c=LEFT(str1,1) IF ASC(c) =127 str2=c+str2 str1=SUBSTR(str1,2) ELSE str2=LEFT(str1,2)+str2str1

7、=SUBSTR(str1,3) ENDIF n=LEN(str1)ENDDO ?str2(5) NOTE ZY5.PRGn=0FOR i=10 TO 10000 d1=MOD(i,10) d2=MOD(INT(i/10),10) d3=MOD(INT(i/100),10) d4=MOD(INT(i/1000),10) DO CASE CASE i100 IF d1=d2 n=n+1 ENDIF CASE i1000 IF d1=d3 n=n+1 ENDIF OTHERWISE IF d1=d4 AND d2=d3 n=n+1 ENDIF ENDCASE NEXT ?n(6) NOTE ZY6.

8、PRG sumcj=0 USE cj ACCEPT “请输入学号：” TO xh1 LOCATE FOR xh=xh1 IF EOF() ?”无”+xh1+”的成绩。” ELSESCAN FOR xh=xh1 ?kcdh,cj sumcj=sumcj+cj ENDSCAN ?”总成绩为：”,sumcj ENDIF USE(7) NOTE ZY7.PRG SELECT js.gh,jbgz,ximing; FROM xim JOIN js JOIN gz ON js.gh=gz.gh ON js.xdh=xim.xdh; WHERE ximing”医学院”; INTO DBF gz1 UPDAT

9、E gz1 SET jbgz=jbgz*1.05 SELECT * FROM gz1 a; WHERE jbgz0IF ASC(LEFT(cString,1)0cWord=LEFT(cText,nSpacePos)ELSEcWord=cTextENDIFcWord=UPPER(LEFT(cWord,1)+SUBSTR(cWord,2)cResult= cResult+cWordcText=LTRIM(SUBSTR(cText,nSpacePos)ENDDOWAIT WINDOW cResult实验13（1）FUNCTION ntoz PARA n str1=”零一二三四五六七八九” RETUR

10、N SUBSTR(str1,2*n+1,2) ENDFUNC(2) NOTE ZY1.PRG INPUT “请输入一个数字字符串：” TO l ?”字符串”+l+”的中文表示是：” m=LEN(l) FOR i=1 TO m ?ntoz(VAL(SUBSTR(l,i,1) ENDFOR(3) NOTE ZY2.PRG DIMENSION a(100) n=0FOR i=1 TO 100 a(i)=INT(RAND()*10000+1) IF hs(a(i) n=n+1 ENDIFNEXT?nFUNCTION hs PARA m FOR j=2 TO m-1 IF m%j=0 RETURN .T. ENDIF NEXT RETURN .F.(4) ZY3.PRGINPUT n= TO nm=FOR i=1 TO nINPUT a= TO aINPUT b= TO bINPUT “c=” TO c?系数a，b，c 为,a,b,c,的方程有DO f WITH a,b,c,m?mENDFORPROCEDURE fPARAMETER a1,b1,c1,m1d=b12-4*a1*c1DO CASECASE d0m1=2 个不等的实