VFP二级上机习题

《VFP二级上机习题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、VFP等级考试上机测试题及解答注：由于时间关系，这里是把大部分题型进行解答，可能有个别题型没涉及到，如有同学发现新题型不会操作的请向任课教师请教。一、程序填空：（要求在指定位置填上正确内容，注意：原有下划线和数字一定要清除掉!。）1.输出正整数表达式（正整数有用户从键盘输入）的质数因子连乖式。SETTALKOFFCLEARINPUT,,X=HTOXS二STR(X,5)+“=”P=0FOR1=2TOXIFX%I=0P=1S=S+STR(I,3)+U*HX=INT(X/I)1=1-1LOOPENDIFENDFORIFP<>0?LEFT(S,LEN

2、(S)-1)ELSE?STR(X,5)+”没有因子！”ENDIF&&1&&2&&3&&4&&5SETTALKON2.输出M（从键盘给定的实数）输出它的整数位数、小数位数及其该数的整体输出位数。ZS=INT（ABS（X））ZSW=0DOWHILEZS>0ZS=INT(ZS/10)&&1ZSW=ZSW+1&&2ENDDOXSW=0DOWHILEINT(X)#XX=X*1()XSW=XSW+1ENDDO&&3&&4FJW=IIF(X

3、,5)?”该数的实际输出位数为：“+STR(ZSW+XSW+1,5)SETTALKON3.从键盘输入学生学号，在“成绩”表中计算该生平均成绩，并说明成绩的档次，如不在表屮则提示相应信息。教材P118例3。7)SETTALKOFFCLEARUSE成绩ACCEPT”请输入学生的学号：“TOXHLOCATEFOR学号二XH&&1IF!FOUND()?”查无此人!“ELSEAVERAGE成绩TOCJFOR学号=XH&&2DOCASECASECJ>=90DO"优“CASECJ>=80DC二“良”CASECJ>=70DC="中”&&3&&4&&5CASE

4、CJ>=60DO"及格”OTHERWISEDC=”不及格”ENDCASE?XH,CJ,DCENDIFUSESETTALKON4.计算(M!+N!)/((M-N)!+MAN+MAM)的值。M、N从键盘输入。SETTALKOFFCLEARINPUTHM=,'TOMINPUT,,N=HTONSM=MDOJCWITHSMSN=NDOJCWITHSNSMN=M-NDOJCWITHSMNCMN=NDOMCWITHM,CMNDOMCWITHM,M?(SM+SN)/(SMN+CMN+M)SETTALKONPROCJCPARAXT=1FOR1=1TOXT二T*

5、IENDFORX=TRETURN&&3PROCMCPARAX,YT=1&&FORJ=1TOYT=T*XENDFORY=T&&RETURN5.从键盘输入口令，有三次机会，验证。SETTALKOFFCLEARC=,tHFOR1=1TO3ACCEPTC+”请输入口令:”TOPSWIFALLTRIM(PSW)==nmanagerH定的口令！?”欢迎使用本系统!“EXIT&&1&&2注：这个口令应该是题中给&&3ENDIFCi口令输入错误，再试一次!ENDFOR&&4IF1=4?”对不起，你无权使用本系统“ENDIF&&5SETTALKON6.输出1〜

6、M（从键盘给定的正整数）的计数个数。中可由二个相等素数相加而成的数及其这种数SETTALKOFFCLEARINPUTnM=nTOMFOR11=3TOM/2&&&&IFSS(II)?STR(U*2,3)+”=”+STR(II,3)+”+”+STR(II,3)ENDIFENDFORSETTALKONFUNCSSPARAXFOR1=2TOX-lIFX%I=0&&3EXIT&&4ENDIFENDFORIFI=X&&5RETURN.T.ELSERETURN.F.ENDIF7.输出素数及素数计数。输出1~M（从键盘输入）屮素数及素数计数。SETTALKO

7、FFCLEARINPUT”M=”TOMS=()&&1FORI=MTO1STEP-1IFSS(I)&&2S=S+1??STR(I,5)ENDIFENDFOR&&3?STR(S,5)SETTALKONFUNCSSPARAXFORJ=2TOX-lIF1NT(X/J)=X/JEXIT&&4ENDIFENDFORIFJ=X&&5RETURN,T.ELSERETURN.F.ENDIF8.显示指定表中的全部字段名，并由用户输入显示表信息条件，最后列表显示满足条件的记录。(教材P151例3.33)SETTALKOFFDOWHILE.T.CLEARACCEPT

8、M请输入表名(扩展名略)：”TOTBNIFFILE(H&TBN..DBF”)USE(TBN)ELSEWAITu指定的表不存在!”TIMEOUT5LOOPENDIF?