原创力文档- 1、本文档共42页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
程序调试
请务必仔细阅读下列信息，单击“回答”按钮，进行VFP调试[1]考试。
在考生文献夹的Paper\VFP1子文献夹中已有Modify.prg文献。
说明：
在标记“”之前填写所缺代码、调试、保存，并完毕以下功能。
规定：
计算算式（M！+N！）/（（M-N）！+M^N+M^M）M/N的值
M、N的值从键盘输入。
注意：
（1）仅在标记“”之前填写所缺代码，不能添加或删除程序。
SETTALKOFF
CLEAR
INPUTM=TOM
INPUTN=TON
SM=M
DOJCWITHSM
SN=N
DOJCWITHSN
SMN=M-N
DOJCWITHSMN
CMN=N
DOMCWITHM,CMN
DOMCWITHM,M__________1
?(SM+SN)/(SMN+CMN+M)
SETTALKON
PROCJC
PARAX__________2
T=1
FORI=1TOX
T=T*I
ENDFOR
X=T__________3
RETURN
PROCMC
PARAX,Y____________4
T=1
FORJ=1TOY
T=T*X
ENDFOR
Y=T_________5
RETURN
2.规定：
（1）求学生表中指定班级（如951或952班，学号字段的前3个字符表达班级）所有学生的奖学金总额。
（2）将金额（保存两位小数）以中文大写形式显示输出（如：19642.36显示输出为：壹万玖仟陆佰肆拾贰元叁角陆分）
SETTALKOFF
SETESCAPEOFF
CLEAR
USE学生
?************按ESC键结束操作************
DOWHILE.T.
ACCEPT输入指定的班级(如：951或953)：TOBJ
LOCATEFORLEFT(学号,3)=BJ
IFFOUND()
SUM奖学金TOJXJFORLEFT(学号,3)=BJ
?BJ+班全体学生的奖学金总额为：+STR(JXJ,5,2)+,中文大写为：+JEZH(JXJ)
ELSE
?指定班级不存在!
ENDIF
IFINKEY(0)=27
EXIT
ENDIF
ENDDO
USE
SETTALKON
SETESCAPEON
FUNCTIONJEZH
PARAMETERSX
C1=零壹贰叁肆伍陆柒捌玖
C2=分角元拾佰仟万拾佰仟亿
M=ROUND(X,2)
M=M*100
I=0
C=SPACE(0)
DOWHILE.T.
N=MOD(M,10)1--------------------
P1=SUBSTR(C1,2*N+1,2)
P2=SUBSTR(C2,2*I+1,2)
C=P1+P2+C2-------------------
I=I+1
M=INT(M/10)3------------------
IFM=0
EXIT
ENDIF
ENDDO
RETURNC
ENDFUNC
3．规定：输出正整数表达式（正整数由用户从键盘输入）的质数因子连乘式。
SETTALKOFF
CLEAR
INPUT“请输入一个正整数”TOX________1
S=STR(X,5)+=
P=0
FORI=2TOX
IFX%I=0_________2
P=1
S=S+STR(I,3)+*
X=X/I_________3
I=I-1
________4
ENDIF
ENDFOR
IFP=1__________5
?LEFT(S,LEN(S)-1)
ELSE
?STR(X,5)+没有因子！
ENDIF
SETTALKON
4．规定：输出给定的正实数值表达式的值中组成数码的最大数码和最小数码。（冽如：数值2345.105中最大数码为
文档评论（0）