USE KSDA
IF DELETE ENDIF USE RETURN
5.共有五个数据库文件stdl.dbf~std5.dbf,下面程序的功能是删除每个库文件的末记录。请填空。 N=l
DO WHILE N<=5 AB=_________ 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
*子程序 SRB.PRG PARAMETERS X,Y,Z
6
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() 7 _____________________________ 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 12.有计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,其内容分别 8 如下: 笔试数据库bsh.dbf 上机考试数据库shj.dbf Record# 姓名 笔试成绩 Record# 姓名 上机成绩 1 欧阳惠 87 1 吴明友 67 2 陈冬梅 77 2 杨红 87 3 吴明友 94 3 欧阳惠 94 4 杨红 60 4 李霞 83 5 李霞 68 5 陈冬梅 75 1)首先执行以下命令序列 SELECT 2 USE shj SELECT 1 USE bsh SET RELATION TO RECNO INTO b LOCATE FOR 笔试成绩<=80 ?姓名 SELECT b ?姓名 执行命令序列后,第一个?命令显示的姓名是__________, 第二个?命令显示的姓名是:____________。 2)仍然使用上面的计算机等级考试的笔试考试数据库bsh.dbf和上机考试数据库shj.dbf,执行以下程序 SELECT 2 USE shj SELECT 1 USE bsh J0IN WITH b TO ks FOR 姓名=b->姓名 FIELDS 姓名,笔试成绩,上机成绩 CLEAR USE ks DO WHILE.N0T.E0F N=1 I=0 J=0 DO WHILE N<=3.AND..NOT.E0F() I=I+笔试成绩 J=J+上机成绩 N=N+I SKIP ENDDO ?\总成绩=\ENDDO 执行程序后,显示的第一个总成绩是_________,第二个总成绩是____________ 3)接着继续执行以下程序 CLEAR 9 SET DELETED ON USE KS INDEX ON 笔试成绩+上机成绩 TO ABC COUNT TO S GOTO TOP SKIP DELETE NEXT S-2 COPY TO QAZ USE AQZ LIST 最后显示的第一条记录的姓名是____________,第二条记录的姓名是___________ 14.在下列数据记录修改程序中(屏幕格式文件ST.FMT已建立)填空。 SET TALK OFF USE STUDENT SET FORMAT TO ST DO WHILE .T. ACCEPT ‘请输入学生姓名：’TO NAME LOCATE FOR 姓名=NAME IF EOF() ?‘查无此人！’ ELSE CLEAR _____________________________ ENDIF WAIT ‘是否继续?(Y/N)’TO GOON IF GOON=`Y' CLEAR LOOP ELSE EXIT ENDIF ENDDO SET FORMAT TO USE SET TALK ON RETURN 15.下列程序的功能是通过字符串变量操作竖向显示“刻苦学习”， 横向显示“学习刻苦”，请填空。 SET TALK OFF STORE “刻苦学习”TO XY CLEAR N=1 DO WHILE N<8 ? SUBSTR( ______________ ) 10