实验九VFP数据基础.docxVIP

实验九 实验目的 1、 理解Visual FoxPro程序的概念和程序的建立与运行。 2、 掌握编写Visual FoxPro程序常用的基本语句。 3、 了解控制程序执行流程的三种基本结构。 4、 学会按顺序结构组织Visual FoxPro源程序语句。 5、 利用IF—ELSE—END IF和DO CASE—ENDCASE语句编写分支结构程序。 6、 理解程序设计屮循环结构的基本概念和执行过程。 实验内容 一、设计程序完成对如下数据表的查询操作。 程序运行时，输入一位同学的姓名，若表中有该同学则显示其学号、姓名、出生日期和专业 信息，若无则显示“查无此人！”。要求在画线处填上适当的程序代码，并调试程序。 S9O3GI王瞻不［男:10/03/80 09/10/M|峙虹岸舌灯干创型重目眉片用历| _应用数字S?OG3淹小芳 汝：CE/16/80 S9O3GI 王瞻不［男 :10/03/80 09/10/M |峙虹岸舌灯干创型重目眉片用历| _ 应用数字 S?OG3淹小芳 汝：CE/16/80 09/10/99 应用參字 ［颇 池Ml 沖忤 T CC.l；3C m知.匚弔苗字 .- 二二■■■■■■}■???■■丄??■?■■■ ■■■■■」?■■■■■■ -4—■■■■■■■?A? 99OJG2 ］李子甬「男；C6/12/79 ；09/10/99 :运劭 I ; Gm : …莎- --4 Hso : Ms。； Hmq ; 9S0101「肖夢婷 j女:10/23/80 . 09/10/99 ［越廉丄瞇申:舅函卫酉二喊卫两 两诙―徇湖拱哉丽诙厂阿76屈 2 ［致亘［觀芳［［玄二回回亘姮卫亘 丄…T 计51机」 卫 F 注颐爾傩■卞 讦涌歸I ］r F- I I ；Gen IIRwto ； * : Bma I ************** 源 程 序 彳码 ************ SET TALK OFF CLEAR USE XSDA.DBF USE XSDA.DBF 打开 XSDA.DBF ACCEPT “请输入待査学生姓名：” TO NAME LOCATE FOR姓名=NAME 顺序查找 IF ? ”学号：” +学号+”姓名：” +姓名+”出牛日期：” +DTOC（出牛日期）+; ”专业：” +专业 ELSE 9 ENDIF USE 关闭 XSDA.DBF SET TALK OFF RETURN 若“ ACCEPT “请输入待查学生姓名：” TO NAME语句屮的“ ACCEPT ”改成“INPUT”， 程序运行时如何准确输入待查学生姓名？ 二、编写程序求出3个数中的最大数。 耍求程序运行时，从键盘上输入任意3个数并将最大数显示在系统主窗口屮。 编程思路： （1） 首先从键盘上输入3个数依次保存在A、B、C变量中，并假设输入的第一个数（保存 在A中）最大并保存在MAX变量屮。 （2） 然后用IF???END【F语句实现MAX屮的数与第B进行比较，若小于B,则把B赋给 MAXo （3） 再次用IF…ENDIF实现把MAX屮的数与C进行比较，若小于C,则将C中的值赋给 MAXo最后，MAX中保存的即是3个数中最大的一个。 要求编写出完整的程序代码，并调试运行。 三、编写程序自动判断出分数等级。 要求输入某位同学的一门课考试成绩（按百分制），若成绩大于等于90输出“优秀”，若 小于90大于等于70输出良好”，若大于等于60小于70输出“及格”，60以下则输出“不 及格”。程序代码如下： SET TALK OFF CLEAR INPUT “请输入考试成绩：” TO SCORE DO CASE CASE SCORE=90 ?”优秀” CASE SCORE=70 AND SCORE90 ?”良好” CASE SCORE=60 AND SCORE70 ?”及格” OTHERWISE ?”不及格” ENDCASE SET TALK ON RETURN 完成上述程序文件的建立并调试，并考虑每个CASE后的条件是否可以简化，如何简化? 四、利用循环结构计算S二1+2+3+……+100 **汝*****无早丿宇彳t码******汝*汝 SET TALK OFF CLEAR SUM=0 FOR 1=1 TO 10 X=1 FOR J=1 TO I X=X*J ENDFOR SUM二 SUM+X ENDFOR ?“1! +2! +……+10!二”,SUM SET TALK ON RETURN 修改上述程序代码的循环部分，采用单层循环同样实现1! +2! +……+10!的计算。 思考与练习 1、从键盘上任意输入一个数给X,计算下列分段函数的值并输岀结果。要求用IF-ENDIF语句 编写程序。 2x4-5 疙20 ?= § 犷20 10x