最终vfp调试题整理

调试题：（1）判断是否为完数（2）求SINX的值（3）正方形的边长求周长、表面积、体积（4）各班男女奖学金的总额统计（5）质数因子连成式（6）判断表文件是否存在，并浏览（7）指定学生奖学金加10元（8）正整数M内的偶数和偶数和（9）X的次方求和（10）三个数从小到大排列（11）阿拉伯数字转换成中文大写数字（12）查找学生成绩并评定等级（13）工资汇总（14）判断闰年（15）数据型测试（16）计算平均值（17）阶乘（18）最大最小数码（19）弹出对话框（20）一元二次方程（21）显示表全部字段（22）班级奖学金大写显示（23）翻译密码（24）素数（1）判断是否为完数要求：输出给定的正整数值表达式的值是否完数。完数是指该数的值刚好等于其所有质数因子相加（包括1）例如：6=1+2+3SETTALKOFFCLEARINPUTM=TOMS=0&&______1Fori=1to(m-1)&&______2Ifmod(m,i)=0&&______3S=s+i&&______4ENDIFENDFORIfs=m&&______5?M,是完数！ELSE?M,不是完数！ENDIFSETTALKON（2）求SINX的值要求：（1）求SINX的值。SINX=X-(X^3)/(3!)+(X^5)/(5!)-(X^7)/(7!)+……+((-1)^(N-1))*(X^(2*N-1)/((2*N-1!)(2)X从键盘输入，当上述算式的最后一项的值小于或等于10^（-5）时，结束运算。SETTALKOFFCLEARINPUTX=TOXS=0STORE1TOT1,T2,IT3=-1&&_________1STORE1TOT1,T2FORJ=1TO2*I-1T1=&&_________2T2=&&_________3T3=&&_________4ENDFOR&&________5I=I+1ENDDO?SIN(+STR(X,6,4)+)=+LTRIM(STR(S,20,7))SETTALKON（3）正方形的边长求周长、表面积、体积要求：（1）从文本框中输入正方形的边长，利用选项组按钮确定输出值。界面如Modify.jpg所示。*****************************r=val(Thisform.Text1.Value)x1=Thisform.OptionGroup1.Valuex2=正方体if!empty(r)DoCaseCasex1=1Thisform.Label2.Caption=x2+周长=+allt(Str(6*r))Casex1=2Thisform.Label2.Caption=x2+表面积=+allt(Str(6*r*r))Casex1=3Thisform.Label2.Caption=x2+体积=+allt(Str(r*r*r))EndcaseElseMessagebox(输入不能为空,48+0+0)Thisform.Text1.SetfocusEndifModify.jpg（4）各班男女奖学金的总额统计要求：显示输出“学生”表中每个班级的男女同学的奖学金总额。（学号字段的前三位代表班级）SETTALKOFFCLEARUSE学生INDEXON学号TOINN0?**********各班男女奖学金总额统计************?班级男同学奖学金总额女同学奖学金总额&&________1CLASS=LEFT(学号,3)&&________2DOWHILELEFT(学号,3)=CLASS&&________3BOYS=BOYS+奖学金ELSE&&________4ENDIF&&_______5ENDDO?CLASS+STR(BOYS,19,2)+STR(GIRLS,19,2)ENDDOUSESETTALKON(5)质数因子连成式要求：输出正整数表达式（正整数由用户从键盘输入）的质数因子连成式。SETTALKOFFCLEAR&&________1S=STR(X,5)+=P=0FORI=2TOX&&_________2P=1S=S+STR(I,3)+*X=X/I&&_________3I=I-1&&________4ENDIFENDFOR&&__________5?LEFT(S,LEN(S)-1)ELSE?STR(X,5)+没有因子！ENDIFSETTALKON（6）判断表文件是否存在，并浏览要求：浏览指定的表文件内容，表文件名由用户从键盘输入，程序自动判断用户指定的表文件存在与否，存在则浏览，否则给出提示信息。SETTALKOFFDOWHILE.T.CLEARACCEPT请输入表名（扩展名略）：TOTBNIFFILE(&TBN..DBF)&&_________1ELSEWAIT指定的表不存在!TIMEOUT5LOOPENDIF?表中的全部字段名列表:FORN=1TO&&_________2&&________3ENDFORACCEPT请输入显示表信息的条件表达式：TOEXPR&&_________4WAIT是否还要显示其他表文件中的内容?Y/N:TOYNIFUPPER(YN)!=Y&&_________5ENDIFENDDOUSESETTALKON（7）指定学生奖学金加10元要求：将“学生”表中指定学生（由键盘输入）的奖学金加10元，并显示该学生的奖学金。SETTALKOFFCLEARUSE学生ACCEPT请输入学生学号:TOXH*****1*****SEEKfor学号=XHIF!EOF()*****2*****REPLACEALL奖学金WITH奖学金+10?学号,姓名,奖学金ELSE?没有找到!ENDIFUSESETTALKON（8）正整数M内的偶数和偶数和要求：显示输出正整数M（从键盘输入）内的偶数及偶数和SETTALKOFFCLEARINPUT'M='TOMS=0FORP=1TOM*****1*****IFINT(P/2)?P*****2*****S=S+1ENDIFENDFOR?SSETTALKON（9）X的次方求和要求：求x^1+x^2+x^3+x^4+……+x^n的值，n,x从键盘输入。SETTALKOFFCLEARINPUTN=TONINPUTX=TOXS=0*****1*****T=0FORI=1TONT=T*XS=S+TENDFOR*****2*****?S=+SSETTALKON（10）三个数从小到大排列要求：从键盘输入A、B、C三个数值，将它们从小到大排列后输出。SETTALKOFFCLEARINPUTA=TOAINPUTB=TOB&&_________1&&_________2T=AA=BB=TENDIF&&_________3T=AA=CC=TENDIF&&_________4T=BB=CC=TENDIF&&_________5SETTALKON（11）阿拉伯数字转换成中文大写数字要求：从键盘输入一个数值（0~9），要求输出其对应的中文大写数字（零~玖）。SETTALKOFFCLEARC=零壹贰叁肆伍陆柒捌玖*****1*****ACCEPTN=TON*****2*****?N,--+STR(C,2*N-1,2)SETTALKON（12）查找学生成绩并评定等级要求：SETTALKOFFCLEARUSE成绩ACCEPT请输入学生的学号：TOXHlocafor学号=XH&&__________1IF!FOUND()?查无此人!ELSECJ=成绩&&_________2DOCASECASECJ=90DC=优CASECJ=80DC=良CASECJ=70DC=中CASECJ=60DC=及格&&__________3DC=不及格endcase&&__________4?XH,CJ,DCendif&&_________5USESETTALKON（13）工资汇总要求：本程序按部门汇总分别求出奖金,工资,扣款的值,最后再写入临时表gzhz.dbf中**本程序按部门汇总分别求出奖金,工资,扣款的值,最后再写入临时表gzhz.dbf中CLEARALLSETSAFETYOFFSETTALKOFFUSE工资表**按部门&&______1USEgzpxBROWSE**把3个数值字段求和，并保存在内存变量中gz,jj,kk，为总计作准备&&_________2**按部门分类汇总，汇总结果为每个部门作为一条记录放入汇总表文件gzhz.dbf&&______3**打开汇总表文件USEgzhz&&______4**尾部追加一条空记录，准备放总计APPENDBLANK**把准备好的总计值放入相应字段&&_______5BROWSE**关闭打开的表文件CLEARALLERASEgzpx.dbfERASEgz0.dbf（14）判断闰年要求：（1）给定一个年份（从键盘输入数值型数据），判断它是否为闰年。（2）闰年的条件是;能被4整除但不能被100整除，能被100整除且能被400整除。SETTALKOFFCLEAR*****1*****ACCEPTY=TOY*****2*****IF(Y%4ANDY!%100)AND(Y%100ANDY!%400)?Y,是闰年！ELSE?Y,不是闰年！ENDIFSETTALKON（15）数据型测试要求：从键盘输入数据A（可以是C、D、N和L型等），通过类型判断，输出其数据类型的汉字说明。（例如：A的值为“OK!”，那么输出：OK!-字符型数据）SETTALKOFFCLEARINPUTA=TOADOCASE&&_______1?A,是字符型数据。&&_______2?A,是数值型数据。&&_______3?A,是逻辑型数据。&&_______4?A,是日期型数据。ENDCASESETTALKON（16）计算平均值要求：计算N（从键盘输入的正整数）个实属（从键盘输入）去掉其中最大和最小数之后的平均值。SETTALKOFFCLEARINPUTN=TON&&_______1STOREATOX,YS=AP=N-2FORI=2TONINPUTB=TOB&&_______2IFXB&&_______3ENDIFIF&&_______4Y=BENDIFENDFOR&&_______5?R/PSETTALKON(17)阶乘要求：（1）计算算式（M!+N!）/((M-N)!+M^N+M^M)M/N的值（2）M、N的值从键盘输入SETTALKOFFCLEARINPUTM=TOMINPUTN=TONX=MDOJC&&___________1X=NDOJCSN=XX=M-NDOJCSMN=XZ=MY=NDOMCCMN=YY=MDOMC&&_________2&&________3SETTALKONPROCJCT=1FORI=1TOXT=T*IENDFOR&&_________4RETURNPROCMCT=1FORJ=1TOYT=T*ZENDFOR&&__________5RETURN（18）最大最小数码要求：输出给定的正实数值表达式的值中组成数码的最大数码和最小数码。（例如：数值2345.105中最大数码为5，而最小数码为0）SETTALKOFFCLEARINPUTM=TOMN=MDOWHILE&&______1N=N*10ENDDOSTORETOD,X&&______2DOWHILE&&_______3&&______4IFRDD=RENDIFIFRXX=RENDIF&&_______5ENDDO?M,中位值最大的数码是：+STR(D,1)+,最小的数码是：+STR(X,1)+。SETTALKON（19）弹出消息框要求：点击表单FORM的“确定”按钮，弹出一对话框，并释放表单。如modify.jpg所示。cText=考试开始cCode=0+64cMessage=信息窗口*************Msg(cCode,cText,cMessage)*************thisform.activate（20）一元二次方程要求：（1）从键盘输入一元二次方程的三个系数，三个系数只能输入数字。（2）若方程有实根，则在并木上