VFP实验教程部分

1、第1章数据库系统概述1.1基础知识练习1.1.1 选择题1.存储在计算机内、有结构的相关数据的集合称为A.数据库C.数据库管理系统【答案】A2.数据库DB数据库系统B.数据库系统D.数据结构DBS和数据库管理系统DBMS之间的关系是A. DBMS 包括 DB和 DBSB. DBS 包括 DB和 DBMSC. DB 包括DBS和DBMSD. DB、DBS和DBM是平等关系【答案】B3. 是处理数据库存取和各种管理控制的软件系统，是数据库系统的中心枢纽。A. DBB. DBMSC. DBAS D. DML【答案】B4. 下列关于数据库系统的叙述中，正确的是。A. 数据库系统只是比文件系统管理的数据

2、更多B. 数据库系统中数据的一致性是指数据类型一致C. 数据库系统避免了数据冗余D. 数据库系统减少了数据冗余【答案】D5. 能唯一标识实体的是。A. 属性B.域C.码D.联系【答案】C6. Visual FoxPro 是一种关系数据库管理系统，所谓关系是指 。A. 表中各条记录彼此之间有一定的关系B. 表中各个字段彼此之间有一定的关系C. 一个表与另一个表之间有一定的关系D. 数据模型符合满足一定条件的二维表格式【答案】D7. 如果一个部门有若干职员，每个职员只能属于某一个部门，则部门和职员两个实体之间的联系属于。A. 一对一联系B. 一对二联系C.多对多联系D. 一对多联系。【答案】D8.

3、 在数据库设计中，将E-R图转换为关系模式是在段。A.需求分析B.概念设计C.逻辑设计D.物理设计【答案】C9. 在关系中将年龄字段的值限制在15-30岁之间的这种约束属于A.实体完整性约束B.域完整性约束C.参照完整性约束D.视图完整性约束【答案】B10. 下列叙述中正确的是。A. 数据库系统是一个独立的系统，不需要操作系统的支持B. 数据库技术的根本目标是要解决数据的共享问题C. 数据库管理系统就是数据库系统D. 以上三种说法都不对【答案】B11. 如果把学生看作实体，某个学生的姓名叫“王刚”，则“王刚”应看成A.记录型B.记录值C.属性型D.属性值【答案】D12. 在概念模型中，一个实体

4、相对于关系数据库中一个关系中的一个A.属性B.元组C.列D.字段【答案】B1.1.2 填空题1 存储在计算机中的数据包括 和 方面。【答案】数据内容，数据形式2 数据 处理技术 大致经历的 三个发展 阶段是、和【答案】人工管理阶段，文件系统管理阶段，数据库系统管理阶段3. 数据库系统是由 、 和 成的具有咼度组织性的总体。【答案】计算机系统，数据库，数据库管理系统，有关人员4. 用实体名及其属性名集合来抽象和刻画同类实体称为 。【答案】实体型5数据模型不仅表示反映事物本身的数据，而且表示 。【答案】事物之间的联系6用二维表的形式来表示实体之间联系的数据模型叫做 。【答案】关系模型7 在关系数据

5、模型中，二维表的列称为，二维表的行称为。】属性，元组8 对关系进行选择、投影或连接运算之后，运算的结果仍然是一个。】关系9在关系数据库的基本操作中，从表中选出满足条件的元组的操作称为从表中抽取属性值满足条件的列的操作称为 把两个关系中 相同属性的元组连接在一起构成新的二维表的操作称为 。【答案】选择，投影，连接10. E-R图中实体间的系必须转换为一个独立的关系模式。答案】多对多第 2 章 Visual FoxPro 6.0 基础2.1基础知识练习2.1.1 选择题I. 是Visual FoxPro中专门用来输入各种命令的区域。A. 主窗口B.命令窗口C.菜单栏D.工具栏【答案】B5. 在以下

6、四组函数运算中，结果相同的是 。A. LEFT(Visual FoxPro,6 与 SUBSTR(Visual FoxPro,1,6B. YEAR(DATE( SUBSTR(DTOC(DATE(,7,2C. VARTYPE(36-5*4与 VARTYPE(36-5*4D. 假定 A=this ,B=is a string,A-B与 A+B【答案】A6. 在下面的Visual FoxPro 表达式中，不正确的是 。A. (2008-12-01 10:10:10AM-10B. A2008-12-01-DATE(C. A2008-12-01+DATE(D.八2008-12-01+1000【答案】C7

7、. 在下列函数中，函数值为数值的是。A. AT(人民，中华人民共和国B. CTOD(01/01/96C. BOF(D. SUBSTR(DTOC(DATE(,7【答案】A8. 已知D1和D2为日期型变量，下列4个表达式中非法的是 。A. D1-D2 B. D2-36 C. D1+28 D. D1+D2【答案】D9. 函数INT(数值表达式的功能是。A. 按四舍五入取数值表达式值的整数部分B. 返回数值表达式值的整数部分C. 返回不大于数值表达式值的最大整数D. 返回不小于数值表达式值的最小整数【答案】BII. 设 D=56 VARTYPE(的输出值是。A. NB. CC. LD. D【答案】C1

8、2.设 N=886M=345 K=M+N表达式1+&K勺值是。A.1232B.数据类型不匹配C. 1+M+ND. 346【答案】A13. 如果 X=10, Y=X=20,贝U TYPE（Y值是。A. L. NC. CD.出错【答案】C14. 命令？ VARTYPETIM） 结果是A. C B. D C. T D.出错【答案】A15. 命令？ LENSPACE3SPACE 的输出值是。【答案】N11. 设工资=1200，职称=教授，下列逻辑表达式的值是 。工资1000 AND （职称=教授OR职称=副教授【答案】.T.12. ROUND（337.2007,3勺结果是。【答案】337.20113.

9、 LEN（THIS IS MY BOOK的结果是【答案】1514. TIME（返回值的数据类型是 。【答案】字符型15. MOD9 -2 ）的返回值为。【答案】-1第3章数据库与表的基本操作3.1基础知识练习选择题1. 不允许记录中出现重复索引值的索引是 。A. 主索引B.主索引、候选索引、普通索引C.主索引和候选索引D.主索引、候选索引和惟一索引【答案】C2. 要控制两个表中数据的完整性和一致性可以设置“参照完整性”，要求这两个表。A.是同一个数据库中的两个表B.不同数据库中的两个表C.两个自由表D. 个是数据库表另一个是自由表【答案】A3. 在Visual FoxPro中，可以对字段设置默

10、认值的表 。A.必须是数据库表B.必须是自由表C.可以是自由表或数据库表D.可以是自由表和数据库表【答案】A4. 在Visual FoxPro中，打开数据库的命令是 。A. OPEN 数据库名 B. OPEN DATABASE数据库名 C. USE 数据库名D. USE DATABASE数据库名【答案】B5. 在Visual FoxPro 的数据工作期窗口，使用 SET RELATION令可以建立两个表之间的关联，这种关联是 。A.永久性关联B.永久性关联或临时性关联C.临时性关联D.永久性关联和临时性关联【答案】C6. 在Visual FoxPro中，通用型字段C和备注型字段M在表中的宽度都

11、是A. 2个字节B. 4个字节C. 8个字节D. 10 个字节【答案】B7. 可以伴随着表的打开而自动打开的索引文件是。A. 单一索引文件vIDX）B.结构化复合索引文件C.复合索引文件=1985D. LIST 姓名 FOR YEAR（出生日期=1985【答案】C13. 在VFP环境下，用 LIST STRUCTUR命令显示表中每个记录的长度 EOF(为.T.B. BOF( 和 EOF(:均均为.F.C. BOF(=.T. EOF(=.F.D. BOF(=.F. EOF(=.T. 【答案】A28. 使用 RECALL ALL 命令。A.将恢复所有被物理删除的记录B.只能恢复被逻辑删除的当前记录

12、C.将恢复所有被逻辑删除的记录D.只能恢复被物理删除的当前记录【答案】C29. 在Visual FoxPro中进行参照完整性设置时，要想设置成：当更改父表中的主关键字段或候选关键字段时，自动更改所有相关子表记录中的对应值。应 选择。A.限制(Restrict B.忽略(IgnoreC.级联(Cascade D. 级联 【答案】C30. 数据库表移出数据库后，仍然有效的是。A.字段的有效性规则B.表的有效性规则C.字段的默认值D.结构复合索引【答案】D第4章查询与视图4.1基础知识练习4.1.1 选择题4.只有满足联接条件的记录才包含在查询结果中，这种联接为 。A. 左联接B.右联接C.内部联接

13、D.完全联接【答案】C9. 在SQL查询时，使用 WHERE句指出的是。A. 查询目标B.查询结果C.查询条件D.查询视图【答案】C10. DELETE FROM S WHERS 60 语句的功能是。A. 从S表中彻底删除年龄大于60岁的记录B. S表中年龄大于60岁的记录被加上删除标记C. 删除S表D. 删除S表的年龄列【答案】B11. UPDATE-SQ语句的功能是。A.属于数据定义功能B.属于数据查询功能C.可以修改表中某些列的属性D.可以修改表中某些列的内容【答案】D12.SELECT-SQ 语句是。A.选择工作区语句B.数据查询语句C.选择标准语句D.数据修改语句【答案】B13. 关

14、于INSERT-SQ语句描述正确的是。A.可以向表中插入若干条记录B.在表中任何位置插入一条记录C.在表尾插入一条记录D.在表头插入一条记录【答案】C14. 建立表结构的SQL命令是。A. CREATE CURSORB. CREATE TABLEC. CREATE INDEXD. CREATE VIEW【答案】B15. 不属于数据定义功能的SQL命令是。A. CREATE TABLEB. CREATE CURSORC. UPDATED. ALTER TABLE【答案】C18. 学生成绩表STUDENT.dbf的结构如下：姓名（C,8，语文（N,5,2，数学（N,5,2，英语（N,5,2，总分（

15、N,6,2。其中前4个字段均已有值，要求统计 每位学生的总分并存入总分字段中，下列命令中不能实现的是 。A. replace all 总分with 语文+数学+英语B. sum语文+数学+英语to总分C. update STUDENT set总分二语文+数学+英语D. seanrepl总分with语文+数学+英语endsean【答案】B19. 要在浏览窗口中显示表TEACHER.db中所有教授和副教授的记录，下列命令中错误的是。A. use TEACHERbrowse for职称=教授OR职称=副教授B. select * from TEACHER where 教授$ 职称C. select

16、* from TEACHER where 职称 in（教授,副教授D. select * from TEACHER where 职称=教授AND 职称=副教授 【答案】D20. 使用SELECT-SQ命令建立查询时，若要将查询结果输出到一临时数据表中，需要选择使用以下句。A. INTO ARRAYB. INTO CURSORC. INTO TABLED. TO FILE【答案】B22. 不属于数据定义功能的SQL语句是。A.CREATE TABLE B.CREATE VIEWC. UPDATED. ALTER TABLE【答案】C23. 在下面有关HAVING句描述错误的是。A. HAVING

17、子句必须与GROUP B子句同时使用，不能单独使用B. 使用HAVING?句的同时不能使用WHER子句C. 使用HAVING?句的同时可以使用WHER子句D. 使用HAVING?句的作用是限定分组的条件【答案】B24. SQL的数据操作语句不包括。A. INSERT B. UPDATEC. DELETED. CHANGE【答案】D25. SQL语句中条件短语的关键字是。A. WHERE B. FORC. WHILED. CONDITION【答案】A26. SQL语句中修改表结构的命令是。A.MODIFY TABLE B.MODIFY STRUCTUREC. ALTER TABLED. ALTE

18、R STRUCTURE【答案】C27. SQL语句中删除表的命令是。A.DROP TABLE B.DELETE TABLEC. ERASE TABLED. DELETE DBF【答案】A31. 有关多表查询结果中，以下说法正确的是 。A. 只可包含其中一个表的字段B. 必须包含查询表的所有字段C. 可包含查询表的所有字段，也可只包含查询表部分字段D. 以上说法均不正确【答案】C36. 在查询设计器中已设定联接条件为 STUDENT生名=xscj.姓名，若要在查询结果中显示STUDEN表中所有记录及xscj表中满足条件的记录，则联接类 型应为。A.内部联接B.左联接C.右联接D.完全联接【答案】

19、B37. 下列说法中错误的是。A. 在数据库中，可以包含表，视图,查询以及表间永久关系B. 可以通过修改视图中数据来更新数据源中数据，但查询不可以C. 建立查询和视图时，数据表可作为数据源D. 视图虽然具备了一般数据表的特征，但它本身并不是表【答案】A39. Visual FoxPro中支持的SQL功能不包括。A.数据定义B.数据修改C.数据查询D.数据控制【答案】D40. 在SQL语句中用语分组的短语是 。A. ORDER BY B. AVG C. GROUP BY D.SUM【答案】C41. 下面SQL语句的执行结果是 。SELECT SUMB资）FRO M 职工A.工资的最大值B.工资的

20、最小值C.工资的平均值D.工资的合计【答案】D42. SQL查询语句中ORDER B子句的功能是。A.对查询结果进行排序B.分组统计查询结果C.限定分组检索结果D.限定查询条件【答案】A45. 在SQL的SELECTS询结果中，消除重复记录的方法是。A.通过指定主关系键B.通过指定惟一索引C.使用 DISTINCT子句D.使用 HAVING句【答案】C46. 在查询设计器中已设定联接条件为STUDENT姓名=xscj.姓名，若要在查询结果中显示STUDENT表中所有记录及xscj表中所有的记录，则联接类型 应为。A.内部联接 B.左联接C.右联接D.完全联接【答案】D47. 查询所有1982年

21、3月20日以后 =人 1982-03-20 ANDWHEREB生日期 =人 1982-03-20 ORWHEREB生日期 FROM选课WHER姓名=”刘明”B. SELECT AVG成绩 FROM学生,选课 WHER姓名=”刘明”C. SELECT AVG成绩 FROM学生,选课 WHER学生.姓名二”刘明”D. SELECT AVG成绩 FROM学生,选课 WHER学生.学号=选课.学号AND姓 名=”刘明”【答案】D51. 插入一条记录到“选课”表中，学号、课程号和成绩分别是“02080111、“ 103” 和 80,正确的 SQL语句是。A. INSERT INTO选课 VALUES(“

22、02080111”，” 103”，80B. INSERT VALUES(02080111”，” 103”，80TO选课(学号，课程号，成 绩C. INSERT VALUES(02080111”，“103”，80INTO 选课(学号，课程号， 成绩D. INSERT INTO选课(学号，课程号，成绩 FORM VALUES(02080111” , ” 103” ,80【答案】A52. 将学号为“ 02080110、课程号为“ 102”的选课记录的成绩改为 92, 正确的SQL语句是A. UPDATE选课 SET成绩 WITH 92 WHER学号二” 02080110 AND课程号二” 102”B

23、. UPDATES课 SET 成绩=92 WHER学号二” 02080110 AND课程号二” 102”C. UPDATE FRO选课 SET成绩 WITH 92 WHER学号 =” 02080110 AND课程 号=”102”D. UPDATE FRO选课 SET成绩=92 WHER学号=” 02080110 AND 课程号 =”102”【答案】B53. 假设同一名称的产品有不同的型号和产地，则计算每种产品平均单价的 SQL语句是。A. SELECT产品名称,AVG(单价FRO产品GROUP B单价B. SELECT产品名称,AVG(单价FRO产品ORDERB单价C. SELECT产品名称,

24、AVG(单价FRO产品ORDER B产品名称D. SELECT产品名称,AVG(单价FRO产品GROUP B产品名称【答案】D55.假设”订单”表中有订单号、职员号、客户号和金额字段，正确的SQL语句只能是。A. SELECT职员号FRO M订单GROUP BY 职员号 HAVING COUNT(*3 AND AVG额 200B. SELECT职员号FROM订单GROUP BY 职员号 HAVING COUNT(*3 AND AVG额 200C. SELECT职员号FROM订单GROUP,BY 职员号 HAVING COUNT(*3 WHERE A金额 200D. SELECT职员号FROM订

25、单GROUP BY 职员号 WHERE COUNT(*3 AND A金额200【答案】B第5章 程序设计基础5.1基础知识练习选择题2. 结构化程序设计的三种基本逻辑结构是。A.选择结构、循环结构和嵌套结构B.顺序结构、选择结构和循环结构C.选择结构、循环结构和模块结构D.顺序结构、递归结构和循环结构【答案】B3. 在Visual FoxPro中，用于建立或修改过程文件的命令是。A. MODIFY COMMAN文件名 B. MODIFY C. MODIFY PROCEDUR文件名D.上面A和C都对【答案】A4. 清除主窗口屏幕的命令是 。A. CLEARB. CLEAR ALLC. CLEAR

26、 SCREEND. CLEAR WINDOWS【答案】A5. 如果主程序、子程序1子程序2、子程序3依次调用，在子程序3中有RETURN TO MAST0句，贝U由子程序3返回A.主程序B.子程序1C.子程序2D.子程序3【答案】A6. 在指定范围内扫描数据表文件，查找满足条件的记录并执行循环体中其 他的语句，最合适的循环语句是A.DO WHILE-ENDDOB.DO CASE-ENDCASE【答案】C7. 在Visual FoxPro中，不能清除所有内存变量的命令是。A. RELEASE ALLB. CLEAR ALLC. CLOSE ALLD. CLEAR MEMORY 【答案】C8. 文

27、件的扩展名为.PRG的文件是。A.数据库文件B.格式文件C.备注文件D.程序文件【答案】D9. 若要中止部分语句执行而重新开始下一轮循环的命令是 。A. LOOPB. EXITC. SKIPD. GOTO【答案】A10. 在INPUT ACCEPT和WAIT三个命令中，必须要以回车键表示输入结束的命令是。A. INPUT、ACCEPTB. INPUTWAITC. ACCEPT WAITD. INPUT ACCEP和 WAIT【答案】A11. 在DO WHILEENDD的循环结构中，下列叙述正确的是 。A. 循环体中的LOOP和EXIT语句的位置是固定的B. 在程序中应加入控制循环结束的语句C.

28、 执行到ENDD时，首先判断表达式的值，然后再返回 DO WHILES句D. 循环体中的LOOF语句为跳出循环体【答案】B12. 下列关于过程文件的说法中，错误的是 。A. 过程文件的建立需使用 MODIFY COMMAN令B. 过程文件的默认扩展名为.PRGC. 在调用过程文件中的过程之前不必打开过程文件D. 过程文件只包含过程，可以被其他程序所调用【答案】C13. 软件是指。A.程序B.程序和文档C.算法加数据结构D.程序、数据与相关文档的完整集合【答案】D14. 下面程序计算一个整数的各位数字之和。在下划线处应填写的语句是。SET TALK OFFINPUTx=”TO xs=0DO WH

29、ILE X =0s=s+MOD B. x=int(x%10C. x=x-int(x/10D.in t(x%10【答案】A15. 如果在命令窗口执行命令：LIST名称,主窗口中显示： 记录号 名称1 电视机2 计算机3 电话线4 电冰箱5 电线假定名称字段为字符型、宽度为6,那么下面程序段的输出结果是GO 2SCAN NEXT 4 FOR LEFT(名称,2= “电”IF RIGHT(名称,2= “线”EXITendifendscan?名称A.电话线 B.电线C.电冰箱 D.电视机【答案】A填空题1. 下列程序的运行结果是。X=计算机等级测试Y=匸LEN(XDO WHILE I=1Y=Y+SUB

30、STR(X,I-1,21=1-2ENDDO?Y【答案】试考级等机算计2. 在DO CASIEENDCAS语句中，可使用 语直接跳出该分支语句。【答案】EXITX3. 结构化程序设计包含3种基本控制结构，其中SCAN- ENDSCAM句属于 吉构。【答案】循环4. 使用 令可以定义一个过程的开始。【答案】PROCEDUREFUNCTION5. 下列程序的功能是计算S=1!+2!+10!的值，完成程序填空。S=0FOR N=1 TO 10P=1FOR I=1 TO NENDFORENDFOR?SUM=,S【答案】P=P*I, S=S+P6. 学生表中有字段：姓名、计算机和班级号，下列程序是查询并显

31、示所有 班级号为1002的学生记录，完成程序填空。USE学生表DO WHILEIF班级号=1002DISPLAYENDIFENDDOUSE【答案】NOT EOF( SKIP* n）CLEARSUM=MUL=INPUT 请输入n的值：TO NFOR i=1 TO NFOR j=1 TO iMUL=MUL*ENDFORSUM= SUM+ENDFOR?求得的总和为：,SUM【答案】0, 1, j, 1/mul5.2 上机实验程序的建立、修改和执行【实验题目】VFP程序的建立、修改和执行【实验目的】1 ）熟练掌握“项目管理器”环境下程序的建立、修改和执行。2）熟练掌握命令方式下程序的建立、修改和执行。

32、*R*R?圆面积：，SSET TALK ON2. 在命令方式下建立、修改和执行EXP.PRG程序。3. 在菜单方式下建立、修改和执行EXP.PRG程序。第一题：在“项目管理器”环境下建立、修改和执行EXP.PRG程序。操作如下：1）打开项目文件 已建）：在VFP主菜单中选“文件”一选“打开”一在弹出的“打开”对话框中指 定文件类型为“项目”，在所列项目文件中指定一个项目 如：项目1.PJX）-单击“确定”按钮，弹出“项目管理器”窗口。”，弹出“程序”编辑窗口在该窗口逐行输入EXP.PRG中语句，每行语句以回车结束。如图5-1所示。图5-1程序编辑窗口3）保存程序：在VFP主菜单中选“文件”一选

33、“保存”一在弹出的“另存为”对话框中 指定程序名为EXP.PRA单击“确定”按钮返回“项目管理器”窗口 注：也可 通过单击“程序”编辑窗口的关闭按钮或按组合键 Ctrl+W保存程序）。4）执行程序：在“项目管理器”窗口中选“代码”选项卡一展开“程序”目录一选“ EXP”-单击“运行”按钮，执行程序 结果显示在VFP的桌面上，向右移动 “项目管理器”窗口可看见结果）。5）修改程序：在“项目管理器”窗口中选“代码”选项卡一展开“程序”目录一选“ EXP ” 一单击“修改”按钮，弹出“程序”编辑窗口一在该窗口修改出错语 句，然后保存程序。第二题：在命令方式下建立、修改和执行 EXP.PRG程序。操作

34、如下：1）建立程序文件：在命令窗口输入命令 MODIFY COMMAND EXP.PRG或 MODIFY COMMAND EXP，弹出“程序”编辑窗口，在该窗口逐行输入 EXP.PRG中语 句，每行语句以回车结束。2）保存程序：单击“程序”编辑窗口的关闭按钮或按组合键 Ctrl+W保存程序。3）执行程序：在命令窗口输入命令 DO EXP.PRG或 DO EXP。4）修改程序：在命令窗口输入命令 MODIFY COMMAND EXP.PRG或 MODIFY COMMAND EXP，弹出“程序”编辑窗口，在该窗口修改出错语句，然后保存 程序。第三题：在菜单方式下建立、修改和执行 EXP.PRG程序

35、。操作如下：1）建立程序文件：在VFP主菜单选“文件” f选“新建” f选“程序” f选“新建文件弹出“程序”编辑窗口，在该窗口逐行输入EXP.PRG中语句，每行语句以回车结束。3）执行程序：在VFP主菜单选“程序” f选“运行” f在弹出的“运行”对话框指定程 序名为EXP.PRG单击“运行”按钮，运行程序。4）修改程序：在VFP主菜单选“文件” f选“打开” f在弹出的“打开”对话框，指定 程序名为EXP.PRG单击“确定”按钮，弹出“程序”编辑窗口，在该窗口修 改出错语句f单击工具栏“！”保存和运行程序。结构化程序设计【实验题目】VFP结构化程序设计【实验目的】1）熟练掌握顺序结构、分支

36、结构和循环结构的程序设计。2）熟练掌握子程序、过程和自定义函数及其调用。 【实验示例】1顺序结构的程序设计【例1】有如下表：,姓名C（8,性别C（2,班级 C（9，出生日期 D，走读L; ，课程名 C（20，成绩 N（5,1一个学生可以选择多门课程。请编写一个完整的程序，该程序能完成以下功 能：1）将表XS.DBF和表CJ.DBF建立关联，并显示出所有男同学的姓名以及 他们所选课程的课程名2）将XS.DBF表中所有班级为“ 2002级2班”的同学信息拷贝到新表 STUDENT.DBF 中, STUDENT .DBF只含有学号、姓名、性别、走读四个字段?请输出50元票的总数为：?y2x=x-50

37、*y2y3=INT(x/20?请输出20元票的总数为：?y3x=x-20*y3y4=INT(x/10?请输出10元票的总数为：?y4x=x-10*y4y5=INT(x/5?请输出5元票的总数为：?y5x=x-5*y5y6=INT(x/2?请输出2元票的总数为：?y6?请输出1元票的总数为：x=x-2*y6?x2.分支结构的程序设计【例4】编写密码输入程序，输入密码时，密码在屏幕上不显示。程序对输 入的密码与事先存储的密码进行比较，若一致提示“欢迎您使用本系统”，若不 一致，提示“密码错，你不能进入本系统”。【编程】*prg5-4SET TALK OFFClear?请输入你的密码：SET CON

38、SOLE OFF &用户输入的信息在屏幕上不显示ACCEPT TO MMSET CONSOLE ON &用户输入的信息在屏幕上显示IF MM123456?密码错，你不能进入本系统ELSE?欢迎您使用本系统ENDIFSET TALK ONRETURN【例5】某铁路托运行李计费标准如下：行李重 50kg以下，收费标准1.20元 /kg;行李重超过50kg，超出部分加倍收费。试编写程序计算行李费。行李重量 由键盘输入。【解题思路】行李计费分两种情况，所以采用一般分支语句。50kg以下 行李费=行李重*1.2行李重-,50kg以上 行李费=50*1.2+（行李重-50*2.4算法如图5-2所示。键盘输

39、入行李重量T TT50.F.F=T*1.2|F=50*1.2+(T-50)*2.4图5-2行李计费N-S图【编程】*prg5-5SET TALK OFFINPUT 行李重：TO TIF T*2.4ENDIF?行李费：,GSET TALK ON【例6】给定年号与月份，判断该年是否闰年，并根据给出的月份来判断是 什么季节和该月有多少天？ 闰年的条件是：年号能被 4整除但不能被100整 除，或者能被400整除）。【解题思路】根据闰年条件可得出闰年的逻辑表达式： （Y%4=0ANDY%10000R（Y%400=0【编程】*prg5-6SET TALK OFFCLEARINPUT请输入年号：TO Y*判

40、断闰年IF(Y%4=0AND Y%1000OR(Y%400=0LEAPYEAR=.T.ELSELEAPYEAR=.F.ENDIF*判断季节INPUT 请输入月份：TO MDO CASECASE M=3 AND M=6 AND M=9 AND MCASE M=12 OR M=1OR M=2JI=冬季(WINTERENDCASE*判断月中天数N=M%7DO CASECASE M=2 & 二月份IF LEAPYEARDAYS=29ELSEDAYS=28ENDIFCASE M=7 OR N%20 & 1,3,5,7,8,10,12DAYS=31CASE N%2=0DAYS=30ENDCASE?STR(Y4+年+IIF(LEAPYEA