VFP 二级 上机习题.doc

VFP等级考试上机测试题及解答 注：由于时间关系，这里是把大部分题型进行解答，可能有个别题型没涉及到，如有同学发现新题型不会操作的请向任课教师请教。 程序填空：(要求在指定位置填上正确内容，注意：原有下划线和数字一定要清除掉！。) 输出正整数表达式（正整数有用户从键盘输入）的质数因子连乖式。 SET TALK OFF CLEAR INPUT X= 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=INT(X/I) _________ 3 I=I-1 LOOP ________ 4 ENDIF ENDFOR IF P0 __________ 5 ?LEFT(S,LEN(S)-1) ELSE ?STR(X,5)+ 没有因子！ ENDIF SET TALK ON 输出M（从键盘给定的实数）输出它的整数位数、小数位数及其该数的整体输出位数。 ZS=INT(ABS(X)) ZSW=0 DO WHILE ZS0 ZS=INT(ZS/10) _________ 1 ZSW=ZSW+1 _________ 2 ENDDO XSW=0 DO WHILE INT(X)#X X=X*10 _________ 3 XSW=XSW+1 _________ 4 ENDDO FJW=IIF(X0,1,0)+IIF(XSW=0,0,1) ?整数位数为:+STR(ZSW,5)+,小数位数为:+STR(XSW,5) ?该数的实际输出位数为:+STR(ZSW+XSW+1,5) ___________ 5 SET TALK ON 从键盘输入学生学号，在“成绩”表中计算该生平均成绩，并说明成绩的档次，如不在表中则提示相应信息。教材P118例3。7) SET TALK OFF CLEAR USE 成绩 ACCEPT请输入学生的学号：TO XH LOCATE FOR 学号=XH __________1 IF !FOUND() ?查无此人! ELSE AVERAGE 成绩 TO CJ FOR 学号=XH _________ 2 DO CASE CASE CJ=90 DC=优 CASE CJ=80 DC=良 CASE CJ=70 DC=中 CASE CJ=60 DC=及格 OTHERWISE __________ 3 DC=不及格 ENDCASE __________ 4 ?XH,CJ,DC ENDIF _________ 5 USE SET TALK ON 计算（M！+N！）/（（M-N）！+M^N+M^M）的值。M、N从键盘输入。 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