《第七讲 Visual FoxPro 程序设计基础课件》由会员分享，可在线阅读，更多相关《第七讲 Visual FoxPro 程序设计基础课件（29页珍藏版）》请在金锄头文库上搜索。
1、第七讲 Visual FoxPro 程序设计基础,主要内容,程序与程序文件 程序的基本结构,7.1.1 程序的概念,1程序 定义： 程序是能够完成一定任务的命令的有序集合。这组命令被存放在称为程序文件或命令文件的文本文件中。 2程序方式 优点： 程序可以被修改并重新运行。 可以用多种方式、多次运行程序。 在一个程序中可以调用另一个程序。 具有在命令窗口中无法使用的结构化程序设计命令。,例如：编写程序，计算圆的周长和面积。 程序过程 CLEAR & 清除Visual FoxPro主窗口上的全部内容 *设置半径 R=3 *依次计算圆的周长和面积 L=2*PI()*R S=PI()*R2 *输出计算
2、结果 ?”周长=”,L ?”面积=”,S,说明： 程序中经常插入注释，以提高程序的可读性。注释为非执行代码，不会影响程序的功能。 注释方式： NOTE或* 以NOTE或*开头的代码行为注释行，一般用于对下面一段命令的说明。 & 命令行后可添加注释，对所在行命令的说明。,7.1.2 程序文件的建立与运行,1程序文件的建立 方法： 选择“文件”菜单中的“新建”命令，然后在“新建”对话框中选择“程序”，并单击“新建文件”按钮。 在文本编辑窗口中输入程序内容。 保存程序文件。 2打开、修改程序文件 方法：,方法： 选择“文件”菜单中的“打开”命令，弹出“打开”对话框。 在“文件类型”列表框中选择“程序
3、”。 在文件列表框中选定要修改的文件，单击“确定”按钮。 修改后，选择“文件”菜单中的“保存”命令或按Ctrl+W组合键保存文件。 可用MODIFY COMMAND文件名建立和修改程序文件。,3执行程序文件 菜单方式： 选择“程序”菜单中的“运行”命令，打开“运行”对话框；从文件列表框中选择要运行的程序文件，单击“运行”命令按钮。 命令方式： DO文件名 当用DO命令执行程序文件时，如果没有指定扩展名，系统将按下列顺序寻找该程序文件的源代码或目标代码文件执行：.exe（Visual FoxPro可执行文件） .app（Visual FoxPro应用程序文件） .fxp（Visual FoxPr
4、o编译文件）.prg（Visual FoxPro源程序文件）。,7.1.3 简单的输入输出命令,1INPUT命令 命令格式： INPUT TO 命令说明： 当程序执行到该命令时，程序暂停，等待用户从键盘输入数据，用户可以输入任意合法的表达式。 输入字符型数据时必须用括号括起来，逻辑型数据需要用圆点括起来。 当用户以Enter键结束输入时，系统计算表达式的值并将表达式的值存入指定的内存变量，程序继续向下运行。,2ACCEPT命令 命令格式： ACCEPT TO 命令说明： 当程序执行到该命令时，程序暂停，等待用户从键盘输入字符串。 从键盘上输入的任何字符（不需要括号）都被作为字符串接收，内存变量
5、为C型；字符表达式可以是加引号的字符串，也可以是字符串变量。 当用户以回车键结束输入时，系统将该字符串存入指定的内存变量，程序继续向下运行。,3WAIT命令 命令格式： WAIT TO 命令说明： 当程序执行到该命令时，程序暂停，等待用户从键盘输入单个字符。 用户按任意键或单击鼠标时，程序继续执行。,主要内容,程序与程序文件 程序的基本结构,7.2.1 顺序结构,1顺序结构 定义： 顺序结构程序设计就是根据事物的处理顺序和要求，将相应的指令按照它们所完成的功能有机地结合起来的一个指令序列，这些指令的执行是按它们的排列顺序一条接一条的来执行。,2选择结构 条件语句 命令格式： IF lExpre
6、ssion Commands1 ELSE Commands2 ENDIF 命令说明： IF和ENDIF必须成对出现，IF是本结构的入口，ENDIF是本结构的出口。 条件语句可以嵌套，但不能出现交叉。在嵌套时，为了使程序清晰、易于阅读，可按缩进格式书写。,例题 从键盘上输入一个任意数，判断是偶数还是奇数。 SET TALK OFF INPUT “从键盘上输入任意数：” TO NO IF INT(NO/2)=NO/2 ?NO,”是偶数” ELSE ?NO,”是奇数” ENDIF SET TALK ON,7.2.2 循环结构,1循环结构 定义： 循环结构也称为重复结构，是指程序在执行的过程中，其中的
7、某段代码被重复执行若干次。被重复执行的代码段，通常称为循环体。 分类： FOR-ENDFOR DO WHILE-ENDDO SCAN-ENDSCAN,FOR语句 定义： 该语句常用于实现循环次数已知情况下的循环结构。 命令格式： FOR MemVarName=nInitialValue TO nFinalValue STEP nIncrement Commands EXIT LOOP ENDFOR|NEXT,命令说明： STEP nIncrement的默认值为1。 可以在循环体内改变循环变量的值，但是这会影响循环体的执行次数。 EXIT在循环结束时，将控制从循环体内转移到ENDFOR后面的命令
8、。 LOOP给定该参数，可以控制程序直接返回到FOR，而不去执行LOOP后面的指令序列，但不影响计数器的正常工作。,DO WHILE-ENDDO语句 命令格式： DO WHILE lExpression Commands LOOP EXIT ENDDO 命令说明： 条件lExpression是个逻辑表达式，如果第一次判断条件时，lExpression为假，则循环体一次也不执行。,执行DO WHILE语句时，系统先对表达式求值，如果为真，则顺序执行循环体内的各条语句。 如果循环体包含LOOP命令，那么当遇到LOOP时，就结束循环体的本次执行，不执行其后面的语句，而是回到DO WHILE外重新判断
9、条件。 如果循环体包含EXIT命令，那么当遇到EXIT时，就结束该语句的执行，转去执行ENDDO后面的语句。 通常LOOP或EXIT出现在循环体内嵌套的选择语句中，根据条件决定是LOOP回去，还是EXIT出去。 DO WHILE与ENDDO必须成对出现。,例题 计数形式 N=1 &循环的初值 DO WHILE N &循环内容 N=N+1 &循环计数 ENDDO,程序举例 例如：编写程序，计算：T=1！+2！+100！ 求100！的程序代码如下： y=1 FOR n=1 to 100 y=y*n ENDFOR 说明： 先为变量y赋初值1，然后通过循环语句将命令y=y*n重复执行100次，循环体每
10、次执行时，n的值依次取1、2、100，循环体每次执行后，Y的值依次为1！、100！。,方法： 在上述程序代码中添加一条命令x=x+y，也就是把代码执行过程中产生的各Y值累加起来，那么最终的X值就是所要求的各阶乘之和。 x=0 y=1 FOR n=1 to 100 y=y*n x=x+y ENDFOR ?x=,x,方法： 在求100！时，将FOR子句改成for i=1 to n，代码段的功能就变成了n！。将求n！的代码段重复执行100次，n的值从1变到100。最后将每次执行产生的阶乘累加起来。 x=0 for n=1 to 100 y=1 for i=1 to n y=y*i endfor x=
11、x+y endfor ?x=,x return,例如：找出100900之间的所有“水仙花数”。 所谓“水仙花数”是指一个三位数，其各位数字的立方和等于该数本身。（如153=13+53+33） 这题的关键是要知道如何分离出一个三位数中的各位数字。下面列出两种方法，其中i代表三位数，a、b和c分别代表该三位数的百位、十位和个位上的数字。,方法： CLEAR FOR i=100 TO 900 a=INT(i/100) & INT（153/100）等于1 b=INT(i-100*a)/10) & INT(153-100*a)/10)等于5 c=i-INT(i/10)*10 & 153-INT (153/10) *10 IF i=a3+b3+c3 ?i ENDIF ENDFOR RETURN,方法： Clear FOR i=100 TO 900 s=STR(i,3) & 将一个三位数转换成字符串 a=VAL(LEFT(s,1) & 将字符串最左边的一个数字字符转换为数值 b=VAL(subs(s,2,1) & 将字符串最中间的一个数字字符转换为数值 c=VAL(right(s,1) & 将字符串最右边的一个数字字符转换为数值,IF i=a3+b3+c3 ?i ENDIF ENDFOR RETURN,谢谢！,
