计算机二级vf六、编写程序.doc

六、编写程序题： STCJ.DBF 学号 姓名 出生日期 性别 成绩 （C,6）(C,8 (D,8 (L,1 N(6,2 040101 张大伟 1981/12/23 T 69.00 040102 李娜 1982/08/12 F 89.00 040103 刘春伟 1981/09/13 T 98.00 040202 杨洋 1982/04/12 F 79.00 040201 李昊 1981/12/25 T 94.00 040203 王旭东 1982/11/11 T 56.00 040204 李晚光 1981/12/12 T 78.00 说明：性别字段值为.T.代表男生，为.F.代表女生。 RS.DBF 编号 姓名 性别 出生日期 职称 工龄 婚否 基本工资 (C,4 (C,6 (C,2 (D,8 (C,6 (N,2 (L,1 (N,7,1 1001 李立 男 09/15/38 教授 35 .T. 1305.0 3001张大山 男 02/05/57 副教授 16 .T. 1165.0 2001赵玉 女 06/17/43 副教授 30 .T. 1365.0 3002张子文 男 04/13/60 讲师 12 .T. 1520.0 1002丁杰 女 10/20/73 助教 3 .F. 1285.0 2002王一林 男 08/12/72 助教 5 .F. 1165.0 1．在STCJ.DBF 中，找出所有成绩超过某一给定值A的学号、姓名与成绩。要求： （1） 定值A由用户从键盘输入； （2） 在输出每一记录之后输出一行虚线； （3） 输出每一记录的字段值之间留3个空格； （4） 若有循环，则用DO WHILE 循环实现。 SET TALK OFF CLEAR USE STCJ INPUT “请输入定值A：” TO A DO WHILE .NOT.EOF( IF 成绩A ？ 学号+SPACE(3+姓名+SPACE(3+STR(成绩,6，2 ? REPLICATE(＂－＂,60 ENDIF SKIP ENDDO USE SET TALK ON 2．编程检测从键盘输入数据表STCJ.DBF的学号长度必须是6位，否则显示出错信息并要求重新输入。 SET TALK OFF DO WHILE .T. CLEAR ACCE “请输入学号:” TO BH IF LEN(ALLTRIM(BH6 ? “学号输入错误，请重新输入！” ELSE EXIT ENDIF ENDDO SET TALK ON RETU 3．编程显示数据表文件STCJ.DBF 中1960年以前（包括1960年）出生的男记录。 SET TALK OFF SET HEADING OFF CLEAR USE STCJ LOCATE FOR YEAR(出生日期=1960 DO WHILE FOUND( IF 性别=.T. DISPLAY OFF ENDIF CONTINUE ENDDO USE SET TALK ON RETU 4．把411分成两个数的和，其中一个数可以被13整除，另一个数可以被17整除，求两个数。 SET TALK OFF CLEAR FOR I=13 TO 411 STEP 13 J=411-I IF MOD(J,17=0 ? I,J ENDIF ENDFOR SET TALK ON RETU 5. 给定表文件RS.DBF，其结构有：工龄（N,2）,基本工资（N,7,1）…。要求对基本工资字段值修改。凡工龄20年及20年以上者增加750元，否则若基本工资低于1200元者增加420元；基本工资在1200—1499之间（含1200元和1499元）者增加300元；其余增加250元。 SET TALK OFF USE RS DO WHILE .NOT.EOF( IF工龄=20 REPL 基本工资 WITH 基本工资+750 ELSE DO CASE CASE 基本工资1200 REPLACE 基本工资 WITH 基本工资+420 CASE 基本工资=1499 REPLACE 基本工资 WITH 基本工资+300 OTHE REPLACE 基本工资 WITH 基本工资+250 ENDCASE ENDIF SKIP ENDDO USE SET TALK ON 6．编写程序输出3---1000之内的素数。 SET TALK OFF CLEAR FOR I=3 TO 1000 STEP 2 FOR J=2 TO INT(SQRT(I IF MOD(I,J=0 EXIT ENDIF ENDFOR IF JINT(SQRT(I ?? STR(I,4 ENDIF ENDFOR SET TALK ON RETU 7．统计数据表RS.DBF中基本工资最高的人数。 SET TALK O