10第十讲过程、表单使用1.pptVIP

第十讲 过程、表单使用 鲁 宁 学时：2节 教学内容 10.1 循环回顾 10.1.1 选择排序 10.1.2 循环示例 10.2 过程 10.2.1 子过程 10.2.2 函数 10.2.3 变量的作用域 10.3 表单 10.3.1 表单基本使用 10.3.2 表单示例 教学重点及目标 教学重点 选择排序 循环的灵活使用 子过程与函数 表单基本使用 教学目标 掌握过程的使用方法 掌握表单的使用方法 灵活应用过程和表单解决实际问题 数组 格式 DIMENSION 数组名(下标上限1，[，下表上限2...]) [,...] DECLARE 数组名(下标上限1，[，下表上限2...]) [,...] 功能：一次可以创建多个一维数组或二维数组。 数组下标从1开始，数组创建时，每个数组元素赋值.F. 示例：Dimension x(5),y(2,3) 一维数组x含有5个元素：x(1)、 x(2)、 x(3)、 x(4)、 x(5) 二维数组y含有6个元素：y(1,1)、 y(1,2)、 y(1,3)、 y(2,1)、 y(2,2)、 y(2,3) 可以用一维数组的形式访问二维数组，如数组y中的各元素用一维数组表示为:y(1)、 y(2)、 y(3)、 y(4)、 y(5) 、y(6) 其中y(4)与y(2,1)是同一变量 数组中各元素的类型可以不同 选择排序算法 a(1) a(2) a(3) a(4) a(5) 10 20 15 30 5 a(k)=a(i) a(i)=i_Min 5 20 15 30 10 a(k)=a(i) a(i)=i_Min 5 10 15 30 20 5 10 15 20 30 选择排序 Clear Dimension a(5) a(1)=10 a(2)=20 a(3)=15 a(4)=30 a(5)=5 N_Disp=待排数据： For i=1 to 5 N_Disp=N_Disp+space(5); +str(a(i)) next ? N_Disp For循环示例 求Sn=1+(1+2)+(1+2+3)+…+(1+2+3+…+n) Clear S=0 Si=0 Input Input N= To N For i=1 to n Si=0 for j=1 to i Si=Si+j next S=S+Si next ? S For循环示例 求Sn=1!+(1!+2!)+(1!+2!+3!)+…+(1!+2!+3!+…+n!) Clear S=0 Si=0 Input Input N= To N For i=1 to n Si=0 for j=1 to i F=1 for k=1 to j F=F*k next Si=Si+F next S=S+Si next ? S For循环示例 计算S=5!+8! S=0 F=1 For i=1 to 5 F=F*i Next S=S+F F=1 For i=1 to 8 F=F*i Next S=S+F 过程及其调用 过程是以特定的命令开始又以特定的命令结束的模块，被放置在程序文件或过程文件中。 一个独立的程序块，放在过程文件中。 过程的名字为 1～8 个字符, 没有扩展名, 每个过程以 PROCEDURE 过程名 语句起始, 以 RETURN 语句终止。 过程分为内部过程和外部过程 定义过程 格式： PROCDURE 过程名 命令序列 [RETURN[表达式]] [ENDPROC] 说明： 过程名必须以字母或下划线开头，字母、数字和下划线的组合； RETURN命令是过程返回命令，控制将转回到调用程序（或命令窗口），并返回表达式的值，若省略表达式，则返回逻辑值.T.； 缺省RETURN命令，则自动执行一条隐含的RETURN命令； 子程序或过程的返回语句 格式 RETURN [表达式/TO MASTER/TO 过程名] 功能 将程序控制权返回给调用程序，并返回表达式值 说明 （1）表达式短语：指定返回给调用程序的表达式值。如果省略RETURN命令或省略返回表达式，则自动将“.T.”返回给调用程序。 （2）TO MASTER短语：将控制权返回给最外层的调用程序。 （3）TO 过程名短语：将控制权返回给指定的过程。 调用过程 格式 DO 过程名 [IN 程序文件