第6章过程

函数过程名
人生在勤、不索何获
6.1 函数过程的定义与调用
Private Sub Form_Click() '调用过程求面积 Dim a!, b!, c!, d!, e!, f!, g!, s1!, s2!, s3! a = InputBox("请输入a") b = InputBox("请输入b") c = InputBox("请输入c") d = InputBox("请输入d") e = InputBox("请输入e") f = InputBox("请输入f") g = InputBox("请输入g") s1 = area(a, b, c) ‘第一次调用函数 s2 = area(c, d, e) s3 = area(e, f, g) 实参a ,b ,c Print s1 + s2 + s3 8.10 © 2012 End Sub
b
© 2012 8.24
人生在勤、不索何获
Function和Su中定冠词” the “出现的个数的子过程和函数过程,并分别调用, 运行界面如图
如:输入”If you can't find the answers 8.25 © 2012 you
Function和Sub两种过程的区别 6.2 子过程的定义与调用 Function FuncThe(s$) '方法一，定义函数过程
人生在勤、不索何获
Function和Sub两种过程的区别 6.2 子过程的定义与调用
Sub ProcThe(s$, Count%) '方法二，定义sub过程 Dim i%, st$ 增加一个形参 Count = 0 : st = Trim(s) Count,保存个数 i = InStr(st, " the ") Do While i > 0 Count = Count + 1 st = Mid(st, i + 1) : i = InStr(st, " the ") Loop End Sub Private Sub Command2_Click() '调用子程序过程 Dim n% : Call ProcThe(Text1, n) : Text3 = n 8.27 © 2012 End Sub
© 2012 8.22
人生在勤、不索何获
8.1.1 Sub 子过程的定义与调用
注意：定义过程时不能嵌套定义,但可以调用另一个过程。
Private Sub a() Print "*" Call b End Sub Private Sub b() Print "***" End Sub Private Sub Command1_Click() Call a End Sub
… 统计奖学金
四科以上 © 2012 8.2
人生在勤、不索何获
为什么设计过程
• 使程序变得更简短而清晰 • 有利于程序维护 • 可以提高程序开发的效率 • 提高了代码的重用性
© 2012 8.3
过程的分类 VB中过程按是否由系统提供分为两种过程： 系统提供的： 内部函数： 例：print abs(-90) 事件过程： 例：private sub form_click() print abs(-90) End sub
形参:只能是变量或数组
例6.1
© 2012
8.12
人生在勤、不索何获
6.1 函数过程的定义与调用
3. 函数过程的调用 ： 函数过程名([实参])
如例6.1的三条调用函数area求面积:
s1 = area(a, b, c) 第1次调用过程 s2 = area(c, d, e) 实参 a b c ↓ ↓↓ s3 = area(e, f, g)
© 2012 8.5
人生在勤、不索何获
6.1 函数过程的定义与调用
1.引例:已知多边形的边和对角线的长 度,求多边形的面积
a
b c
S1
a
e g
S2
d
8.6
S3
f
© 2012
人生在勤、不索何获
6.1 函数过程的定义与调用
若三角形三个边的长度为x,y,z,则 三角形的面积公式:
area c ( c x )( c y )( c z )
End Function
说明: Public: 公有过程，被程序中的所有模块访问调用。 Private: 私有过程，只能被本模块的其它过程访问。 As 类型: 函数返回值的类型 Exit Function : 在函数过程中终止过程的运行。
形参声明形式: 形参名1 [As 类型],形参名2 [As 类型],…
© 2012 8.23
人生在勤、不索何获
06.9
下列叙述中正确的是（ ）。 A）一个Sub过程至少要有一个Exit Sub语句 B）一个Sub过程必须有一个End Sub语句 C）可以在Sub过程中定义一个Function过程， 但不能定义Sub过程 D）调用一个Function过程可以获得多个返回值
End Sub
注意:书上P150 倒数第2行,末尾的分号应该去掉
© 2012 8.18
人生在勤、不索何获
6.2 子过程的定义与调用
1. 引例 例6.4 编一个过程,对Label1控件进行移动,其 中通过参数Tag的值(1或-1)决定向右下角还是 左上角移动
© 2012
8.19
人生在勤、不索何获
6.2 子过程的定义与调用
人生在勤、不索何获
6.1 函数过程的定义与调用
例6.3 编一个函数过程,统计字符串中汉字个数
Private Sub Command1_Click() '调用 Dim C1! C1 = CountC(Text1)
Picture1.Print Text1; Tab(30); ":有 "; C1; "个汉字"
6.1 函数过程的定义与调用 例6.2 编一个程序求最大公约数的函数过程
人生在勤、不索何获
Function gcd(m%, n%) As Integer If m < n Then t = m: m = n: n = t Do While n <> 0 '求最大公约数 r = m Mod n '调用函数 m=n Private Sub Form_Click() Dim x%, y%, z% n=r x = 124: y = 24 Loop z = gcd(x, y) gcd = m Print "最大公约数"; z End Function 8.15 © 2012 End Sub
© 2012
例6.4
8.21
人生在勤、不索何获
8.1.1 Sub 子过程的定义与调用 6.2 子过程的定义与调用
注意：定义一个过程中，不能在该过程中又定义了另一个过 程，即定义过程时不能嵌套，否则出错。
Private Sub a() Print "*" Private Sub b() Print "***" End Sub End Sub Private Sub Command1_Click() Call a End Sub
人生在勤、不索何获
Function和Sub两种过程的区别 6.2 子过程的定义与调用
1.若程序有一个返回值,用函数过程比较直观,当过程有多 个返回值时,习惯用子过程 2.函数过程有返回值,过程名就有类型,同时在函数过程 体内必须对函数过程名赋值. 3.形参个数的确定: 不要将过程中使用过的变量均作为形 参 4. 形参只能是简单变量、数组名、自定义类型
1. 引例 Sub MyMove(Tag%) '定义过程MyMove，形参为Tag Label1.Left = Label1.Left + Tag * 200 Label1.Top = Label1.Top + Tag * 200 End Sub Private Sub Command1_Click() Dim k% If Rnd > 0.5 Then k = 1 Else k = -1 Call MyMove(k) '调用过程，k是实参
人生在勤、不索何获
第6章 过程
本章主要内容
过程、函数的定义和使用
函数和过程参数的传递
变量、过程的作用域
© 2012 8.1
人生在勤、不索何获
第6章 过程
过程是一个具有某种功能的独立 程序单位，供多次调用。
主模块
模块1 模块2 模块3
子模块2 成绩录入
学生成绩管理
成绩统计
成绩输出
子模块1
统计补考
单科统计
形参 x y z
© 2012 8.13
例6.2 编一个程序求最大公约数的函数过程
m n n<>0 r=m mod n m=n n=r 124 24 T →体 4 24 4 4 T →体 0 4 0 0 F →结束循环，公约数为m Function gcd(m%, n%) As Integer If m < n Then t = m: m = n: n = t Do While n <> 0 '求最大公约数 r = m Mod n m=n ： n=r Loop gcd = m End Function
人生在勤、不索何获
6.1 函数过程的定义与调用
例6.3 编一个函数过程,统计字符串中汉字个数
© 2012
8.16
人生在勤、不索何获
6.1 函数过程的定义与调用
例6.3 编一个函数过程,统计字符串中汉字个数