浙江省计算机2级vfp程序调试真题集.docVIP

程序填空（改错）题： 在考生文件夹的paper 子文件夹中，已有文件Modify.prg，请自己打开文件，在标记之前填写所缺代码、调试、保存，并完成以下功能 1、显示指定表中的全部字段名，并由用户输入显示表信息的条件，最后列表显示满足条件的记录 SET TALK OFF CLEAR INPUT M= TO M N=M DO WHILE INT（N）！=N ______ 1 N=N*10 ENDDO STORE MOD（N,10） TO D,X ______ 2 DO WHILE N0 _______ 3 R= MOD(N,10) ______ 4 IF RD D=R ENDIF IF RX X=R ENDIF N= INT(N/10) _______ 5 ENDDO ?M,中位值最大的数码是：+STR(D,1)+,最小的数码是：+STR(X,1)+ 。 SET TALK ON 2．已知：在考生目录的Paper子目录中已有学生表（学生.dbf） （学号，姓名，性别，出生年月，简历，奖学金，照片） 要求： 显示“学生”表中的全部字段名。 SET TALK OFF CLEAR USE 学生 *****1***** FOR N = 1 TO RECCOUNT() FCOUNT() *****2***** FOUND(N) ?FIELDS(N) ENDFOR USE SET TALK ON 3．将给定的正整数数值表达式的值分解因子，并输出各个质数因子。如24的因子有：2、2、2和3 SET TALK OFF SET ESCAPE OFF CLEAR ?按ESC键结束操作 DO WHILE .T. INPUT M= TO M IF INT(M)!=M OR ABS(M)!=M ?输入的数据不符合题目要求！ LOOP ENDIF ?ALLTRIM(STR(M,19))+的质数因子有： I=2 DO WHILE I=M IF M%I=0 ??STR(I,6) **************************** M=MOD(M,I) M=INT(M/I) LOOP ENDIF I=I+1 ENDDO IF INKEY(0)=27 EXIT ENDIF ENDDO SET TALK ON SET ESCAPE ON 4．要求：显示输出“学生”表中的1971年或以前出生的学生姓名和出生年月 SET TALK OFF CLEAR USE 学生 *****1***** LOCATE FOR 出生年月=1971 {^1971-12-31} DO WHILE !EOF() ?姓名,出生年月 *****2***** SKIP continue ENDDO USE SET TALK ON 5．求当1！+3！+5！+…+n!的值不超过10的20次幂时的临界值及n的值。 SET TALK OFF CLEAR *****1***** S=0 S=1 STORE 1 TO T,N DO WHILE S=1E+20 T=T*(N+1)*(N+2) S=S+T *****2***** N=N+1 N=N+2 ENDDO ?S=,S-T ?N=,N-2 SET TALK ON 6．1）设计一个显示不同颜色和半径的圆的表单 2）利用计时器时间产生半径递增的圆，其颜色是随机产生的 3）在单击“暂停”时停止画圆，此时该命令按钮变成“画圆”，再次单击“画圆”时，继续前面的画圆过程。 ******************LOCAL rad public rad this.rad=2 rad=2 thisform.timer1.interval=100 7．显示指定表中的全