过程 教学课件PPT.ppt
《过程 教学课件PPT.ppt》由会员分享,可在线阅读,更多相关《过程 教学课件PPT.ppt(69页珍藏版)》请在三一文库上搜索。
1、第7章过 程,本章要点: Function过程 Sub过程 参数的传递* 过程的嵌套调用 过程的递归调用* VB的工程结构 变量的作用域与生存期*,过程的引入: 使同类的操作不重复 (操作方法相同、参数不同) 过程: 完成一段独立功能,可供其他过程使用(调用)。 过程又称为子程序 调用过程: 调用其他过程的过程,调用过程: 调用Sprg1 调用Sprg1 调用Sprg2,子过程: Sprg1,子过程: Sprg2,过程分类:,Sub过程,Function过程,内部过程(方法) 事件过程 自定义过程,内部函数 自定义函数,其中,自定义函数和自定义过程统称为通用过程,7.1 Function过程(
2、函数过程),7.1.1 Function过程的定义 1. Function过程的格式 Public|PrivateStatic Function () As = Exit Function End Function,2. 说明 (1) Public: 缺省值。使用Public时表示各模块的所 有其他过程都可以调用该Function过程。 (2) Private: 使用Private时表示只有本模块中的其他过程才可以调用该Function过程。 (3) Static: 使用Static时表示将过程中的所有局部变 量说明为静态变量。 (4) : Function过程的名称,遵循变量 的命名规则。
3、(5) : 表示Function过程的参数变量列表。多个变量之间用逗号隔开。 格式: ByVal|ByRef|Optional|ParamArray ( ) As ,ByVal: 表示该参数按值传递。 ByRef: 缺省值。表示该参数按地址传递。 Optional:表示该参数为可选参数。 ParamArray:表示该参数是一个Variant类型的Optional数组。 : 任何变量名或数组名。 ( ): 当参数为数组时使用。 (6) As : 声明函数值的类型。 (7) Exit Function语句: 从Function过程中退出。 (8) Function过程通过赋值语句: = 将函数的返
4、回值赋给。 (9) Function过程的定义不能嵌套。,3. Function过程的建立: 建立位置 窗体模块 标准模块 类模块* 建立方法 直接在代码窗口中输入 应写在“通用”的位置。 使用菜单命令:工具添加过程 先切换到代码窗口,才可以使用该菜单命令。,【例7-1】编写一个计算n!的Function过程。 分析:确定参数个数、类型、函数名、类型 Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 F用于保存阶乘值 For I = 1 To N F = F * I Next I Fact = F 给函数
5、过程名赋值 End Function,【例7-2】编写一个Function过程,计算下面表达式的值。,问:应设置几个参数? Function F(X, Y, Z) F = Sqr(Abs(X 3 + Y 3 + Z 3) End Function,这里的参数和函数名都没有定义类型,默认为Variant类型。,7.1.2 Function过程的调用,1. 调用位置: 直接在表达式中调用。 2. 调用格式: () 其中,: 常量、变量或表达式 各参数之间用逗号分隔 如果是数组,在数组名之后要跟一对空括号。,【例7-3】从键盘任意输入一个整数,然后调用计算 阶乘的函数求该整数的阶乘值。 设计界面和运
6、行界面如下:,设计界面,运行界面,代码如下: Option Explicit 自定义求阶乘的函数过程Fact Function Fact(N As Integer) As Long Dim I As Integer, F As Long F = 1 For I = 1 To N F = F * I Next I Fact = F 给函数过程名赋值 End Function, 在按钮的Click事件过程中调用函数过程 Private Sub Command1_Click() Dim X As Integer X = Val(Text1.Text) Label2.Caption=Trim(Str(
7、X) & “的阶乘数为:“ 使用Fact(X)调用函数过程 Label3.Caption = Trim(Str(Fact(X) End Sub,【例7-4】利用Function过程计算阶乘,求组合数。设计界面如下图。,代码如下: 定义求阶乘的函数Fact Function Fact(N As Integer) As Double Dim F As Double, I As Integer F = 1 For I = 1 To N F = F * I Next I Fact = F End Function, “=”按钮的Click事件过程 Private Sub Command1_Click(
8、) Dim M As Integer, N As Integer, C As Double N = Val(Text1.Text) M = Val(Text2.Text) 调用Fact函数求各阶乘值 C = Fact(M) / (Fact(N) * (Fact(M - N) Text3.Text = Trim(Str(c) End Sub,【例7-5】编写Function过程求最大公约数,并通过命令按钮的单击事件过程调用该函数过程。,Function hcf(m As Integer, n As Integer) As Integer Dim r As Integer r = m Mod n
9、Do While r 0 m = n n = r r = m Mod n Loop hcf = n End Function Private Sub Command1_Click() Dim m As Integer, n As Integer m = Val(Text1.Text): n = Val(Text2.Text) Label3.Caption = Str(hcf(m, n) End Sub,【例7-6】编写一个Function过程,返回指定个数的字符串,字符串以A开始,例如,当指定个数5时,函数返回字符串“ A B C D E“。运行时单击按钮调用该函数过程,实现在窗体上按指定的行
10、数输出如下图所示的图形。, CreateStr函数返回N个字符 Private Function CreateStr(N As Integer) Dim TmpStr As String, I As Integer TmpStr = “ StrAsc用于保存字符的ASCII码 StrAsc = Asc(“A“) 1 For I = 1 To N StrAsc = StrAsc + 1 生成下一字符的ASCII码 TmpStr = TmpStr & Space(1) & Chr(StrAsc) Next I CreateStr = TmpStr End Function, “输出图形”按钮的Cl
11、ick事件过程 Private Sub Command1_Click() Dim N As Integer, I As Integer 指定图形的行数 N = Val(InputBox(“图形的行数“, “请输入“, “5“) Cls Print For I = 1 To N Print Tab(2 * I); 输出左半部分 Print CreateStr(2 * N - 2 * I + 1); Print Spc(4); 左右两部分的间隔 Print CreateStr(2 * I - 1); 输出右半部分 Print Next I End Sub,7.2 Sub过程,当需要自定义过程返回一
12、个值时,使用Function过程很容易实现。 但在实际应用中,可能希望过程不需要返回值,例如,使用过程打印一个图形;或需要过程返回多个值,例如,利用过程对一批数据进行排序,在这些情况下就需要使用Sub过程。,7.2.1 Sub过程的定义,1. Sub过程的格式 Private|PublicStatic Sub () Exit Sub End Sub 2. 说明 (1) Exit Sub用于退出Sub过程。 (2) 不具有值的意义,在Sub过程中不能给赋值,也不能给定义类型。 (3) Sub过程通过中的参数返回值。 (4) Sub过程的建立方法与Function过程的建立方法相同。,【例7-7】
13、编写计算n!的Sub过程。 分析: 参数表中应有一个参数n,还应有另一个参数F用来返回阶乘值。 Sub Fact(N As Integer, F As Long) Dim I As Integer F = 1 For I = 1 To N F = F * I Next I End Sub,【例7-8】编写Sub过程,打印以下图形。 分析: 打印该图形不需要返回值,因此无需引入参数。,* * * * *,Sub a() For i = 1 To 6 Print Tab(7 - i); For j = 1 To 2 * i - 1 Print “*“; Next j Print Next i En
14、d Sub,【例7-9】编写Sub过程,求三个数中的最大数和最小数。 分析: 首先要设置三个参数,如x、y、z,用于接收三个原始数据,另外引入两个参数max和min,用于返回最大和最小数。 Sub s(x, y, z, max, min) max = x min = x If y max Then max = y If y max Then max = z If z min Then min = z End Sub,7.2.2 Sub过程的调用,说明: (1) : 要调用的Sub过程名。 (2) : 可以是常量、变量或表达式,各参数之间用逗号分隔。如果是数组参数,则要在数组名之后跟一对空括号。
15、 (3) 用Call语句调用一个Sub过程时,如果过程本身没有参数,则省略和括号。 (4) 格式二省略了Call关键字,同时两边也不能带括号。,格式一: Call () 格式二: ,【例7-10】将求组合数一题改成用Sub过程实现 Sub Fact(N As Integer, F As Long) Dim I As Integer F = 1 For I = 1 To N F = F * I Next I End Sub Private Sub Command1_Click() Dim M As Integer, N As Integer Dim f1 As Long, f2 As Long,
16、 f3 As Long M = Val(Text1.Text) : N = Val(Text2.Text) Call Fact(M, f1):Call Fact(N, f2):Call Fact(M - N, f3) Text3.Text = Trim(Str(f1 / (f2 * f3) End Sub,【例7-11】编写一个Sub过程,计算K个数的和,即1+2+K,并通过命令按钮的单击事件调用该过程计算S=1+(1+2)+(1+2+3)+ +(1+2+N)。 分析: 编写一个Sub过程计算1+2+K, 设参数K、S,参数S用于返回该和值。 Sub A1(K As Integer, S As
17、 Integer) S = 0 For J = 1 To K S = S + J Next J End Sub,Private Sub Command1_Click() Dim N As Integer, S1 As Integer, I As Integer N = Val(Text1.Text) For I = 1 To N 调用过程A1求1+2+I,和值返回到S1中 Call A1(I, S1) Sum = Sum + S1 Next I Text2.Text = Sum End Sub,7.3 参数的传递,参数传递是指调用过程与被调用过程之间的一种数据通讯方法。 数据的传递方式可以是单
18、向的,也可以是双向的。分别称为按值传递和按地址传递。 数据传递是通过形参和实参进行传递的。,7.3.1 形参和实参,形参: 出现在Sub或Function语句中。 实参: 出现在调用程序中。 例如,定义如下一个过程: Sub SubTest(n As Integer,Sum As Single) End Sub 调用语句: Call SubTest( a , s ),形参,实参,说明: 一般情况下,形参表与实参表中对应参数个数、类型、位置顺序必须一一对应(除非使用关键字Optional或ParamArray对形参进行了约束) 形参表中的参数可以是: 除固定长度字符串之外的合法 变量名、数组名(
19、) 实参表中的参数可以是: 常量、变量、表达式、数组名() 形参与实参的结合有两种方式: 按值传递和按地址传递。,1. 按值传递 实参把其值传递给形参而不传递实参的地址。 数据的传递是单向的。 (1) 当实参为常量或表达式时,数据传递总是单向的。 例如: Call SubTest(10, 1+2) Sub SubTest( n As Integer,Sum As Single),7.3.2 按值传递和按地址传递,(2) 实参是变量时,要实现按值传递需要在形参之前通过关键字ByVal来实现。 例如: Sub SS(ByVal X, ByVal Y, ByVal Z) X = X + 1: Y =
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 过程 教学课件PPT 教学 课件 PPT
链接地址:https://www.31doc.com/p-3843651.html