等级考试VFP设计与调试答案.docVIP

程序调试 请务必仔细阅读下列信息，单击“回答”按钮，进行VFP调试[1]考试。 在考生文件夹的Paper\VFP1子文件夹中已有Modify.prg文件。 说明： 在标记“”之前填写所缺代码、调试、保存，并完成以下功能。 要求： 计算算式（M！+N！）/（（M-N）！+M^N+M^M）的值 M、N的值从键盘输入。 注意： （1）仅在标记“”之前填写所缺代码，不能添加或删除程序。 SET TALK OFF CLEAR INPUT M= TO M INPUT N= TO N SM=M DO JC WITH SM SN=N DO JC WITH SN SMN=M-N DO JC WITH SMN CMN=N DO MC WITH M,CMN DO MC WITH M,M __________ 1 ?(SM+SN)/(SMN+CMN+M) SET TALK ON PROC JC PARA X __________ 2 T=1 FOR I=1 TO X T=T*I ENDFOR X=T __________ 3 RETURN PROC MC PARA X,Y ____________ 4 T=1 FOR J=1 TO Y T=T*X ENDFOR Y=T _________ 5 RETURN 2.要求： （1）求学生表中指定班级（如951或952班，学号字段的前3个字符表示班级）所有学生的奖学金总额。 （2）将金额（保留两位小数）以中文大写形式显示输出（如：19642.36显示输出为：壹万玖仟陆佰肆拾贰元叁角陆分） SET TALK OFF SET ESCAPE OFF CLEAR USE 学生 ?************按ESC键结束操作************ DO WHILE .T. ACCEPT 输入指定的班级(如：951或953)： TO BJ LOCATE FOR LEFT(学号,3)=BJ IF FOUND() SUM 奖学金 TO JXJ FOR LEFT(学号,3)=BJ ?BJ+班全体学生的奖学金总额为：+STR(JXJ,5,2)+,中文大写为：+JEZH(JXJ) ELSE ?指定班级不存在! ENDIF IF INKEY(0)=27 EXIT ENDIF ENDDO USE SET TALK ON SET ESCAPE ON FUNCTION JEZH PARAMETERS X C1=零壹贰叁肆伍陆柒捌玖 C2=分角元拾佰仟万拾佰仟亿 M=ROUND(X,2) M=M*100 I=0 C=SPACE(0) DO WHILE .T. N=MOD(M,10) 1 P1=SUBSTR(C1,2*N+1,2) P2=SUBSTR(C2,2*I+1,2) C=P1+P2+C 2 I=I+1 M=INT(M/10) 3 IF M=0 EXIT ENDIF ENDDO RETURN C ENDFUNC 3．要求：输出正整数表达式（正整数由用户从键盘输入）的质数因子连乘式。 SET TALK OFF CLEAR INPUT “请输入一个正整数” TO X ________ 1 S=STR(X,5)+= P=0 FOR I=2 TO X IF X%I=0 _________ 2 P=1 S=S+STR(I,3)+* X=X/I _________ 3 I=I-1 ________ 4 ENDIF ENDFOR IF P=1 __________ 5 ?LEFT(S,LEN(S)-1) ELSE ?STR(X,5)+ 没有因子！ ENDIF SET TALK ON 4．要求：输出给定的正实数值表达式的值中组成数码的最大数码和最小数码。（冽如：数值2345.105中最大数码为5，而最小数码为0） SET TALK OFF CLEAR INPUT M= TO M N=M DO WHILE MOD