[程序设计基础练习题.docVIP

程序设计基础练习题 写出下列各程序的运行结果： 1．数据库JSCJ.DBF的库结构如下： 姓名 出生日期 职称 单位 出书数量 刘东 56-09-12 教授 电子系 4 王之岚 63-12-09 副教授 电子系 2 张强 75-08-07 讲师 机械系 0 李敬才 45-02-22 教授 电子系 7 林刚 65-05-29 副教授 机械系 1 王平 52-11-08 教授 机械系 6 （1）执行以下程序后，？命令的显示结果是 SET TALK OFF USE JSCJ INDEX ON 姓名 TO XMSY SEEK “王” ？ 姓名，出书数量 USE SET TALK ON RETURN （2）执行以下程序后，？命令的显示结果是 USE JSCJ STORE 0 TO N1，N2，N3 DO WHILE .NOT. EOF（） DO CASE CASE 单位=“电子系”.AND. 职称=“教授” N1=N1+出书数量 CASE 单位=“机械系”.AND. 职称=“教授” N2=N2+出书数量 OTHERWISE N3=N3+出书数量 ENDCASE SKIP ENDDO ？N1，N2，N3 USE  2.下列程序执行后，??命令的输出结果是 TJ=.T. M=0 DO WHILE TJ M=M+1 IF INT(M/5)=M/5 ?? M ELSE LOOP ENDIF IF M10 TJ=.F. ENDIF ENDDO 3.下列程序执行后,USE命令打开的数据库名是 ,被删除记录的记录号是 K=INT(MOD(29.9,6)) M=SUBSTR(TYUABJQKD,K,4) USE M GO K DELETE PACK USE  4.数据库SR.DBF的各字段均为N型,其内容如下: 月份 收入 支出 结余 1 800 760 0 2 870 810 0 3 860 820 0 下列程序是求各记录的“结余”字段值，运行后的结果是 USE SR A=0 DO WHILE .NOT. EOF() REPLACE 结余 WITH 收入-支出+A A=结余 SKIP ENDDO ？A USE 5.下列程序的运行结果是 I=1 S=0 DO WHILE I=8 I=I+1 IF MOD(I,2)=0 S=S+I ELSE LOOP ENDIF ENDDO ? S 6.运行下列程序,输入大于3的数后屏幕显示 DO WHILE .T. CLEAR ? 1-查询 ? 2-打印 ? 3-退出 INPUT 输入数字: TO G DO CASE CASE G=1 DO DD CASE G=2 DO EE CASE G=3 EXIT OTHERWISE WAIT “选择错,请重选!” LOOP ENDCASE ENDDO  7.分析并写出下列程序的运行结果 STORE 1 TO N,S DO WHILE N=5 S=S*N N=N+1 ENDDO ? “S=”+STR(S,4) 8. 分析并写出下列程序的运行结果 K=1 M=0 DO WHILE K=1000 K=K*2+1 IF INT(K/2)=K/2 M=M+K ELSE LOOP ENDIF ENDDO ? M 9.数据库T1K.DBF,其内容如下: 姓名 性别 年龄 调入时间 职称 婚否 工资 扣款 实发工资 (C,8) (C,2) (N,2) (D,10) (C,6) (L,1) (N,4) (N,3) (N,4) 王子明 男 38 1990-09-12 副教授 .T. 1800 120 刘丽 女 29 1999-12-25 讲师 .T. 1500 80 李刚 男 59 1966-06-20 教授 .T. 3300 200 高明奇 男 58 1968-01-15 教授 .T. 3200 200 韩卫红 女 36 1996-08-26 副教授 .T. 1900 150 孙忠 男 25 1999-08-18 讲师 .F. 1200 20 马君 女 49 1982-08-22 教授 .T. 2700 210 赵婷 女 26 1999-12-25