VF第6章 程序设计基础.pptVIP

第六章 结构化程序设计 6.1 程序的建立与运行 6.2 设计中常用的输入、输出命令 6.3 基本控制结构 6.4 过程与用户自定义函数 小结: ①Do While和EndDo 、For和EndFor、Scan和EndScan必须配对使用。 ②Exit和Loop命令嵌入在循环体内，可改变循环次数，但不能单独使用。 Exit——功能是跳出循环； Loop——功能是转回到循环的开始处。 ③在For循环语句中执行Loop语句，会先修改循环变量的值，在Scan循环语句中执行Loop语句，会先移动记录指针。 例：对于任意输入的整数x和y，计算x!+y!的值 例：设计一个计算圆面积的子程序，并要求在主程序中带参数调用它。 自定义函数 1、自定义函数的定义格式 2、自定义函数的调用 1）使用函数名调用函数 格式：函数名(参数表) 说明：这种格式可以接受函数的返回值。 2）用Do命令调用函数 格式：Do 函数名 [With参数表] 说明：这种格式不能接受函数的返回值 【例】设计一个自定义函数，求一元一次方程AX+B=0的根。 程序运行结果： 主模块中 a=1 b=2 子模块中 a=10 b=11 c=.f. d=13 返回主模块后 a=10 b=2 c=.f. d=*弹出“找不到变量‘d’” 对话框 【格式】 Wait [提示信息] [To 内存变量] [Window [At 行，列]] [Nowait] [Clear | Noclear][Timeout 数值表达式] 功能：显示提示信息并暂停VFP的执行，按某个键/单击鼠标后继续执行，输入均作为单字符型数据赋给内存变量。 说明： 若未选用提示信息，则屏幕显示默认的提示信息“按任意键继续…”。 【格式】 Text 文本内容 Endtext 功能：将文本内容原样显示输出。 ？/？？(不换行） 【格式】 ＠行，列 [SAY表达式1 ] [GET变量名] DEFAULT表达式2 ] 说明： 行，列 ：表示数据的窗口中显示的位置； SAY子句：用来输出数据； GET子句：显示及编辑数据，其中GET子句中的内存变量必须先赋初值，且必须用READ来激活; DEFAULT子句：用来给变量赋默认值而不需赋初值。 1、 注释命令 格式1：Note 注释内容 放在程序开头对一段注释 格式2：* 注释内容 必须放在一行的开头 格式3：…… 注释内容 语句后 说明： 1）注释命令为非执行语句。 2）注释内容最后一个字符是分号(;)，系统默认下一行内容 仍为注释内容。 ON：可在执行某些命令时将执行过程的某些信息显示出来。例如：执行count命令时，结果将自动显示。（默认） 注意： 每层IF-ELSE-ENDIF必须一一对应； 每层IF-ELSE-ENDIF不能跨层匹配。 为了便于读程，语句行最好写成缩行形式，可以在ENDIF加一数字标记,一般来说，应尽量减少多层嵌套。 *例li6-15 示例：用Do While循环语句设计一个有关档案管理的主控程序，用户通过键盘选择菜单，以实现不同功能模块的调用。 思考 如果只打印九九表的上或下三角部分程序将如何修改？ 根据给定条件的判断结果，选择执行不同的分支，也称“分支结构” For i=1 to 10 if i=3 loop i=i+2 endif ?i Endfor ?i 思考 结果： 1 2 4 5 6 7 8 9 10 11 For i=1 to 10 if i=3 exit i=i+2 endif ?i Endfor ?i 结果： 1 2 3 多重循环 外循环一次 内循环一圈 Clear For x=1 To 9 For y=1 To 9 Z=x*y ??Str(x,1)+*+Str(y,1)+“=+Str(z,2)+Space(2) Endfor ? 换行 Endfor 上 下 编写程序打印如下的图形： 1）平行四边形 2）三角形 3）数字宝塔形 4）杨辉三角形(x+y)的n次方展开后多项式的系数 课堂练习 常用函数介绍： （1）条件函数IIF（等价于双分支结构） 格式：IIF(条件表达式,值1,值2) 功能：若条件表达式的值为.T.，则返回值1，否则返回值2。 例如：?IIF(34,100,99) 结果是100 （2）消息对话框函数 P51 格式：MESSAGEBOX(提示[,按钮类型[,标题]]) 功能：以对话框的形式显示信息，并返回所单击的按钮值（1- 范围内的整数）。 例如：执行如下命令 X=MESSAGEBOX(程