vfp题库2.docVIP

第二卷 主观题 填空题（共30分，每项2分。注意：填两个空的题的时候，要按照从上至下，从左至右的顺序添入答题卡！） 1. 下列程序是求1!+2!+…+10!，请完成下列程序 S=0 T=1 FOR I=1 TO 10 T=T*I S=_________ S+T ENDFOR ?1!+2!+…+10!=,S 2. 下列程序可以求1-100之间偶数的和，请完成程序 SET TLAK OFF S=0 N=0 DO WHILE ________ N100 N=N+2 S=S+N ENDDO ?1-100偶数之和：,S 3. 在表STUDENT中已有若干记录，下面的程序是显示出表STUDENT中所有记录， 请完成程序 SET TLAK OFF I=1 DO WHILE NOT EOF() I=________ I+1 DISPLAY GO I ENDIF USE 4. 完成下列查询全部女生的程序 SET TALK OFF USE STUDENT LOCATE FOR 性别=女 DO WHILE .T. DISPLAY CONTINUE IF _______ EOF() EXIT ENDIF ENDDO 5. 下列程序用于逐个显示职称为教授的数据记录，请完成程序 SET TALK OFF USE TEACHER DO WHILE NOT EOF() CLEAR IF 职称教授 THEN SKIP ______ LOOP ENDIF DISPLAY WAIT 按任意键继续! ENDDO USE 6. 计算机等级考试的查分程序如下，请填空。 SET TALK OFF USE STUDENT INDEX ST ACCEPT 请输入准考证号: TO NUM SEEK _________ NUM IF ________ FOUND() ?姓名，成绩:+STR(成绩，3) ELSE ?没有此考生! ENDIF USE SET TALK ON 7. 下面程序是化简分数，分子M、分母N的最大公约数求法使用辗转相除法， 请完成下列程序。 *SUB.PRG PARAMETERS M,N IF M______ THEN N T=M M=N N=T ENDIF R=M%N DO WHILE R0 M=N N=R R=_____ M%N 或 MOD(M,N) ENDDO RETURN N *MAIN.PRG ACCEPT 请输入分子： TO X ACCEPT 请输入分母： TO Y K=SUB(X，Y) X=X/K Y=Y/K ?化简后分子为：,X ?化简后分母为：,Y 8. 下面的程序是找出二维数组10×7中的“鞍点”。所谓“鞍点”是指它 在本行中值最大，本列中值最小。本程序输出鞍点的行列号，有可能 在一个数组中找不到鞍点，则输出“无”。请完成程序。 Dimension a(10,7) ff=0 for I=1 to __________ 70 a(k)=int(rand()*100) 产生随机数 endfor for I=1 to 10 big=a(I,1) col=1 for j=1 to 7 if biga(I,j) then big=a(I,j) col=_________ j endif endfor flag=1 for n=1 to 10 if biga(n,col) flag=0 exit endif endfor if flag =1 then ?行：,I,列：，col ff=1 endif endfor if ff=0 then ?没有鞍点 endif 9. 共有五个数据库文件std1.dbf—std5.dbf,下面程序