程序设计 课件第7章课件精品.ppt

第7章 程序设计基础 掌握程序文件的概念及创建方法 熟悉简单的交互式输入输出命令的使用 熟悉应用程序的调试与执行方法 掌握顺序、选择和循环这三种结构的程序设计方法 掌握过程与过程调用的方法 教学重点与难点 程序文件的建立及修改 简单的交互式输入输出命令 程序设计的三种基本结构：顺序、选择和循环结构 变量的类别及作用域 过程调用的方式及调用中参数的传递 clear For I=15 to 5 step –3 if I%3=0 I=I-1 endif I=I-2 ??I Endfor 最后I的值为多少？循环了多少次？ 考虑:分别用do while 和for 循环实现 1.求1－100之间所有偶数的平方和并输出结果。 2.统计学生表中男生和女生的人数并输出。 7.5 应用程序举例 【例7.18】编制程序，输出3～100之间的所有素数。 ?要判断一个数m是否为素数，可以用2到m-1的各个奇数去除m，如果都除不尽，m就是素数；只要有一个能除尽，m就不是素数。实际上为了提高效率，不必除到m-1，只要除到Int(SQRT(m))即可。 Clear a=1 For m=3 To 100 Step 2 n=Int(SQRT(m)) For i=3 To n If Mod(m,i)=0 EXIT EndIf EndFor 【例7.19】编制一个查询学生情况的程序。要求根据给定的学号找出并显示学生的姓名及该学生各门功课的成绩。 Open Database d:\ss\student Use stud In 0 Use sc In 0 SELECT sc Index On 学号 Tag xh SELECT stud Index On 学号 Tag xh Set Relation To 学号 Into sc 建立一对多关联 Set Skip To sc Do While .T. Clear Accept 请输入学号 To mxh Seek mxh If !Eof() 找到学生记录 mes=学号：+学号+ 姓名：+姓名 Do While sc.学号=mxh 找出该学生的所有选课记录 mes=mes+Chr(10)+Chr(13); Chr(10)和Chr(13)分别是换行符和回车符 + 课程号： + sc.课程号 + 成绩： + STR(sc.成绩,5,1) Skip EndDo mes=mes+Chr(10)+Chr(13)+按任意键继续… Else 未找到学生记录 mes=查无此人，按任意键继续… EndIf Wait mes Window Wait 继续查询吗?(Y／N) To p If Upper(p) Y Exit EndIf EndDo Close Database Cancel 利用Select-SQL语句实现自动查询的代码 Open Database d:\ss\student Do While .T. Clear Accept 请输入学号 To mxh Select stud.学号, stud.姓名, sc.课程号, sc.成绩; From stud, sc; Where stud.学号 = sc.学号 .And. stud.学号 = mxh NoWait Wait 继续查询?(Y／N) To p If Upper(p) Y Use 关闭查询窗口 Exit EndIf EndDo Close Database Cancel (1) 接收参数的命令格式 格式1：Parameters 形参变量1 [,形参变量2，．．．] 格式2：LParameters 形参变量1 [,形参变量2，．．．] 功能：接收模块以形参变量接收调用模块程序传递过来的参数(称为实参)值。 说明： ① Parameters命令中声明的形参变量是模块程序中建立的私有变量，LParameters命令中声明的形参变量是模块程序中建立的局部变量。除此之外，两条命令没有什么不同。 ② 不管是Parameters命令还是LParameters命令，都应该是模块程序的第一条可执行命令。 7.3.3 调用模块时传递参数 (2) 调用模块程序时传递参数的命令格式 【格式1】Do 文件名∣过程名 With 实参1[,实参2, …] 【格式2】文件名∣过程名 (实参1[,实参2,…]) 【功能】调用模块以实参向接收模块程序的形参变量传递值。 【说明】 ① 实参可以是常量、变量，也可以是