万博科技职业学院：《Visual Basic程序设计》第八章 过程一子程序和函数

Visual basic程序设计 第八章过程 子程序和函数 楼诗风

Visual Basic程序设计 第八章 过程 －子程序和函数 楼诗风

万博科技职业学院 Wanbo Inst Of Since Tech 主要内容 e>子程序(Sub过程) 函数( Function过程) 参数传递 程 过程的嵌套调用和递归调用 序 鼠标和键盘事件 计

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 主要内容 ➢子程序（Sub过程） ➢函数（Function过程） ➢参数传递 ➢过程的嵌套调用和递归调用 ➢鼠标和键盘事件

万博科技职业学院 Wanbo Of Since Tech 自定义子程序 [ Public Private Static]Sub<子程序名 [参数及其类型列表]) <程序代码 End sub 程 例如:交换两个变量内容的子程序: 序 Public Sub Swap(x, y) 计 dim t t=x x-y: y=t End sub

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 自定义子程序 [Public|Private|Static] Sub （ [参数及其类型列表] ） End Sub 例如：交换两个变量内容的子程序： Public Sub Swap (x,y) dim t t=x : x=y : y=t End Sub

万博科技职业学院 Wanbo Of Since Tech 自定义函数 [ Public Private Static] Function] =) End function 程 注意:函数与子程序的区别 序 1)函数必须有返回值,子程序没有 计 (2)如果不指明函数的类型(即其返回值的类型), 则其类型是变体型( Variant型) (3)函数用在表达式中,子程序不能

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 自定义函数 [Public|Private|Static] Function （[参数及其类型列表] ）[As ] (内含: =) End Function 注意：函数与子程序的区别 （1）函数必须有返回值，子程序没有。 （2）如果不指明函数的类型（即其返回值的类型）， 则其类型是变体型（Variant型） （3）函数用在表达式中，子程序不能

万博科技职业学院 Wanbo Inst Of Since Tech 子程序的调用 ◆格式: Cll(参数列表) 或者 参数列表 程 序 计

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 子程序的调用  格式： Call (参数列表) 或者 参数列表

万博科技职业学院 Wanbo Of Since Tech 子程序和函数的参数 ◆形参一形式参数,定义部分所使用的参数 实参一实在(实际)参数,调用时传递给 子程序或函数的参数。 例如:下面的x和y是形参a和b是实参。 程 定义子程序Swap: 调用子程序Swap: 序 Sub swap(x, y) 计 Dim t t=X: X=y: y=X Swap a,b交换 End sub

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 子程序和函数的参数  形参－形式参数，定义部分所使用的参数。  实参－实在（实际）参数，调用时传递给 子程序或函数的参数。 例如：下面的x和y是形参,a和b是实参。 定义子程序 Swap： Sub Swap (x,y) Dim t t = x : x = y : y = x End Sub 调用子程序 Swap： ….. Swap a , b '交换 …

万博科技职业学院 Wanbo Of Since Tech 参数的传递方式 ◆在子程序或函数的调用过程中,实参内容传递 给相应的形参可以有两种方式:传址和传值 传址( ByRef):将实参地址传给形参。 ◆传值(ByVa):将实参的值传给形参 区别: 程 序 ◆传址时,形参与实参是同一个内存区域,因而实参随 形参的改变而改变 计 ◆传值时,形参被单独分配内存并获得实参的值,因而 形参的改变并不改变实参的值

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 参数的传递方式  在子程序或函数的调用过程中，实参内容传递 给相应的形参可以有两种方式：传址和传值  传址(ByRef) ：将实参地址传给形参。  传值(ByVal) ：将实参的值传给形参。 区别：  传址时，形参与实参是同一个内存区域，因而实参随 形参的改变而改变。  传值时，形参被单独分配内存并获得实参的值，因而 形参的改变并不改变实参的值

万博科技职业学院 Wanbo Of Since Tech 传值和传址的区别 形参x←实参a:543 调用子程序Swap: Swap传址 Swap a,b交换 形参y←实参b:21 程 序 定义子程序Swap: 543 a:543 Sub Swap(x, y) 计 Dim t Swap传值 t=X:X-y: y=X End Sub y 21 b:21 」

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 传值和传址的区别 形参 x ← 实参a: 形参 y ← 实参 b: 543 21 定义子程序 Swap： Sub Swap (x,y) Dim t t = x : x = y : y = x End Sub 调用子程序 Swap： ….. Swap a , b '交换 ….. Swap 传址 ↕ x: ← a: y: ← b: 543 21 ↕ Swap 传值 543 21

万博科技职业学院 Wanbo Inst Of Since Tech 实例: 求直角三角形的斜边 Private Sub root(By val a, By Val b, c) c=Sqr(a 2+ b2) End sub a 程 序 调用: 计 Root 3. 4.Z Print z 打印结果5

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 实例： ‘求直角三角形的斜边 Private Sub Root(ByVal a, ByVal b, c) c = Sqr(a ^ 2 + b ^ 2) End Sub ‘调用： …… Root 3 , 4, z Print z ‘打印结果 5 c b a

万博科技职业学院 Wanbo Inst Of Since Tech 自定义函数的实例 用函数求直角三角形的斜边 Public Function Hyp(x!,y!)As Single Hyp= Sqr(x 2+y 2) End function 程 调用: 序 计 Print Hyp(3,4)打印结果5

 ■ Visual BASIC 程 序 设 计 万 博 科 技 职 业 学 院 Wanbo Inst. Of Since & Tech. 自定义函数的实例 ‘用函数求直角三角形的斜边 Public Function Hyp(x ！, y ！) As Single Hyp = Sqr(x ^ 2 + y ^ 2) End Function ‘调用： …… Print Hyp (3,4) ‘打印结果 5