工号= 工资. 职工号 20 、备注四、程序填空题 1、 use 供应商.db 、” 123 ”$ 电话、 skip 2、 R<=24 、R、 R=R+1 3、D、A、C4、 FROM 、 AND 、部门号 desc 5、C、B、A 五、程序设计题 1 、假设约定年龄不超过 35 岁的职工为青年职工;年龄在 36 岁至 45 岁的职工为中年职工;年龄超过 45 岁的职工为老年职工。从键盘输入任一职工姓名在 STUD 表中查找, 显示其姓名、年龄以及所属的职工类型。 SET TALK OFF CLEAR USE STUD ACCEPT ' 请输入所查的姓名:' TO XM LOCATE FOR 姓名=XM IF .NOT. FOUND() ?”查无此人” ELSE NL=YEAR(DATE())-YEAR( 出生日期) DO CASE CASE NL<=35 ? 姓名,NL, ”青年职工” CASE NL>35 .AND. NL<=45 ? 姓名,NL, ”中年职工” OTHERWISE ? 姓名,NL, ”老年职工” ENDCASE ENDIF USE SET TALK ON RETURN 2 、编程显示 STUD 表中所有男学员的姓名、工龄及工资。 SET TALK OFF USE STUD SCAN IF 性别=”男”? 姓名,YEAR(DATE())-YEAR( 工作时间), 工资 ENDIF ENDSCAN USE SET TALK ON RETURN 3 、从键盘输入 N 个数存入数组 A 中,找出其中的最大数。 SET TALK OFF CLEAR INPUT “ N= ?” TO N DIMENSION A(N) FOR I=1 TO N INPUT " 输入一个数" TO A(I) ENDFOR M AX =A(1) && 给存放最大数的变量 MAX 赋初值
全文预览
