数据库应用与VB程序设计 第7章 过程.pptxVIP

第七章 过程 VB应用程序是由模块组成的，模块由过程组成，使用过程是实现结构化程序设计思想的重要方法。几类常用的过程过程参数的传递和过程的嵌套。 变量的作用域和生存期 7.1 过程的类型 一、不返回值的过程事件过程（Event过程）子程序过程（Sub过程）二、返回值的过程函数过程（Function过程） 7.2 Sub 过程 子过程的定义 通用Sub过程的结构与事件过程的结构类似。其格式为： ?[Static] [Private] [Public] Sub过程名 [(参数表)] 语句序列 [Exit Sub] 语句序列 End Sub Private sub sub1 print ******End sub 7.2 Sub 过程 创建过程的方法窗体模块【通用】中创建标准模块.BAS文件中创建过程调用 Call调用，必须加（）,参数以逗号分隔不用Call， 不能加（）,参数以逗号分 7.2 Sub 过程 【例】计算矩形面积（用子过程实现） Sub jxArea(jlen, jwid) Dim Area Area = jlen * jwid MsgBox 矩形面积为: Area End Sub Private Sub Form_Load() Dim jlen, jwid l = Val(InputBox(请输入矩形长:)) d = Val(InputBox(请输入矩形宽:)) jxArea l, d -----Call jxArea(l, d )End SubStatic：静态的过程，表示过程中的局部变量在整个程序中只分配一次空间；没有Static的局部变量，每次调用过程，所有变量重新分配空间,试比较－－－－Sub sub1() i = i + 1 Print iEnd SubPrivate Sub Form_click() sub1 sub1 sub1End SubStatic Sub sub1() i = i + 1 Print iEnd SubPrivate Sub Form_click() sub1 sub1 sub1End Sub7.2 Sub 过程 使用说明 Sub和End Sub必须配套Exit Sub中途退出过程默认的过程是Public，在应用程序中随处可以调用不能嵌套定义过程，但是可以嵌套调用 7.4 Function 过程 VB允许用户按一定规则自行设计一个专用的函数，这就是函数过程（Function过程）。 Function过程与Sub过程主要区别仅在于Function过程必须返回一个值（通常出现在表达式中），而Sub过程却无此限制。 7.4 Function 过程 FUNCTION函数定义 [Static] [Private] [Public] Function 过程名 [(参数表)] [AS 类型] 语句序列 [Exit Function] 语句序列 [函数名]=表达式] End Sub注释： [函数名]=表达式]，表示函数返回的结果 7.4 Function 过程 FUNCTION函数调用直接调用 函数名 (实际参数表)用Call调用 Call 函数名 (实际参数表) 7.4 Function 过程 Function prime(n As Integer)For i = 2 To n - 1 If n Mod i = 0 Then Exit FunctionNextIf i = n Then prime = 1 Else prime = 0End FunctionPrivate Sub Form_Click()Dim a As Integera = Val(InputBox(n=, input))b = prime(a)If b = 1 Then Print 素数 Else Print 合数End Sub 7.4 Function 过程 【例】辗转相除求最大公约数思想：求X和Y的最大公约数，用X除以Y,若余数为0，则Y是最大公约数，否则，除数作为被除数，余数作为除数，直到余数为0，除数即是两数的最大公约数方法：(1)以大数X作为被除数，小数Y作为除数，相除后的余数位num;(2)如果num0,则X=Y,Y=NUM,继续相除得到余数num.如仍然有num0,则重复此过程，直到num=0.(3)最后num就是最大公约数。哥德巴赫猜想:任何一个大于6的偶数均可表示为两个素数之和。例如6=3+3,8=3+5,…,18=7+11。验证1000以内的偶数7.4 Function 过程 【例】辗转相除求最大公约数Function zdgys(ByVal x As Integer, ByVal y As Integer) As Integer Do While y