vfp第二章程序设计基础上.ppt

二、程序的建立与执行 1、程序文件的建立 在命令窗口里输入 modify command 注意：程序文件的扩展名为.prg，可以省略。,说明： 1、 命令注释 （行注释 * 、note，命令后边注释 &,2、命令分行 ;,3、在命令窗口中可以一次执行多条命令。,一、程序：程序是能够完成一定任务的命令的有序集合。（文 本文件）,2.4 程序与程序文件,2、程序文件的执行 do ,3、几条经常用到命令 cancel ：终止程序的运行，清除所有私有变量,quit：退出vfp系统，返回操作系统,return：结束当前程序的执行，返回到调用它的上级程序,三、简单的输入输出命令 1、input to 当执行到此命令时，暂停程序的运行等待用户从键盘输入数据，用户可以输入合法的表达式，当用户以回车键结束输入时，系统将表达式的值存入指定的内存变量，程序继续运行。,注释：（1）字符表达式即为提示信息。 （2）当命令运行时，输入的数据可以是字符型、数值型、日期型、逻辑型常量、变量或表达式。要注意加定界符。,3、wait to window at ， Nowait clear | noclear timeout ,2、accept to 注意：该命令只能接受字符型表达式,注意：该命令只能接受一个字符,例：计算用户输入的三个数值的平均值,2.5 程序的基本结构 程序结构是指程序中命令或语句执行的流程结构 顺序结构 选择结构 循环结构,顺序结构是按命令在程序中出现的先后次序依次执行,例题： 三、综合应用(1小题，计30分) 在考生文件夹下有学生成绩数据库XUSHENG3,包括如下所示三个表文件以及相关的索引文件: 1、XS.DBF(学生文件: 学号 C8，姓名 C8，性别 C2，班级 C5) 2、CJ.DBF(成绩文件: 学号 C8，课程名 C20，成绩 N5.1) 3、CJB.DBF(成绩表文件：学号 C8，姓名 C8，班级 C5),设计一个名为XS3的程序，完成下列操作： 将所有选修了“计算机基础“的学生的“计算机基础“成绩， 按成绩由高到低的顺序填列到成绩表文件CJB.DBF中(事前须将文件中原有数据清空)。,2.5.1 选择结构 根据条件的真假有选择的执行某些语句，跳过某些语句,1、双分支结构,if 条件 else endif,命令格式：,例：编写命令文件test3.prg，请用户输入待查询学生的姓名，如果有此人，显示该学生的基本情况，如果没有显示“查无此人”,2、单分支结构,if 条件 endif,命令格式：,例：某地至北京的邮路里程为1043公里，通过邮政局向北京地区寄交“特快专递”邮件，应在24小时内到达，计费标准每克为0.05元，但超过100克后，超出数每克为0.02元。试编写程序计算邮费,3、多重分支语句,（1）语句格式 do case case 逻辑表达式1 语句组1 case 逻辑表达式2 语句组2 case 逻辑表达式n 语句组n otherwise 语句组n+1 endcase,例题：计算分段函数指：,F(x)=,2x-1 (x=10),4、分支语句的嵌套，在分支语句内还可以再有分支。 例：请用户输入用户名和密码，然后判断用户名的正错,2.5.2 循环结构 循环结构也称为重复结构，是指程序在执行的过程中，其中的某段代码被重复执行若干次。被重复执行的代码段，通常称为循环体,1、do while - enddo 语句（do循环）,do while loop exit enddo,循环体,loop 回到循环的开始，从新判断条件 exit 无条件退出循环，执行enddo以后的语句。,例1：计算s=1+2+3+100,S=0 i=0 Do while i=100 s=s+I I=I+1 Enddo ?”s=“,s,例2：逐条输出1982年出生的学生记录,Locate for year(出生日期)=1982,Dispaly Wait Continue,Dispaly Wait Continue,Dispaly Wait Continue,Open database stu Use 学生 Locate for year(出生日期)=1982 Do while not eof() display wait continue Enddo Use Close database,for 变量= 初始值 to 终值 step 步长 语句组 loop exit endfor /next,2、for-endfor语句（for循环）,注意：当 步长0时 变量=终值时为真,循环体,例1：找出100-999之间的所有“水仙花数”.所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身（如153=13+53+33）,设要测试的数为i 1、取出百位数 a=int(i/100)或 a=val( left(str(I,3),1),2、取出十位数 b=int(i-a*100)/10)或 b=val( substr(str(I,3),2,1),3、取出个位数 c=i-a*100-b*10或 c=val( substr(str(I,3),3,1),i=a3+b3+c3,例2：从键盘输入10个数，然后找出其中最大值和最小值,5,6,3,第一次输入的值放入ma、mi，以后输入的当大于ma时放入ma里，当小于mi时放入mi,Scan for Endscan,3、scan- endscan语句（scan循环，只用于处理表）,例：统计专业代码（学号的第3、4位）为03的男、