VFP二级上机习题.docxVIP

VFP等级考试上机测试题及解答 注：由于时间关系，这里是把大部分题型进行解答，可能有个别题型没涉及到， 如有同学发现新题型不会操作的请向任课教师请教。 一、 程序填空：（要求在指定位置填上正确内容，注意：原有下划线和数字一定 要清除掉!。） 1.输出正整数表达式（正整数有用户从键盘输入）的质数因子连乖式。 SET TALK OFF CLEAR INPUT ,,X=H TO X S 二 STR(X,5)+“=” P=0 FOR 1=2 TO X IF X%I=0 P=1 S=S+STR(I,3)+U*H X=INT(X/I) 1=1-1 LOOP ENDIF ENDFOR IF P0 ?LEFT(S,LEN(S)-1) ELSE ?STR(X,5)+” 没有因子！” ENDIF 1 2 3 4 5 SETTALK ON 2.输出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*1() XSW=XSW+1 ENDDO 3 4 FJW=IIF(XOJ ,0)+IIF(XS W 二 0,0,1) ? ”整数位数为:”+STR(ZSW,5)+”,小数位数为:”+STR(XSW,5) ?”该数的实际输出位数为：“+STR(ZSW+XSW+1,5) SET TALK ON 3.从键盘输入学生学号，在“成绩”表中计算该生平均成绩，并说明成绩的档次，如 不在表屮则提示相应信息。教材P118例3。7) SET TALK OFF CLEAR USE成绩 ACCEPT”请输入学生的学号：“TOXH LOCATE FOR 学号二XH 1 IF !FOUND() ?”查无此人!“ ELSE AVERAGE 成绩 TO CJ FOR 学号=XH 2 DO CASE CASE CJ=90 DO优“ CASE CJ=80 DC 二“良” CASE CJ=70 DC=中” 3 4 5 3 4 5 OTHERWISE DC=”不及格” ENDCASE ?XH,CJ,DC ENDIF USE SET TALK ON 4. 计算(M! +N!) / ((M-N)! +MAN+MAM)的值。M、N 从键盘输入。 SET TALK OFF CLEAR INPUT HM=, TO M INPUT ,,N=H 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 ?(SM+SN)/(SMN+CMN+M) SET TALK ON PROC JC PARAX T=1 FOR 1=1 TO X T 二 T*I ENDFOR X=T RETURN 3 PROC MC PARA X, Y T=1 FOR J=1 TOY T=T*X ENDFOR Y=T RETURN 5.从键盘输入口令，有三次机会，验证。 SET TALK OFF CLEAR C=,tH FOR 1=1 TO 3 ACCEPT C+”请输入口 令:” TO PSW IF ALLTRIM(PSW)==nmanagerH 定的口令！ ?”欢迎使用本系统!“ EXIT 1 2注：这个口令应该是题中给 3 ENDIF Ci 口令输入错误，再试一次! ENDFOR 4 IF 1=4 ?”对不起，你无权使用本系统“ ENDIF 5 SETTALK ON 6.输出1?M （从键盘给定的正整数） 的计数个数。 中可由二个相等素数相加而成的数及其这种数 SET TALK OFF CLEAR INPUT nM=n TO M FOR 11=3 TO M/2 IF SS(II) ?STR(U*2,3)+”=”+STR(II,3)+”+”+STR(II,3) ENDIF ENDFOR SET TALK ON FUNCSS PARAX FOR 1=2 TO X-l IF X%I=0 3 EXIT 4 ENDIF ENDFOR IF I=X 5 RETURN .T. ELSE RETURN .F. ENDIF 7.输出素数及素数计数。 输出1~M （从键盘输入）屮素数及素数计数。 SET TALK OFF CLEAR INPUT ”M=” TO M S=() 1 FOR I=M TO 1 STEP-1 IF SS(I) 2 S=S+1 ??STR(I,5) ENDIF ENDFOR 3 ?STR(S,5) SETTALK O