HUC VFP 程序填空1.pptx

*【程序填空1】*题目: 表单中用一个编辑框显示一个闭区间内的所有完数，另一个编辑框显示完数相应的因子，标签LABEL3显示完数个数。* 完数是指一个整数等于它的真因子的和，例如6=1+2+3，是一个完数。* 文本框TEXT1中输入的是初值，文本框TEXT2中输入的是终值，两个文本框已经修改为数值型。* 以下是显示按钮的CLICK事件代码。* 请在【】处添上适当的内容，使程序完整。SWS=SSYZ= C=0************SPACE************FOR N=THISFORM.TEXT1.VALUE TO THISFORM.TEXT2.VALUE SYZ= S=0 FOR I=1 TO N-1************SPACE************ IF H%I=0 S=S+I ENDIF ENDFOR************SPACE************ IF S=N C=C+1 SWS=SWS+STR(N,5)+CHR(13) FOR K=1 TO N-1 IF N%K=0 SYZ=SYZ+ALLTRIM(STR(K))+  ENDIF ENDF SSYZ=SSYZ+SYZ+CHR(13) ENDIFENDFORTHISFORM.LABEL3.CAPTION=共有+ALLTRIM(STR(C))+个完数！THISFORM.EDIT1.VALUE=SWSTHISFORM.EDIT2.VALUE=SSYZ ?;*【程序填空2】*-------------------------------------------------------?*题目:找出XSDB.DBF中奖学金最高的学生记录并输出。请在【】* 处添上适当的内容，使程序完整。?*-------------------------------------------------------?***********SPACE**********S=0MAX=0***********SPACE**********DO WHILE ALLTRIM（THISFORM.TEXT1.VALUE） IF MAX奖学金***********SPACE********** CONTINUE JLH=RECN() ENDIF  SKIPENDDO?MAXDISP FOR RECN()=JLHUSE;*【程序填空3】*-------------------------------------------------------?*题目：求出1到100之间的奇数积、偶数和。?*------------------------------------------------------- ?SET TALK OFF***********SPACE**********S1=0s2=1FOR I=1 to 100***********SPACE********** IF MOD(I,2)=0  s1=s1+I Else***********SPACE********** s2=S2*I ENDIFNEXT? 奇数积为:,s2?偶数和为:,s1SET TALK ON;*【程序填空4】*题目:在SDB数据库中含有三个表：* 学生(学号 C(2),姓名 C(8),出生日期 D,性别 C(2),院系号 C(1))、* 成绩(学号 C(2),课程号 C(2),成绩 N(5,1))、* 课程(课程号 C(2),课程名 C(20),学时 N(2)，学分 N(2)，开课单位 C(20))。* 在其中查询每门课程的最高分，查询结果含课程名、和最高分两个字段，结果按课程名降序保存在一个新表NEW_TABLE中。* 请在【】处添上适当的内容，使程序完整。***********SPACE**********SELE 课程名,MAX(成绩) AS 最高分 FROM 课程,成绩; ?***********SPACE**********WHERE 课程.课程号=成绩.课程号GROUP BY 成绩.课程号;?***********SPACE**********ORDER BY 课程名 DESC INTO TABLE NEW_TABLE ;*【程序填空5】*-------