信管专业计算机基础期末复习题(程序填空表单设计).docVIP

四、程序填空题 1、从键盘输入一个表的文件名，将该表的第一条记录和最后一条记录的姓名字段内容互换。(设表中有固定字段姓名)。 SET TALK OFF ACCEPT TO A USE A GO 1 XM1=姓名 GO BOTTOM ***********SPACE********** 【?】 ***********SPACE********** REPL 姓名 WITH 【?】 ***********SPACE********** 【?】 REPL 姓名 WITH XM2 USE SET TALK ON 『答 案』： 1 XM2=★姓名 2 XM1 3 GO 1 或 GO TOP 或 1 2、在XSDB.DBF数据表中查找学生王迪，如果找到，则显示学号、姓名、英语、生年月日，否则提示查无此人！。 ***********SPACE********** 【?】 XM=王迪 ***********SPACE********** 【?】姓名=XM IF FOUN() ***********SPACE********** 【?】学号, 姓名, 英语, 生年月日 ELSE ? 查无此人！ ENDIF USE RETURN 『答 案』： 1 USE★XSDB 或 USE★XSDB★.DBF 2 LOCATE★FOR 或 LOCATE★ALL★FOR 3 DISPLAY 或 ? 或 DISPLAY ★OFF 或 DISP 3、在数据表 学生.DBF中，将姜冰同学的名字修改成江冰 SET TALK OFF CLEAR USE 学生 ***********SPACE********** LOCATE FOR 姓名=【?】 IF FOUND() ***********SPACE********** 【?】 姓名 WITH 江冰 DISPLAY ***********SPACE********** 【?】 ?对不起,没有姜冰这个人 ENDIF CLOSE ALL SET TALK ON RETURN 『答 案』： 1 姜冰 或 姜冰 或 [姜冰] 2 REPLACE 3 ELSE 4、从键盘输入一个表的文件名，查找姓名为刘洪的记录。如果有该记录，则将该表结构及姓名为刘洪的记录一起复制成一个新表（表名为A1）；否则，仅复制表结构。 (设，表中有固定字段姓名)。 SET TALK OFF ACCEPT TO A USE A ***********SPACE********** 【?】 FOR 姓名=刘洪 IF NOT EOF( ) ***********SPACE********** 【?】 TO A1 FOR 姓名=刘洪 ELSE ***********SPACE********** 【?】TO A1 ENDIF USE SET TALK ON 『答 案』：1 LOCATE 或 LOCA 2 COPY 3 COPY★STRUCTURE 5、从键盘输入一个表的文件名，在该表的第1条记录之前插入一条空记录，然后查找姓名为王丽的记录。如果找到，输出姓名为王丽的记录个数。 SET TALK OFF ACCEPT TO A USE A GO 1 ***********SPACE********** 【?】 ***********SPACE********** 【?】 FOR 姓名= 王丽 IF NOT EOF( ) ***********SPACE********** 【?】TO A FOR 姓名= 王丽 ? 共,A, 条 ELSE ? 没有找到 ENDIF USE SET TALK ON 『答 案』： 1 INSERT★ BLANK ★BEFORE 或 INSE BLAN BEFO 2 LOCATE 或 LOCA 3 COUNT 6、表RSDA.DBF结构为：姓名（C，6）；性别（C，2），年龄（N，2），出生日期（D，8）。判断表中是否有李明，查询此人的性别及年龄，确定参加运动会的项目。 SET TALK OFF USE RSDA ***********SPACE********** 【?】 FOR 姓名= 李明 ***********SPACE********** IF .NOT. 【?】 DO CASE CASE 性别= 男 ?请参加爬山比赛 CASE 年龄=50 ? 请参加投篮比赛 CASE 年龄=60 ? 请参加老年迪斯科比赛 ***********SPACE********** 【?】 ELSE