PowerPoint Template

Size: px

Start display at page:

Download "PowerPoint Template"

烈卞殷
5 years ago
Views:

2 概述 Sub 过程 Function 过程参数传递 P1 P2 P3 P4 变量的作用域与生命期 P5 递归过程 P6

3 VB 程序的逻辑结构过程的分类

4 工程 1 窗体模块 FrmGcd 窗体界面 FrmGcd 窗体代码标准模块 Module1 代码

5 说明语句工程 1 事件过程窗体模块 FrmGcd 窗体界面 FrmGcd 窗体代码通用过程标准模块 Module1 代码

6 过程事件过程通用过程窗体事件过程控件事件过程 Sub 过程 Function 过程 Property 过程 Event 过程 Sub 过程运行结束后没有返回值 Function 过程运行结束后会返回一个值

7 事件过程通用过程 Sub 过程的创建 Sub 过程的调用 Sub Main 过程

8 Sub 过程 : 以关键字 Sub 开头 End Sub 结束在 Sub 与 End Sub 之间是实现某些功能的过程代码, 称为过程体 VB 有两种 Sub 过程 : 事件过程和通用过程

9 事件过程 : 为窗体或窗体上的控件对象编写的用来响应用户或系统引发的各种事件的代码构成的过程当指定事件发生时, 对应事件过程即会被触发执行事件过程可分为 : 窗体事件过程和控件事件过程

10 窗体事件过程的一般形式如下 : Private Sub Form_ 事件名 ([ 形参表 ]) [ 局部变量和常量的声明 ] 语句块 [Exit Sub] 语句块 End Sub 窗体事件过程作用域固定为 Private, 即模块级的参数由系统确定, 编程者不得修改窗体事件过程名固定为 Form

11 常见的窗体事件过程 : 举例 Initialize( 初始化 ) 事件窗体被配置时触发 Load( 加载 ) 事件把窗体从磁盘或磁盘缓冲区装入内存时触发 Activate( 激活 ) 事件窗体被激活时触发 GotFocus( 得到焦点 ) 事件窗体成为焦点时触发窗体上无可获得焦点的控件时发生窗体的 GotFocus 事件窗体上有可获得焦点的控件时发生控件的 GotFocus 事件

12 Initialize 和 Load 事件过程中通常可放置一些命令来初始化应用程序, 如定义一些常量或变量设置窗体或控件的某些属性的初值等举例由于 Initialize 和 Load 事件发生在窗体被显示之前, 因此这两个事件过程不能包含有与显示相关的代码, 否则系统将因无法执行这些语句而发生运行错误与显示相关的初始化语句可放在窗体的 Activate 事件过程中窗体切换时, 只会发生 Activate 事件, 因此窗体加载后, 只要不被卸载就不会再执行 Initialize Load 事件, 但 Activate 事件会多次发生举例

13 控件事件过程的一般形式如下 : Private Sub 控件名 _ 事件名 ([ 形参表 ]) [ 局部变量和常量的声明 ] 语句块 [Exit Sub] 语句块 End Sub 控件事件过程作用域固定为 Private, 即模块级的参数由系统确定, 编程者不得修改控件的事件过程名称必须使用控件实际名称

14 通用过程 : 由程序设计者自定义的完成某一特定功能的独立程序段为什么要定义通用过程? 完成一定功能的某段代码在应用程序中频繁出现, 仅仅是每次处理的数据不同而已, 便可将该功能独立出来用一个通用过程来实现, 在需要用到该功能的地方, 用一行语句调用该通用过程便可实现相应功能应用程序中有比较复杂的算法, 若将其独立出来用通用过程实现便可增强程序的可读性 ;

15 1. 准备食材 1. 准备主材 ( 排骨 500 克, 杏鲍菇 250 克 ) 2. 准备辅材 ( 油盐糖老抽葱姜八角花椒香叶桂皮各适量 ) 1. 准备主材 ( 排骨 500 克, 杏鲍菇 250 克 ) 2. 准备辅材 ( 油盐糖老抽葱姜八角花椒香叶桂皮各适量 ) 1. 将排骨用水浸泡半个小时以上, 中间换几次水, 以泡去血水清洗食材将排骨用水浸泡半个小时以上, 中间换几次水, 以泡去血水 2. 将洗净泡好的排骨凉水入锅加姜片煮出血沫至肉 4. 将洗净泡好的排骨凉水入锅加姜片煮出血沫至肉色变白捞出色变白捞出 5. 将捞出的排骨洗净吸净水份 3. 将捞出的排骨洗净吸净水份 6. 锅中放适量油, 放入排骨煎制 7. 煎至两面变金黄 1. 锅中放适量油, 放入排骨煎制 8. 将煎好的排骨拔至锅边利用锅中底油加入葱姜八角花椒香叶桂 2. 煎至两面变金黄皮炒香烧制排骨加入切成滚刀块的杏胞菇翻炒均匀花椒香叶桂皮炒香 10. 加入适量水红烧酱油 4. 加入切成滚刀块的杏胞菇翻炒均匀 11. 大火烧开后, 尝一下味道 5. 加入适量水红烧酱油, 根据情况加入适量盐, 少许糖 12. 转中小火慢炖, 13. 烧至肉酥软汤汁浓出锅少许糖 3. 将煎好的排骨拔至锅边利用锅中底油加入葱姜八角 6. 大火烧开后, 尝一下味道, 根据情况加入适量盐, 7. 转中小火慢炖, 8. 烧至肉酥软汤汁浓出锅

16 通用 Sub 过程的一般形式如下 : [Private Public] [Static] Sub 过程名 ([ 形参表 ]) [ 局部变量和常量的声明 ] 语句块 [Exit Sub] 语句块 End Sub Private: 私有过程只能被同一模块中其他过程调用 Public: 公有过程可被应用程序中任一过程调用, 缺省作用域为公有 Static 声明了过程内部的局部变量全部为静态变量 Exit Sub 语句提前结束过程, 返回执行该过程调用语句的下一条语句 Exit Sub 语句通常与 If 语句一起使用 End Sub 是过程结束的标识, 必须和 Sub 成对出现过程运行至此会返回到主调程序中执行调用该过程语句的下一条语句通用 Sub 过程名称由编程者设定过程名的命名规则与变量名相同形式参数, 它可以是变量或数组, 不能是常量或表达式多个参数间用逗号分隔若过程无形参, 过程名右边的小括号不可省略

Integer, 在一个 y Sub As 过程的 Integer) 过程体中绝对不允许出现其他 Print Dim "a="; Temp a; As "b="; Integer b Sub 过程的定义 End 语句 Sub Temp = x Private x = Sub y

17 正确的程序错误的程序 Private Sub Form_Click() Dim a a As As Integer, b b As As Integer a a = = InputBox(" 请输入变量 a 的值 ") b VB b = = InputBox(" 应用程序内部的所有请输入变量 Sub b 过程都必须是独立的值 ") Print 定义的 "a=";, 不能嵌套定义 a; "b="; b Sub 过程与过程之间 Private 只有调用与被调用的关系 Call Exchange(a, Sub Exchange(x b) As, Integer, 在一个 y Sub As 过程的 Integer) 过程体中绝对不允许出现其他 Print Dim "a="; Temp a; As "b="; Integer b Sub 过程的定义 End 语句 Sub Temp = x Private x = Sub y Exchange(x As Integer, y As Integer) 例 Dim y = 7.1 Temp 定义一个名为 As Integer Exchange 的通用过程实 End 现交换两个变量的值 Temp Sub = x Print x = y "a="; a; "b="; b End y Sub = Temp End Sub

18 事件过程的代码框架尽量由 VB 集成环境自动生成 : 双击窗体或某控件, 可在代码编辑器窗口中自动生成窗体或控件的默认事件过程框架 ; 若要创建窗体或控件的非默认事件过程框架, 可先打开代码编辑器窗口, 在代码编辑区上方过程的对象下拉列表中选择一个窗体或控件对象, 右边的过程下拉列表中即会列出该对象所有可响应的事件, 在其中选择特定的事件后即可在代码编辑区中生成相应的事件过程框架

19 通用过程的作用域名称和参数完全由编程者设定, 因此通常需要在代码编辑区的空白处通过手动输入通用过程的代码通用过程的代码框架还可通过菜单命令来自动生成, 操作步骤如下 : 1) 打开代码编辑器, 执行工具菜单中的添加过程命令 2) 在名称后的文本框中输入通用过程的名称 ; 在类型选项区中选择子程序 ; 在范围选项区中选择作用域

20 事件过程的调用执行 : 只要针对某个控件的某个事件发生了, 系统就会调用执行相应的事件过程事件过程也可以通过代码来调用执行通用过程完全是由程序设计者定义的, 只能通过代码来调用执行它们 Sub 过程有两种调用方法 : 用 Call 语句调用通用 Sub 过程把过程名当做语句使用

21 一般形式为 : Call 过程名 [( 实参表 )] Private 说明 : Sub Test(a As Integer,b As String) (1) 过程名右边小括号内的参数列表是实在参数 End ( 简称为 Sub 实参 ) 列表实参可以是变量常量或表达式 Private (2) 实参的类型个数和顺序应与被调用过程的 Sub Form_Click() 形式参数完全匹配 Dim x As Integer,y, 但二者的名称可以相同可以 As String 不同若有多个实参 Call Test(x, y), 各参数间要用逗号分隔 End (3) Sub 如果被调用过程是一个无参过程, 则过程调用语句中过程名右边就不要加括号

22 一般形式为 : 过程名 [ 实参表 ] 说明 : 这种调用形式没有使用关键字 Call, 实参表外面就不要加括号, 但实参表和过程名间必须用空格做间隔

23 运行程序主程序执行到过程调用语句时, 会自动转到被调子过程中去执行子过程运行到 End Sub 语句后会重新回到主程序中, 执行调用语句的下条语句 Private Sub Form_Click() Dim a As Integer, b As Integer Private Sub Exchange(x As Integer, y As Integer) Dim Temp As Integer a = InputBox(" 请输入变量 a 的值 ") 2 3 Temp = x 1 b = InputBox(" 请输入变量 b 的值 ") x = y Print "a="; a; "b="; b y = Temp Call Exchange(a, b) End Sub 5 End Su b Print "a="; a; "b="; b 4 主调过程被调过程

24 调用其他窗体模块中的公有过程 Call < 窗体名 >.< 过程名 >[(< 实参表 >)] 调用其他标准模块中的公有过程 Call [< 标准模块名 >.]< 过程名 >[(< 实参表 >)] 说明 : 只有公有 (Public) 过程才能被跨模块调用调用窗体模块中的公有过程必须加模块名调用标准模块中的公有过程若公有过程的名称在程序中是唯一的, 则可以直接调用, 不加模块名若在两个或两个以上的标准模块中定义了相同名称的公有过程, 则必须指明该过程来自于哪个标准模块举例

25 应用程序总是默认从一个窗体开始启动, 该窗体为 VB 集成环境下创建一个新的工程时系统自动创建的窗体 Form1 设置其他窗体为启动窗体的步骤 : 工程菜单工程属性对话框通用面板启动对象设置项举例

26 一个 VB 应用程序除了可以从窗体开始启动, 还可以设置为从一个过程开始启动, 但该过程必须是在标准模块中定义的一个名称为 Main 的通用 Sub 过程设置程序启动过程的步骤如下 : (1) 添加标准模块 (2) 在标准模块中创建 Main 过程 (3) 设置 Main 过程为启动过程

27 Function 过程的创建 Function 过程的调用

28 VB 内部函数就是系统预先定义好的 Function 过程程序设计者也可以根据程序的功能需要自己定义具有返回值的 Function 过程由程序设计者定义的 Function 过程称为自定义函数, 或简称为函数

29 自定义 Function 过程的一般形式如下 : [Private Public] [Static] Function 函数名 ([ 形参表 ])[As 数据类型 ] 提前结束 Function 过程, 返回该函数调用语句处 [ 局部变量和常量的声明 ] 语句块 [Exit Function] 语句块 [ 函数名 = 返回值 ] End Function Function 过程的代码框架是以 Function 开头,End Function 结束的 Function 过程的作用域函数名的命名规则以及形参表的定义都与通用 Sub 过程相同 As 数据类型声明的是函数返回值的数据类型函数的返回值缺省为变体 (Variant) 型将函数的返回值赋给与函数同名的变量, 这样函数运行结束后就能产生一个返回值

30 例 6-3: 定义 Function 过程 Prime 判断一个数是否为素数 Private Function Prime(n As Integer) As Boolean Dim i As Integer Prime = False For i = 2 To Sqr(n) If n Mod i = 0 Then Exit For Function Next i If i > Sqr(n) Then Prime Prime = True = True End If End Function 可省略, 因 Prime 的初始值就是 False 函数名 = 表达式, 定义返回值

31 调用 Function 过程的形式为 : 函数名 [( 实参表 )] 说明 : (1) 函数名右边小括号内的参数列表是实在参数列表实在参数可以是变量常量或表达式若有多个实在参数, 各参数之间要用逗号分隔 (2) 实在参数的个数类型和顺序应与被调用 Function 函数的形式参数完全匹配 (3) 如果被调用函数没有参数, 则函数调用语句中函数名右边可以有括号也可以无括号

32 Private 注意 : Sub 由于 Command1_Click() Function 过程有返回值, 所以函数调用在程序中通常作为一个表达式来使用 Dim x As Integer,p As Boolean, 不能将其单独写成一条语句可将函数调 x = Val(Text1.Text) 用放在一个赋值语句的等号右边 p = Prime(x), 也可将其作为分支语句的判断条件或 If Prime(x) p Then Print 语句的输出对象等 Text2.Text = x & 是素数 Else Text2.Text=x & 不是素数猜想 : 任意一个不小于 6 的偶数都可以表示为两个 End If 素数之和 End Sub 运行程序例 6-4: 使用例 6-3 中的 Prime 函数验证二重哥德巴赫

33 Private Sub Command1_Click() Private Sub Command1_Click() Dim x As Integer, i As Integer x = Val(Text1.Text) Dim x As Integer,result As Boolean For i x = = 3 To Val(Text1.Text) x\2 Step 2 ' 从 3 开始考察 If Prime(i) And - i) Then result = Prime(x) Text2.Text = " 是素数 " & CStr(i) & " 和 " _ If Prime(x) result & Then CStr(x - i) & " 的和 " Exit For Text2.Text ' 一旦找到就不用再往下考察了 = x & 是素数 End If Else Next i If i > x\2 Then Text2.Text=x & 不是素数 Text2.Text End If = " 歌德巴赫猜想不成立!" End If End Sub End Sub

例 6-5: 编写一个把十进制数转换成任意 K 进制数的通用程序 Private Sub Text1_Change() Label4 = Text1 & " 进制数 " End Sub 运行程序 Private Sub Command1_Click() Dim num As Integer Dim k As Integer num = Val(Text2) k = Val(Text1)

34 例 6-5: 编写一个把十进制数转换成任意 K 进制数的通用程序 Private Sub Text1_Change() Label4 = Text1 & " 进制数 " End Sub 运行程序 Private Sub Command1_Click() Dim num As Integer Dim k As Integer num = Val(Text2) k = Val(Text1) Text3 = Trans(num, k) End Sub Private Function Trans(n As Integer, k As Integer) As String Dim r As Integer Do Until n = 0 r = n Mod k Select Case r Case 0 To 9 Trans = CStr(r) & Trans Case 10 To 15 Trans = Chr(r + 55) & Trans End Select n = n \ k Loop End Function

35 Basic 语言允许用 Sub 过程的调用语句形式调用一个 Function 过程下面两种调用语句在语法上是正确的 : Call 函数名 [( 实参表 )] 函数名 [ 实参表 ] 注意 : 采用这两种方法调用 Function 过程等于就放弃了函数的返回值, 因此实际应用程序中一般不会使用跨模块调用 Function 过程的规则与跨模块调用 Sub 过程的规则相同

36 形参与实参按值传递参数按地址传递参数数组参数对象参数

37 参数的主要作用是实现主调过程与被调过程间的数据传递形式参数, 简称形参, 指在 Sub 过程或 Function 过程的定义语句中过程名后括号内定义的参数形参可以是除定长字符串之外的任意类型的变量或数组实际参数, 简称实参, 指在过程调用语句中过程名或函数名后括号内提供的参数实参可以是变量数组常数或表达式

38 形参与实参间的关系过程调用发生时, 实参按位置向对应的形参传递数据, 因此实参才是子过程真正要处理的数据对象形参的主要作用是接收主调程序传递给子过程的数据在过程被调用之前, 形参只是一个虚拟的变量, 直到程序转到被调过程中执行后, 系统才会为形参分配内存, 同时将实参的值或地址赋予形参

39 形参的一般形式为 : [Optional][ByVal ByRef] 变量名 [()] [As 数据类型 ] (1) 形参变量名必须符合 VB 变量命名规则若变量名后有小括号表示该形参是数组, 数组名后括号内不要有维界声明 (2) As 数据类型用于声明形参的数据类型, 缺省则表明该形参是变体型 (3) 若形参前有关键字 ByVal 声明, 则表明该过程的参数传递方式为按值传递若形参前有 ByRef 声明或缺省这一项关键字, 则表明该过程的参数传递方式为引用传递 ( 按地址传递 ) (4) 若形参前有关键字 Optional 声明表示该参数为可选参数, 缺省前缀的参数为必选参数可选参数必须放在所有必选参数的后面

40 过程调用语句中 : 若实参为变量或数组, 其类型个数和顺序应与被调用过程的形参完全匹配若实参为常量或表达式, 则允许实参的数据类型与形参不一致, 系统会自动进行数据类型转换, 并将转换之后的数值传递给形参

41 举例 : 假设有通用 Sub 过程 Example1, 过程的定义如下 : Private Sub Example1(a As Integer, b As String, c() As Single) End Sub 若要在窗体单击事件过程中调用该通用过程, 可以使用下面的语句 : Private Sub Form_Click() Dim x As Integer, y As String Dim arr(5, 5) As Single x = 5: y = "hello" Call Example1(x, y, arr) End Sub

42 举例 : 假设有通用 Sub 过程 Example2, 过程的定义如下 : Private Sub Example2(d As Integer) End Sub 若要在窗体单击事件过程中调用该通用过程, 下面的调用语句就会报参数类型不符的错误 Private Sub Form_Click() Dim x As Single,y As String x = 5.5 : y="hello" Call Example2(x) End Sub 将调用语句改成 Call Example2(5.5) 程序就可正常执行了 VB 语法规定在变量外加一对小括号可把变量转换成表达式因此这样的调用语句也是正确的 :Call Example2((x))

43 如果形参前用关键字 ByVal 声明, 表明参数的传递方式为按值传递所谓按值传递就是实参将其数值复制给形参由于实参与形参各有自己的内存存储空间, 因此实参将值传递给形参, 等于只是将自己的一个副本给了形参, 之后二者便再无关联如果在过程体中改变了形参的值, 改变的只是形参对应内存中存放的数据, 对实参的值不会产生任何影响

44 举例 : 请思考单击窗体后程序的输出结果是什么? Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Print " 交换前 :"; "a="; a; "b="; b Call Swap(a, b) Print " 交换后 :"; "a="; a; "b="; b End Sub Private Sub Swap(ByVal x As Integer, ByVal y As Integer) x = x + y y = x - y x = x - y End Sub 运行程序程序的运行结果为 : 交换前 :a=10 b=20 交换后 :a=10 b=20

45 例 6-7: 思考单击窗体后程序的输出结果是什么? Private Sub Form_Click() Dim x As Integer, y As Integer x = 20: y = 10 Call Test(y, x) Print " 主调过程中 :"; Print "x="; x; "y="; y End Sub Private Sub Test(ByVal x As Integer, ByVal y As Integer) x = x + 10 y = y - 20 Print " 子过程中 :"; Print "x="; x; "y="; y End Sub 运行程序程序的运行结果为 : 子过程中 :x=20 y=0 主调过程中 :x=20 y=10

46 例 6-8: 编写程序求 S=2!+4!+6!+ +(2n)! Private Sub Command1_Click() Dim i As Integer, n As Integer, s As Long n = Val(Text1) For i = 2 To 2 * n Step 2 s = s + Fact(i) Next i Text2 = CStr(s) End Sub Private Function Fact(ByVal k As Integer) As Long Dim i As Integer Fact = 1 Do Fact = Fact * k k = k - 1 Loop Until k = 1 End Function 这里形参必须定义为按值传递运行程序

47 如果形参前用关键字 ByRef 声明, 表明实参与形参间的参数传递方式为按地址传递定义过程时, 缺省的参数传递方式就是按地址传递所谓按地址传递就是过程调用发生时, 实参向形参传递的是它的内存地址形参根据该地址就可以找到实参在内存中的存放位置, 从而实现在子过程体中访问实参由于形参和实参可以看做使用的同一内存单元, 因此过程体中所有对形参的处理操作实质上都是针对相应实参的, 实参将跟随形参值的改变而改变

48 举例 : 请思考单击窗体后程序的输出结果是什么? Private Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Print " 交换前 :"; "a="; a; "b="; b Call Swap(a, b) Print " 交换后 :"; "a="; a; "b="; b End Sub Private Sub Swap(x As Integer, y As Integer) x = x + y y = x - y x = x - y End Sub 运行程序程序的运行结果为 : 交换前 :a=10 b=20 交换后 :a=20 b=10

49 例 6-9: 思考单击窗体后程序的输出结果是什么? Private Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 20 Call Test(y, x) Print " 主调过程中 :"; Print "x="; x; "y="; y End Sub Private Sub Test(ByRef x As Integer, ByRef y As Integer) x = x + 10 y = y - 20 Print " 子过程中 :"; Print "x="; x; "y="; y End Sub 运行程序程序的运行结果为 : 子过程中 :x=30 y=-10 主调过程中 :x=-10 y=30

50 给某个定义为按地址传递的形参赋值, 就是给该形参对应的实参赋值, 这一特征常被利用来将被调过程中的运行结果返回到主程序中如果某个自定义过程需要将多个运行结果返回主调过程中, 如果将该过程定义为 Function 过程仅能返回一个结果, 其余结果就可通过按地址传递的参数实现返回到主程序中

51 运行程序 Private Sub Command1_Click() Dim num As Integer, root As String For num = 1000 To 9999 If Square(num, root) Then List1.AddItem CStr(num) & "=" & root End If Next num End Sub Private Function Square(ByVal n As Integer, ren As String) As Boolean Dim st As String, i As Integer If Sqr(n) = Int(Sqr(n)) Then Square = True ren = Sqr(n) & "^2" Else Square = False End If End Function

52 注意 : 如果调用过程时提供的实参是常量或表达式, 则无论形参如何声明, 都是按照传值方式传递参数的思考单击窗体后程序的输出结果是什么? Private Sub Form_Click() Dim x As Integer, y As Integer x = 10: y = 20 Call Test((y),(x)) Print " 主调过程中 :"; Print "x="; x; "y="; y End Sub Private Sub Test(ByRef x As Integer, ByRef y As Integer) x = x + 10 y = y - 10 Print " 子过程中 :"; Print "x="; x; "y="; y End Sub 程序的运行结果为 : 子过程中 :x=30 y=0 主调过程中 :x=10 y=20

53 例 6-11: 思考单击窗体后程序的输出结果是什么 Private Sub Form_Click() 运行程序 Dim a As Integer, b As Integer a = 10: b = 20 Print a + b + Test(a, b) End Sub Private Function Test(x As Integer, y As Integer) As Integer x = x + 1 y = y + 1 Test = x + y End Function 当函数 Test 运行结束回到窗体单击事件过程中, 程序将在窗体上打印的和 64

54 同样的 Test 函数, 如果把 Form_Click 中的调用语句作如下修改 : Private Sub Form_Click() Dim a As Integer, b As Integer,c As Integer a = 10: b = 20 c = a + b + Test(a, b)*1! Print c End Sub 窗体上将打印的和 62 如果赋值语句中调用函数 Test 时有强制类型转换, 窗体上又将打印结果 64

55 数组也可作为过程的参数声明形参为数组的一般形式为 : 数组名 ()[As 数据类型 ] 说明 : (1) 数组名后的括号内不能有数组的维数和维界声明 (2) 数组只能按地址传递参数, 因此形参数组前不能用 ByVal 声明

56 注意 : 若形参为数组, 对应的实参也必须为数据类型相同的数组调用过程时, 实参只需要提供数组名即可, 数组名后不要有小括号当实参为动态数组时, 过程体中可用 ReDim 语句重定义形参数组若实参为定长数组, 则不能在过程体中用 Dim 语句重定义形参数组数组作形参可以被声明为定长字符串类型, 对应的实参也必须是定长字符串类型, 字符串的长度不必相同

57 例 6-12: 编写程序找出一个 5*5 两位随机整数数组中值最大的元素及其位置运行程序要求 : 定义名称为 Array_Ini 的通用 Sub 过程生成随机数数组, 再定义名称为 Max 的 Function 过程查找二维数组中值最大的元素及其位置分析 : 由于两个自定义过程中都需要对数组中的全部数据进行处理, 因此过程要传递的参数必须为数组说明 : 由于数组作参数传递的只是数组首元素的地址, 因此被调过程中如果想得到实参数组的维界可以使用 UBound 或 LBound 函数

58 例 6-13: 编写程序将给定的整数分解成若干个质因子相乘的形式运行程序要求 : 从文本框输入一个整数, 例如输入 28, 单击分解按钮, 在第二个文本框输出 28=2*2*7 定义名为 PrimeFactor 的通用 Sub 过程, 实现查找一个数的质因子分析 : 由于不同整数分解得到的质因子个数无法预知, 因此可以定义一个动态数组来存放某个数的所有质因子在 PrimeFactor 过程中, 可通过穷举法查找一个数的质因子, 每找到一个新的质因子就存放到动态数组中

59 例 6-14: 编写程序找出 25 个三位随机整数中所有升序数并输出到列表框中运行程序要求 : 随机生成 25 个三位整数, 以每行 5 个的格式输出到图片框中编写名为 Increase 的通用 Function 过程, 判断一个数是否是升序数如果随机数组中没有升序数, 要在列表框中输出没有升序数分析 : 由于自定义过程中只是对数组中的某个元素进行分析判断, 因此过程传递的参数就不能是整个数组而应当是数组中某个元素, 相应的形参也应该为一个变量

60 过程级变量模块级变量全局变量同名变量

61 作用域就是标明过程或变量在什么地方才有意义, 可以被多大区域范围内的程序访问 VB 中有三种作用域类型的变量 : 过程级变量 ( 局部变量 ) 模块级变量全局变量生命期是指变量从产生到消亡所经历的时间

62 过程级变量也称为局部变量, 是在过程内部用关键字 Dim 声明的变量过程级变量只在声明它的过程内部才有意义, 只能在该过程内部访问它, 不能被其他过程访问过程级变量可在过程中任何位置声明, 但只有在声明之后才能使用过程级变量只在过程内部有效, 它的生命期也是起于过程开始, 终于过程结束

63 例 6-16: 思考单击两次按钮 1, 再单击两次按钮 2, 程序的输出是什么 Private Sub Command1_Click() Dim a As Integer a = a + 1 Print a; End Sub Private Sub Command2_Click() Dim a As Integer a = a + 1 Print a; End Sub 运行程序程序的运行结果为 :

64 过程内部还可以用关键字 Static 声明一个变量, 称为静态变量静态变量的作用域和普通局部变量相同, 也是仅能被本过程内代码访问静态变量的生命期贯穿整个应用程序始终, 因此不论过程被调用多少次, 静态变量的值都是可以从前一次过程调用保持到下一次调用该过程的思考 : 若将例 6-16 两个过程中的变量 a 都声明为 Static, 用户操作不变, 程序的输出是什么?

65 例 6-17: 给例 6.2 程序添加一个验证登录密码的界面要求 : 在登录界面的文本框中输入登录密码后单击确定按钮, 若密码正确则程序转入 FrmMain 窗体, 若密码错误则弹出消息框要求用户再次输入, 密码输入次数达到三次就禁止使用该程序, 直接退出程序说明 : 由于用户每输入一次密码, 确定按钮对应的单击事件过程就会被触发执行一次要统计用户输入密码次数是否达到三次, 过程内部定义的统计输入次数的变量值就必须是连续的, 即使过程运行结束, 它的值也要被保留将该变量声明为一个静态变量正好可满足程序这个需求运行程序

66 模块级变量是在窗体模块或标准模块的通用部分用关键字 Private 或 Dim 声明的变量模块级变量在其所声明的模块内有效, 可以被模块内所有的过程访问, 但不能被其他模块中的过程访问模块级变量的作用域虽然被限制在模块内部, 但它们的生命期一直能延续到应用程序结束

67 例 6-18: 思考单击两次按钮 1, 再单击两次按钮 2, 程序的输出是什么运行程序 Dim a As Integer Private Sub Command1_Click() a = a + 1 Print a; End Sub Private Sub Command2_Click() a = a + 1 Print a; End Sub 程序的运行结果为 :

68 例 6-19: 思考单击按钮 1 后程序的输出是什么运行程序 Dim a As Integer Private Sub Command1_Click() Dim b As Integer, c As Integer a = 100: b = 10 c = Fun(a, b) Print a; b; c End Sub Private Function Fun(x As Integer, y As Integer) As Integer x = x + 10 y = y + 20 a = x + 30 Fun = x + y + a End Function 程序的运行结果为 :

69 全局变量是在窗体模块或标准模块的通用部分用关键字 Public 声明的变量全局变量在整个应用程序中都有效, 可以被应用程序中的任意过程访问, 因此全局变量的作用域是整个应用程序全局变量的生命期贯穿于应用程序始终

70 在窗体模块中声明的全局变量和在标准模块中声明的全局变量, 对它们的访问方式是不同的若要访问某个在其他窗体模块中定义的全局变量, 必须将全局变量所在的窗体模块名作为该变量的前缀若要访问某个在其他标准模块中定义的全局变量, 则直接引用该全局变量的名称就可以了举例 : 在窗体模块 Form2 中声明一个全局变量 a, 在标准模块 Module1 中声明一个全局变量 b, 在 Form1 中要打印全局变量 a 和 b 的值可以使用下面的语句 : Print Form2.a Print b

71 当变量的作用域不同时, 允许变量的名称相同 VB 规定, 当变量作用域不同而名称相同时, 在较小的作用域范围内优先访问局限性大的也就是作用域较小的变量

72 例 6-20: 思考单击按钮 1, 再单击按钮 2, 程序的输出是什么 Dim n As Integer Private Sub Command1_Click() Dim n As Integer n = n + 1 Print n; End Sub Private Sub Command2_Click() n = n + 10 Print n; End Sub 运行程序程序的运行结果为 : 1 10

74 如果一个过程的过程体中有直接或间接调用自身的语句, 这类过程就称为递归过程递归是推理和求解问题的一种重要方法, 很多问题采用递归结构来描述算法比非递归结构显得更加简洁易懂, 可读性更好

75 例 : 使用递归函数求 n! 分析 : 数学中求 n! 可表示为 : Private Function Fact(ByVal n As Integer) As Long Dim i As Integer Fact=1 For i=n 1, To 1 Step -1 当 n=0 或 n=1 时 n! = Fact = Fact * i Next i End Function n*(n-1)! 当 n>1 时若定义 Function 函数 Fact 用于求 n!, 则有 Fact(n) = n * Fact(n-1)

76 根据上述分析可编写出递归过程求解 n! 的函数过程如下 : Private Function Fact(ByVal n As Integer) As Long If n = 0 Or n = 1 Then Fact = 1 Else Fact = n * Fact(n - 1) End If End Function 注意避免错误调用 Fact(n)=n*Fact(n-1) 调用该递归过程求解一个自然数的阶乘的主调程序如下 : Private Sub Form_Click() Dim n As Integer n = InputBox(" 请输入一个自然数 ") Print n; "!="; Fact(n) End Sub

77 递归执行过程分析 ( 以求 3! 为例 ): Print Fact(3) 逐层返回 Fact(3) If n = 0 Or n = 1 Then Fact = 1 Else Fact = 3 * Fact(3-1) End If End Function Fact(2) If n = 0 Or n = 1 Then Fact = 1 Else Fact = 2 * Fact(2-1) End If End Function Fact(1) If n = 0 Or n = 1 Then Fact = 1 Else Fact = 1 * Fact(1-1) End If End Function 77 逐层调用

78 Private Sub CmdRun_Click() Dim n As Integer n = 10 Print f1(n) End Sub Private Function f1(byval n As Integer) As Integer Static x As Integer If n > 6 Then f1 = f1(n - 2) + n Else f1 = n + x + 1 End If x = 2 * x + 1 Print f1, x End Function

79 例 6-21: 药理实验室买了一对小兔子, 小兔子一个月后成年具有生育能力, 之后每过一个月可以生出一对小兔子, 新生的兔子一个月后有了生育能力, 再过一个月后就可以再生出一对小兔子, 编写程序统计一年后药理实验室共有多少对兔子? 分析 : 根据兔子的生长生育规律发现兔子的数量刚好呈下面的数列规律递增 : 1,1,2,3,5,8,13,21,34, 该数列即为著名的 Fibonacci 数列, 该数列第 12 项的数值即为一年后兔子的个数若用 Fn 表示数列第 n 项, 则 Fibonacci 数列可以用如下表达式描述 : F n 1, n 1, 2 Fn 1 Fn 2, n 3

80 经过上述分析, 可以编写如下代码求解一年后新药实验室共有多少对兔子 Private Sub Form_Click() Dim month As Integer month = InputBox(" 请输入 ") Print month & " 个月后共有 " & Fib(month) & " 对兔子 " End Sub Private Function Fib(ByVal n As Integer) As Integer If n = 1 Or n = 2 Then Fib = 1 Else Fib = Fib(n - 2) + Fib(n - 1) End If End Function 运行程序

81 例 6-22: 将例 6.2 中求两自然数最大公约数的 gcd 过程改用递归函数实现运行程序 Public Function gcd(byval a As Integer, ByVal b As Integer) Dim remainder As Integer remainder = a Mod b If remainder = 0 Then gcd = b Else a = b b = remainder gcd = gcd(a, b) End If End Function

82 例 6-23: 用递归的方法重新定义 :6.5 中的 Trans 函数, 实现把十进制数 n 转换为 k 进制数运行程序 Private Function Trans(n As Integer, k As Integer) As String Dim r As Integer If n <> 0 Then r = n Mod k If r < 10 Then Trans = Trans (n \ k, k) & r Else Trans = Trans (n \ k, k) & Chr(55 + r) End If End If End Function

83 掌握通用 sub 过程的定义和调用 ; 掌握通用 function 过程的定义和调用 ; 掌握参数的传递 ( 传值传地址 ); 掌握变量的作用域 ( 过程级变量模块级变量全局变量同名变量 ); 掌握递归算法 ; 掌握本章例题中出现的所有经典算法 ;

chap07.key

chap07.key #include void two(); void three(); int main() printf("i'm in main.\n"); two(); return 0; void two() printf("i'm in two.\n"); three(); void three() printf("i'm in three.\n"); void, int 标识符逗号分隔,