RETURN
32.有程序如下，基功能是将硬盘上若干个班(小于10) 的成绩数据文件复制到A盘上。数据库文件名分别FIL1.DBF,FIL2.DBF??等，备份文件名前面冠以年号，例如97BFIL1.DBF,97BFIL2.DBF??等。在C盘上运行该程序，请填空。 SET TALK OFF CLEAR
ACCEPT \请输入年号：\ &&两位数字年号 INPUT \班级个数：\ I=1
DO WHILE I<=N
DBN=\ BDBN=_________ USE &DBN
COPY TO _______________ I=I+1 ENDDO USE
SET TALK ON RETURN
33.下面是按实发工资计算机税金的程序，并将计算结果填入税金字段(假定职工最高实发工资为2500元)，请填空。
***主程序MAIN.PRG**** SET TALK OFF TAX=0 USE GZ
DO WHILE .NOT.EOF() SHFGZ=实发工资 DO SUB_________ ?TAX
REPLACE 税金 WITH TAX _____________ ENDDO USE CANCEL
***子程序SUB.PRG**** __________________ X=0 DO CASE
CASE A>=800 .AND. A,1300 X=(A-800)*0.05
CASE A>=1300 .AND. A<1800 B=A-1300
X=B*0.1+500*0.05
CASE A>=1800 .AND. A<2300 B=A-1800
X=B*0.15+500*0.1+500*0.05 CASE A>=2300 B=A-2300
X=B*0.2+500*0.15+500*0.1+500*0.05 ENDCASE
RETURN
34.设有图书数据库TSH，包括字段(总编号，分类号，书名，作者， 出版单位，单价)；读者数据库DZH(借书证号，姓名，性别，单位，职称，地址)；借阅数据库JY(借书证号，总编号，借阅日期，备注)。下面程序的功能是打印已借书读者的借书证号、姓名，单位，以及借阅图书的书名、单价、借阅日期。请阅读程序并填空。 SET TALK OFF SELECT 1 USE DZH
INDEX ON 借书证号 TO DSHH SELECT 2 USE TSH
INDEX ON 总编号 TO SHH SELECT 3 USE JY
SET RELATION TO 借书证号 INTO A __________
LIST ________ TO PRINT CLOSE ALL RETURN
35、设数据库ABC有一字段“姓名”，且以它为关键字索引(索引文件ABCX.IDX)。因某种误操作，该数据库有一些重复记录。现编一命令文件进行查找并把重复记录删去。 set talk off
use abc index abcx
do while ______________ xm=姓名 skip
if delete endif enddo
_________________ return
五、程序填空
1.本程序求3到100之间的素数。若数X不能被2到√x取整加1范围内的任一整数整除，则x为素数。
10 FOR X=3 TO 100 20 FOR Y=________
30 IF ________THEN ________ 40 NEXT Y 50 PRINT X 60 NEXT X 70 END
2.已知数组M中是同分到低分排序的六个学生成绩， 现从键盘上再键入第七个学生的成绩，要求将这个学生的成绩自动插入数组M中， 并且保持数组中按高分到低分排序。 10 DIM ___________
20 FOR K=1 TO 6: READ M(K) 30 NEXT K
40 DATA 96,94,88,80,75,63 50 INPUT X
60 FOR K=1 TO 6 70 IF _____THEN 90 80 NEXT K 90 T=K
100 FOR K=6 TO ____STEP -1 110 _________________ 120 NEXT K
130 M(T)=___________;END
3.设数据库ABC有一字段“姓名”，且以它为关键字索引(索引文件ABCX.IDX)。因某种误操作，该数据库有一些重复记录。现编一命令文件进行查找并把重复记录删去。 set talk off
use abc index abcx
do while ______________ xm=姓名 skip
if ________ dele endif enddo
_________________ return
六、程序填空（每空3分，共30分） 1．根据右边的运行结果完善程序： SET TALK OFF CLEAR x＝1
DO WHILE 1）1
？STR（x，3）＋’)’ 2）2 4
J＝1 3）3 6 9 DO WHILE 4）4 8 12 16
？？STR（1*J，4） 5）5 10 15 20 25
J＝J＋1 6）6 12 18 24 30 36
END DO 7）7 14 21 28 35 42 49 ？‘’ 8）8 16 24 32 40 48 56 64 9）9 18 27 36 45 54 63 72 81 END DO
SET TALK ON RETUEN
2． 下列程序是把“伟大祖国”坚向显示出来，并横向显示“祖国伟大”，请填空： SET TALK OFF
STORE“伟大祖国”TO XY CLEAR N＝1
DO WHILE N＜8 ？SUBSTR N＝N＋2 END DO ？ ？？SUBSTR（XY，1，4） RETIRM
七、程序填空。（每空2分，共30分）
1． 有一个数据库STUDENT．DBF，其中有C型字段姓名，以下是一个按姓名查询记录的程序，若有，则输入学生情况（同名的学生也能输入），否则不显示任何信息。 SET TALK OFF ACCEPT输入查询的姓名：“TO LOCATE ENDDO USE
RETURN
2．设有一个学生成绩库SORE．DBF，其中字段为：学号（C），姓名（C），语文（N），数学（N），计算机（N），总分（N），平均分（N）。下面程序实现计算机每个学生的总分和分，并存储在相应的字段中，然后逐条输出总分前十名的学生记录。 SET TALK OFF USE SCOR．DBF
REPLACE ALL总分WTTH语文＋数学＋计算机
REPLACE ALL平均分WTTH INDEX ON －总分 TO ZF
I＝1＋1
DO WHILE DISPLAY I＝1＋1