张红 2 .T. 李明 4 .T. 王军 2 .F. 赵波 2 .T. USE XSCJ LIST OFF
姓名 数学 英语 计算机 张红 89 92 87 李明 80 97 67 王军 25 78 80 赵波 90 67 91 USE JSK LIST OFF
任课教师 年龄 班级 课程
陈 35 2 数学 李 40 4 物理 孙 38 4 英语 王 29 3 计算机
下面的程序是生成一个新数据库文件XX.DBF,此数据库文件包括四个字段:姓名、班级、任课教师、课程，记录是入学时为保送生并且本学期英语成绩在90分以上（包括90分）的全部学生。 请用正确的语句填空： SET TALK OFF CLEAR SELECT 3 USE JSK SELECT 2 USE XSCJ SELECT 1 USE XSRX JOIN WITH C TO XSRX1 FOR FIELDS 姓名，班级，任课教师，课程 SELECT 4 USE XSRX1
JOIN WITH B TO XX FOR；
FIELDS SELECT 5 USE XX LIST
SET TALK ON RETURN
11、下面是在“KSDA.DBF“库文件逻辑删除已知准考证号学生的程序： SET TALK OFF
ACCEPT “输入待删除考生的准考证号：” TO NO
USE KSDA
IF DELETE ENDIF USE RETURN
5.共有五个数据库文件stdl.dbf~std5.dbf,下面程序的功能是删除每个库文件的末记录。请填空。 N=l
DO WHILE N<=5 AB=_____10_____ USE &AB GO BOTTOM DELETE PACK N=N+1 ENDDO USE
6.下列程序的功能是对输入汉字字符串进行倒序显示，请将程序补充完整。 SET TALK OFF CLEAR AB=\ \
ACCEPT \请输入字串\ L=LEN(AB) K=1
IF L＝0 RETURN ENDIF
DO WHILE K<=L
@ 10,K SAY _____________________ K= __________________ ENDDO RETURN
7.分析程序，显示的值A= _____________ ,B= _______________ 主程序 MAIN.PRG SET TALK OFF PUBLIC A
STORE 5 TO A,B
DO SRB WITH A+B,A,B ? A,B RETURN
*子程序 SUB.PRG
PAUAMETERS X,Y,Z DO WHILE Z 8.有一数据库如下，程序功能是修改甲用户和乙用户的定购数量。 . USE DGK . LIST OFF 编号 设备名 甲用户数量 乙用户数量 1 车床 3 4 2 铣床 5 7 3 创床 7 6 程序如下，请补充完整。 SET TALK OFF USE DGK CLEAR @10,10 SAY \甲用户\ DO WHILE .NOT.EOF() @11,10 SAY 设备名 GET 甲用户数量 READ SKIP ENDDO _________________________________ @10,10 SAY \乙用户\ DO WHILE .NOT.EOF() @11,10 SAY 设备名 _____________________ READ SKIP ENDDO SET TALK ON USE RETURN 9.有一学生库STUDENT.DBF，结构为字段，姓名(C,8)，英语(N,2)，数学(N,2)，奖学金(L,1)，程序功能为确定是否发给奖学金(奖学金为.F.)。若英语数学两门功能都大于或等于90分，则字段奖学金用.T.替换，请对程序填空。 SET TALK OFF CLEAR USE STUDENT DO WHILE .T. IF 英语>=90 .AND. 数学>=90 ______________________ ENDIF SKIP IF EOF() _____________________________ ENDIF ENDDO RETURN 10.有三个数据库文件STUD1.DBF，STUD2.DBF，STUD3.DBF，STUD1.DBF 库结构为学号(C,6)，姓名(姓名,8)；STUD2.DBF结构为学号(C,6)，系别(C,10)；STUD3.DBF结构为姓名(C,6)，成绩(N,2)，现用关联方法显示，成绩大于90分的学生情况，并且用物理联结方法产生一个完整的学生库STUD.DBF，请在命令序列中填空。 SELECT 1 USE STUD1 SELECT 2 USE STUD2 ALIAS S2 SELECT 3 USE STUD3 ALIAS S3 INDEX ON 姓名 TO STRD3I SELECT 2 INDEX ON 学号 TO STUD3I SELECT 1 SET RELATION TO _____________________ LIST 学号，S3->姓名，S3->成绩 JOIN WITH S3 TO S13 FOR _________________ FEILDS 学号，姓名，S3->成绩 SELECT 4 USE S13 INDEX ON 学号 TO S13I SELECT 2 JOIN WITH S13 TO S123 FOR 学号=D->学号 FIELD _______________________ USE S123 LIST 11.下面程序的功能是根据销售数据文件SALE.DBF中的数据去修改库文件INVENTRY.DBF数据,请对程序填空: SELECT 1 USE INVENTRY SELECT 2 USE SALE DO WHILE ____________ SELECT 1 LOCATE FOR 商品名=B->商品名 REPLACE 数量 WITH 数量->B数量,总金额 WITH 单价*数量 SELECT 2 _________ ENDDO CLOSE DATABASE