- 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)