【vfp精品源码栏目提醒】:网学会员为广大网友收集整理了,【精品】VFP程序设计测验答案 - 其它资料,希望对大家有所帮助!
程序设计测验学号: 题1.一个过程文件可以包含多个过程,每个过程的第一条语句是 D APARAMETER BDO C DPROCEDURE2.比较 WAIT、ACCEPT 和 INPUT 三条命令,需要以回车键表示输入结束的命令是( C ) AWAIT、ACCEPT、INPUT BWAIT、ACCEPT CACCEPT、INPUT DINPUT、WAIT第 3 题 阅读下列程序,此程序执行后的输出结果是 3 。
B SET TALK OFF X1 DO WHILE XZFM-ZFZF SKIP ENDDO M-ZF RETURN其中数据表文件 CJ.DBF 中有 2 条记录,内容如下: XM ZF1 李四 500.002 张三 600.00运行该程序的结果应当是 A A1100.00 B1000.00 C1600.00 D1200.0011.有如下程序 SET TALK OFF DIMENSION K23 I1 DO WHILE I=85 的学生学号、姓名和平均成绩。
SET TALK OFFSELECT lUSE CHENGJSELECT 2USE XUESHDO WHILE .NOT.EOF SELECT l AVERAGE 成绩 TO JUNFEN FOR 15 16 IF JUNFEN>=85 学号姓名JUNFEN ENDIF 17 ENDDO CLOSE DATA RETURN15.A学号=A-学号 B学号B-学号 C CALL DNEXT16. ASELECT l BSELECT 2 CSKIP DGO TOPB17.ASKIP BSKIP -1 CGO TOP DGO BOTTOM A第 18、19 题 打开数据表文件 GZ.DBF 后,执行 LIST 命令,屏幕显示:RECORD 姓名 性别 职称 工资 奖金 实发工资 1 李钢 男 工人 245 50 295 2 孙延生 男 工程师 300 70 370 3 王明 女 工人 225 40 265 4 马芳香 女 工人 255 70 325 5 赵福生 男 工程师 220 70 390第 18 题 运行下列程序段执行的功能是 18 ( 。
D ) USE GZ LOCATE FOR 性别=“女” DO WHILE .NOT.EOF IF 姓名“王明” DELETE ENDIF CONTINUE ENDDO PACK USE18.A将性别为“女”的所有职工的记录物理删除 B将性别为“女”、名字为“王明”的职工记录逻辑删除 C将名字为“王明”的所有职工记录物理删除 D将性别为“女”、名字为“王明”的职工记录物理删除第 19 题 运行下列程序段执行的功能是 19 。
B USE GZ DO WHILE .NOT.EOF IF 性别=“男” SKIP LOOP ENDIF RPLACE 奖金 WITH 奖金十 100 SKIP ENDDO USE19.A)将性别为“男”的所有职工奖金增加 100 元 B 将性别为“女”的所有职工奖金增加 100 元 C 只将性别为“女”的当前职工奖金增加 l00 元 D 只将性别为“男”的当前职工奖金增加 100 元二、填空题第 20、21、22 题 要计算 0100 之间奇数之和,试将下列程序补充完整。
SET TALK OFFX0Y0DO WHILE X 100 XX1 IF MODX/20 LOOP ELSE SKIP ENDIFENDDO“0100 之间的奇数之和为:”,YSET TALK ONRETURN第 23—27 题有四个数据表,表文件名及其中各字段名如下: 1)T1.DBF学生 2) T2.DBF教师 学号 姓名 班级 职工号 教师 姓名 课号 3) T3.DBF课程安排一 4) T4.DBF课程安排二 班级 课号 课号 课程名称 教室要求按学号顺序给出每个学生所要学的课程名称、任课教师姓名及教室。
程序如下: SELE l USE T1 1NDEX TO Tl_1 SELE 3 USE T3 SELE 1 JOINSELE 2 USE T2 SELE 1 USE T1T3 JOIN 25 SELE 4 USE T4 SELE 1 USE T1T3T2 JOIN 26 SELE2 LIST CLOSE ALL RETURN第 28、29、30 题 以下是计算 110 的阶乘的程序,请将程序补充完整。
CLEAR SET TALK OFF I1 DO WHILE .T. K1 28 DO WHILE J10 30 ENDIF ENDDO RETURN31.阅读下列程序,并给出运行结果 SET TALK OFF CLEAR STORE 0 TO X,Y,S1,S2,S3 DO WHILE X数量总金额 WITH 单价数量 SELECT 2 __SKIP__ ENDDO CLOSE DATABASE36 有程序段如下: STORE 0 TO XY DO WHILE.T. XX1 YYX IF X>100 EXIT ENDIF ENDDO ”Y”STRY3这个程序执行后的结果是___Y___。
37.已经建立了工资数据表文件 GZ.DBF,要修改其中水电费字段值,请在下面程序中填空。
SET TALK OFF CLEAR USE GZ ACCEPT “要将水电费字段清零吗?<Y/N>” TO P IF __P0__ REPLACE ALL 水电费 WITH 0 ENDIF GO TOP BROWS FIELDS 姓名,水电费 USE RETURN38、39.运行下列程序,若依次输入数据 2.582.532210 则输出结果是___8___和___2.5__ SET TALK OFF I1 DO WHILE IINTA.OR.A10 LOOP ELSE INPUT “B” TO B IF BINTB.AND.B