程序填空67题.docVIP

程序填空(二) 1．输出3到100之间的所有素数，并要求每行显示5个素数。 SET TALK OFF CLEAR N=3 J=0 DO WHILE N100 ?? I=2 ?? DO WHILE IN ?????? IF INT(N/I)=N/I ??????? ?????? ENDIF ?????? I=I+1 ?? ENDDO ?? IF I=N ????? ??STR(N,5) ????? J=J+1 ????? IF INT(J/5)=J/5 ???????? ????? ENDIF ?? ENDIF ?? ENDDO SET TALK ON RETURN 2．在XS.DBF数据库中反复查找键盘输入的学号，找到后输出该记录的姓名，计算机的值，找不到输出“没有此学生”，直到不再继续查询为止。 SET TALK OFF CLEAR YN=Y USE XS DO WHILE = Y ???CLEAR ???ACCEPT请输入学号: TO XH ???LOCA FOR ???IF DISPLAY? 姓名,计算机 ELSE ? 没有此学生! ENDIF WAIT 是否继续查询? TO ENDDO USE SET TALK ON RETURN 3．将XS.DBF数据库中计算机成绩和英语成绩80分以上者，总分增加5分。 SET TALK OFF USE DO WHILE .NOT.EOF() IF ????REPL ENDIF ENDDO USE SET TALK ON 4．设已有XS.DBF数据库用于存放全体同学成绩，下面的程序是根据英语成绩对总分做相应的调整：英语成绩在80分以上(含80分)，将其相应的总分加10分；英语成绩在70分以上80分以下(含70分)，将其相应的总分加5分；在空白处填上正确内容，使程序能正常运行。 SET TALK OFF CLEAR DO WHILE ??DO CASE ????CASE英语=80 ????? ????CASE? 英语=70 ?? REPL 总成绩? WITH? 总成绩+5 ??ENDCASE ??? ENDDO LIST? 英语,总成绩 USE 5．对XS.DBF数据库按英语与计算机的成绩之和的升序建立索引，然后查询总分大于164分的学生并显示其姓名与总分。 USE XS INDEX ON TO CHJ FIND 164 IF DO WHILE .NOT. EOF () ENDDO ENDIF USE 6．反复由键盘输入姓名，在XS.DBF数据库中按该姓名查找学生,找到后显示该记录,直到不再继续查询为止。 SET TALK OFF STORE Y TO YN USE XS INDEX TO XM DO WHILE ? ACCEPT 输入查询姓名: TO CXM ??SEEK ? IF FOUND() ??? ? ELSE ??? ?无此人! ?ENDIF ?WAIT 继续查找吗?(Y/N) TO YN ENDDO? SET TALK ON RETURN 7．找出并显示XS.DBF中全部为物理专业的学生记录。 ?SET TALK OFF ?CLEAR ? ? 专业=物理 ?DISPLAY ?DO WHILE ??? ???DISPLAY ??ENDDO ?USE ?SET TALK ON ?RETURN 8．显示10以内所有偶数。 DO WHILE X=10 ?? IF X/2=INT(X/2) ????? ?? ?? X=X+1 9．该程序的功能是:输出如下图形 ?????????? * ????????? *** ???????? ***** ??????? ******* SET TALK OFF CLEAR R=1 C=10 DO WHILE ? S=1 ? DO WHILE ??? @R,C SAY ??? C=C+1 ??? S=S+1 ? ENDDO ? C=10-R ? ENDDO SET TALK ON RETURN 10．有一数据库RS.DBF，