VFP上课 程序设计基础PPT学习教案

1、会计学1VFP上课上课 程序设计基础程序设计基础2第1页/共38页3通常放在命令之后通常放在命令之后通常放在程序之首通常放在程序之首第2页/共38页4第3页/共38页5第4页/共38页6第5页/共38页73.格式输出命令格式输出命令 say functionpicture 功能：在屏幕的指定位置上输出功能：在屏幕的指定位置上输出say子句中表达式的值子句中表达式的值 说明：若选择说明：若选择function子句或子句或picture子句，则按一定格式输出子句，则按一定格式输出 例例8-3：编程显示学籍管理系统的主菜单：编程显示学籍管理系统的主菜单 4.文本输出命令文本输出命令 命令：命令： t

2、ext endtext 功能：在屏幕原样显示功能：在屏幕原样显示text和和endtext之间的内容之间的内容第6页/共38页8第7页/共38页9a 汽油汽油b 煤油煤油t 空桶空桶语句1语句2第8页/共38页10pAB成立成立不成立不成立条件条件命令序列命令序列.T.F.endif后的命令后的命令第9页/共38页11第10页/共38页12wait 命令命令命令：命令：WAIT 提示信息提示信息 TO内存变量内存变量 WINDOWAT 行行, 列列 TIMEOUT数值表达式数值表达式功能：暂停程序的执行、显示提示信息等待用户按键输入信息到内功能：暂停程序的执行、显示提示信息等待用户按键输入信息

3、到内存变量存变量(字符型字符型)，系统接收到信息后自动往下继续执行，系统接收到信息后自动往下继续执行说明：说明： (1)WINDOW子句能在子句能在VFP主窗口开出一个提示信息的显示窗口主窗口开出一个提示信息的显示窗口，位置由，位置由AT子句来指定。提示信息的显示窗口也将在移动鼠子句来指定。提示信息的显示窗口也将在移动鼠标或按下任意键后自动消失标或按下任意键后自动消失 (2)可选项可选项TIMEOUT数值表达式数值表达式 用于指定程序暂停的时间用于指定程序暂停的时间， 单位为秒。如果在指定时间内用户仍未按键，则程序继续单位为秒。如果在指定时间内用户仍未按键，则程序继续执行执行第11页/共38页

4、132.双向选择双向选择 语句格式：语句格式： I F条件条件 命令序列命令序列l ELSE 命令序列命令序列2 ENDIF 功能：根据条件的值，选择执行两个命令序列中的一个功能：根据条件的值，选择执行两个命令序列中的一个 例例8-9：从键盘输入一个整数，判断是奇数还是偶数：从键盘输入一个整数，判断是奇数还是偶数 例例8-10：判断某一年是否是闰年：判断某一年是否是闰年(如是闰年则能被如是闰年则能被4整除但不能整除但不能 被被100整除，或能被整除，或能被400整除整除)，显示格式如下：，显示格式如下：条件条件命令序列命令序列l命令序列命令序列2.T.F.第12页/共38页14第13页/共38

5、页15第14页/共38页16三三 循环结构循环结构 循环结构能做到由指定条件来控制程序中某一部分命令循环结构能做到由指定条件来控制程序中某一部分命令序列的重复执行。循环结构可以简化程序、提高程序效率。序列的重复执行。循环结构可以简化程序、提高程序效率。VFP提供了条件循环、提供了条件循环、 计数循环、扫描循环等循环结构计数循环、扫描循环等循环结构1.条件循环条件循环 命令格式：命令格式： DO WHILE逻辑表达式逻辑表达式 命令序列命令序列 ENDDO功能：判断逻辑表达式（循环条件）的取值，若为功能：判断逻辑表达式（循环条件）的取值，若为“真真”就执就执行行 DO与与ENDDO之间的命令序列

6、之间的命令序列(循环体循环体)，一旦遇，一旦遇ENDDO 就自动返回到就自动返回到DO WHILE重新判断循环条件是否成立重新判断循环条件是否成立， 以决定是否再循环；条件的取值若为以决定是否再循环；条件的取值若为“假假”，则退出，则退出循环循环逻辑表达式逻辑表达式命令序列命令序列 真真 假假第15页/共38页172.计数循环计数循环 命令格式：命令格式： FOR 循环变量循环变量= 初值初值 TO 终值终值 STEP步长步长 命令序列命令序列 ENDFOR | NEXT 功能：功能： 本命令中的初值、终值本命令中的初值、终值 、 步长都是数值表达式。通过判步长都是数值表达式。通过判断循环变量

7、的取值是否在指定范围之中来确定循环体是否重复断循环变量的取值是否在指定范围之中来确定循环体是否重复执行执行第16页/共38页18FOR 循环变量循环变量= 初值初值 TO 终值终值 STEP步长步长 命令序列命令序列ENDFOR | NEXT循环变量赋初值循环变量赋初值循环变量循环变量=s=0for i=1 to 100 s=s+inext?s=,ss=0for i=100 to 1 step -1 s=s+inext?s=,s第17页/共38页19a=0b=a+1c=b+2d=c+3 :s=s+ii=i+1程序：程序：s=0for i=1 to 100 s=s+inext? 1+2+3+ +

8、 100 =+str(s)0+1+2+3+ + 100第18页/共38页20第19页/共38页21use studscan 命令序列命令序列endscanuse studdo while not eof( ) 命令序列命令序列 skipenddo第20页/共38页22第21页/共38页23 DO WHILE ： LOOP ：ENDDODO WHILE ： EXIT ：ENDDO第22页/共38页24第23页/共38页25do while 条件条件: do while 条件条件 :enddo : enddo 例例8-16：阅读下列程序：阅读下列程序 ，写出程序运行的结果是，写出程序运行的结果是

9、DIME K(2,3) I=1 DO WHILE I=2 J=1 DO WHILE J=3 K(I,J)=I*J ?K(I,J) ? “ ” J=J+1 ENDDO ? I=I+1 ENDDO第24页/共38页265 9 3 12 1 第第1次次 5 3 9 12 1 第第3次次 5 3 9 12 1 第第4次次 5 9 3 12 1 第第2次次 5 3 9 1 125 3 9 1 12 第第1次次 3 5 9 1 12 第第3次次 3 5 1 9 123 5 9 1 12 第第2次次 第第1趟趟 共共5-1次比较次比较第第2趟趟 共共5-2次比次比较较第第5-1趟趟 共共5-4次比较次比较：第25页/共38页27第26页/共38页28Stud表的管理程表的管理程序序修改修改删除删除查询查询打印打印退出退出第27页/共38页29第28页/共38页30过程过程dw第29页/共38页31第30页/共38页32主程序主程序 过程过程A 过程过程B : : : DO A DO B : : : RETURN RETURN 第31页/共38页33第32页/共38页34第33页/共38页35第34页/共38页36第35页/共38页37第36页/共38