VB程序设计 第六章 过程.docx

1、VB程序设计 第六章 过程第六章 过程主要内容 函数过程的定义与调用1. 子过程的定义与调用 参数传递 变量、过程的作用域 递归 常用算法（三）2. 重点和难点6.1 函数过程的定义与调用除了系统提供的内部函数、过程和事件过程外，用户还可自定义过程。在VB6.0中由用户定义（称自定义）的过程可分为以下几种：以“Sub”保留字开始的称为子过程；以“Function”保留字开始的称为函数过程以“Property”保留字开始的称为属性过程；以“Event”保留字开始的称为事件过程。1. 引例例6.1已知多边形的各条边的长度，要计算多边形的面积。 计算多边形面积，可将多边形分解成若干个三角形。 计算三

2、角形面积的公式如下：其中：x,y,z为三条边，c为三边和的一半。求三角形面积就可以编写一个函数过程，以后不论是求是么三角形，只要给出三边，就可象使用内部函数一样，使用这个自定义的求三角形面积的函数了。例6.1在myvbvb6ex6_1lbc6_1.vbp定义求三角形面积的函数过程Public Function area(x!, y!, z!) As Single Dim c! c = 1 / 2 * (x + y + z) area = Sqr(c * (c - x) * (c - y) * (c - z)End FunctionPrivate Sub form_click() Dim a!,

3、 b!, c!, s! Do Do a = val(InputBox(prompt:=输入一个边, Title:=输入第一条边长, xpos:=2000, _ ypos:=4000, Default:=3) Loop Until a 0 预防按取消按钮和按转换后小于等于0的字符串 Do b = val(InputBox(prompt:=输入一个边, Title:=输入第二条边长, xpos:=2000, _ ypos:=4000, Default:=4) Loop Until Val(b) 0 对数值变量用val函数系统也不报错 Do c = val(InputBox(prompt:=输入一个

4、边, Title:=输入第三条边长, xpos:=2000, _ ypos:=4000, Default:=5) Loop Until Val(c) 0 Loop Until a + b c And a + c b And b + c a s = area(a, b, c) Cls Print 第一条边长=; a: Print 第二条边长=; b: Print 第三条边长=; c Print 面积=; sEnd SubPrivate Sub Form_Load()Form2.Caption = 请单击窗体End Sub2函数过程的定义 自定义函数过程有两种方法：（1）用“工具”菜单下的“添加过

5、程”命令定义,生成一个函数的框架。操作如下：在窗体或模块的代码窗口选择“工具”菜单下的“添加过程”命令，显示“添加过程”对话框；在“名称”框中输入函数过程名（过程名中不允许有空格）；在“类型”选项组中选取“函数”定义函数过程；在“范围”选项组中选取“公有的”定义一个公共级全局过程；选取“私有的”定义一个标准模块级/窗体级的局部过程。然后在过程模板中，就可以编写程序代码了。 (2)利用代码窗口直接定义 在窗体或标准模块的代码窗口把插入点放在所有过程之外，直接输入函数过程名。 函数过程形式:StaticPublicPrivateFunction 函数过程名(参数列表) As 类型局部变量或常数定义

6、语句块函数名 = 返回值 函数过程体Exit Function语句块函数名 = 返回值End Function其中：函数过程名的命名规则与变量名命名规则相同，但不要与VB中的关键字相同，也不要与Windows API函数重名，还不能与同一级别的变量名重名。AS 类型：表示函数返回值的类型，若缺省，则返回变体类型值。参数列表形式: ByVal变量名()As 类型 ，ByVal变量名()As 类型参数也称为形参或哑元,只能是变量或数组名（数组名后则要加“（）”），在定义时仅表示参数的个数、类型，但无值。ByVal表示该过程被调用时，参数是按值传递的，否则是按引用（地址）传递的。函数过程无参数时，函

7、数过程名后的括号不能省略。函数名 = 返回值 在函数体内至少对函数名赋值一次。Exit Function ：表示退出函数过程（End Function 的后继语句）。Static 表示为静态的，Public表示为全局的，Private表示为局部的。例6.2要求定义MyReplace（S,OldS,NewS）函数过程，其作用同标准函数Replace一样。当调用MyReplace(abcdefgabcdecd,cd,3) 时函数的返回值为ab3efgab3e3。例6.2在myvbvb6ex6_2lbc6_2.vbp Option Compare Text 比较不区分大小写字母，默认区分。本函数也受

8、其影响Public Function MyReplace(s$, OldS$, NewS$) As String Dim i%, lenOldS% lenOldS = Len(OldS) 取OldS字符子串长度 i = InStr(s, OldS) 在字符串中找有否OldS字符子串 Do While i 0 找到用NewS 字符子串替换OldS字符子串 s = Left(s, i - 1) + NewS + Mid(s, i + lenOldS) i = InStr(s, OldS) 找下一个OldS字符子串 Loop MyReplace = s 替换后的字符串赋值给函数过程名End Func

9、tion Private Sub Form_Click() Dim Original$, Part$, Chang$ Cls Original = InputBox(prompt:=输入原字符串, Default:=abcdefgabcdecd, xpos:=2000, ypos:=4000, _ Title:=第一个参数值) Part = InputBox(prompt:=输入被替换字符串, Default:=cd, xpos:=2000, ypos:=4000, _ Title:=第二个参数值) Chang = InputBox(prompt:=输入替换字符串, Default:=3, x

10、pos:=2000, ypos:=4000, _ Title:=第三个参数值) 说明：调用了函数就使得参数的原来值发生了改变，因此必须注意保存才能正确显示。 当然用下面的方法不存在这个问题。 Print 第一个参数值= ; Original Print 第二个参数值= ; Part Print 第三个参数值= ; Chang Print 替换结果值= ; MyReplace(Original, Part, Chang)End Sub 测试数据：假定S为“abcdefgabcdecd”,Oolds为 “cd”,News为 3(“abcdefgabcdecd”,“cd”,“3”) 第1 次 I=3

11、 结果 “ab3efgabcdecd” (“ab3efgabcdecd”,“cd”,“3”) 第2 次 I=9 结果 “ab3efgab3ecd” (“ab3efgab3ecd”,“cd”,“3”) 第3 次 I=11 结果 ab3efgab3e33. 函数过程的调用 函数过程的调用同标准函数调用，参与表达式运算，形式如下： 函数过程名(参数列表) 注意四点：参数列表，称为实参或实元，它必须与形参个数相同，位置与类型一一对应。可以是同类型的常量、变量、表达式，数组元素。调用时把实参的值传递给形参称为参数传递。其中值传递（形参前有ByVal说明）时实参的值不能随形参值的变化而变化，而引用传递（地

12、址传递）的实参的值随形参值一起改变。当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。函数过程不能作为单独的语句加以调用，必须参与表达式运算。下面的程序段时对函数MyReplace的调用:Private Sub Command1_Click() Text1 = MyReplace(Text1, cd, 3) ST= “Visual Basic 程序设计教程5.0版” Print MyReplace(ST, 5.0, 6.0)End Sub执行流程示意：Text1=MyReplace(Text1,”cd”,”3”)Public Function MyReplaec(S$,OldS

13、$,NewS$) As String6.2 子过程的定义与调用 （1）不是为了获得某个函数值，而是为了某种功能的处理。 （2） 要获得多个结果。 为此VB提供了功能强大的而灵活的子过程。1引例例 6.3 编写一个两个数交换的过程,供多次调用。Swap （x,y）子过程的定义主调程序调用Swap子过程Public Sub Swap(x, y) 未定义参数类型，系统默认为变体,因此，对于任何不同类型的两个数据都可以实现交换Dim t t = x x = y y = t End Sub Private Sub Form_Click()未定义参数类型，系统默认为变体。Dim a, b a = 10 :

14、 b=20Call Swap (a, b)Print a=;a,，b=; bEnd Sub例6.3在myvbvb6ex6_3lbc6_3.vbp(程序有改动)2 子过程的定义StaticPublicPrivate Sub 子过程名(参数列表) 局部变量或常数定义 语句 Exit Sub 过程体 语句 End Sub注意五点： Exit Sub 表示退出子过程，返回到调用程序的调用处。 把某功能定义为函数过程还是子过程，没有严格规定，但只要能用函数过程定义的，肯定能用子过程定义，反之不一定。当过程有几个值返回时，习惯上用子过程。 函数过程名有类型，在函数体内至少有一次对函数过程名赋值。子过程名没

15、有值，过程名没有类型，在子过程体内不能对子过程名赋值。 形参是过程与调用程序之间交互的接口，从调用程序获得初值，或将计算结果返回给调用程序。 形参没有具体值，只代表了参数的个数、位置、类型；因此形参只能是变量，不能是常量、数组元素、表达式。3 子过程的调用 子过程名 参数列表 或 Call 子过程名(参数列表) (注：有参数列表必须可加上圆括号；无，加上也强行删去)例6.4 分别编一计算某级数部分和的子过程和函数过程，并调用。级数为： 用函数过程实现求部分级数的和用子过程实现求部分级数的和Private Function jishu1(x!, eps#) As Double 使用 As Dou

16、ble 和 As Single结果有细微差别 Dim t#, n% t = 1: n = 1: jishu1 = 0 t 每项的值, n 项序 Do While Abs(t) eps jishu1 = jishu1 + t : t = t * x / n n = n + 1 LoopEnd FunctionPrivate Sub jishu2(s#, x!, eps#) Dim t#, n% t = 1: n = 1: s = 0 t 每项的值, s 各项总和， n 项序 Do While Abs(t) eps s = s + t t = t * x / n n = n + 1 LoopEnd

17、 Sub例6.4在myvbvb6ex6_4lbc6_4.vbp Private Sub Command1_Click() Dim f1#, f2# f1 = jishu1(2#, 0.000001) 调用函数过程，x的值为2,注意第一参数的类型匹配可以 jishu2 f2, 2#, 0.000001 调用子过程，求和解果放在实参f中 Cls Print: Print Print 调用函数求和结果= ; f1 Print Print 调用子过程求和结果= ; f2End SubPrivate Sub Form_Load() Form2.Caption = 函数过程与子过程 End Sub6.3参

18、数传递 参数传递研究的是主调过程的实参与被调过程形参之间是如何传递的。6.3.1 传址与传值传址： 在形参与实参结合时，形参得到的是实参的地址，在形参值改变的同时也就改变了实参的值。也就是说同一地址，在主调和被调程序之间使用了不同的名字。因此，在传址方式下的实参只可以是变量而不能是常量，表达式。在定义过程时在形参变量前加上关键字ByRef则表示该参数是传址的（不加则系统默认为ByRef，即系统默认是传址的）。 传值： 形参得到的是实参的值，形参值的改变却不能改变实参的值。因此，这样的实参可以是变量，常量，表达式。在定义过程时在形参变量前加上关键字ByVal。例6.5两个变量的交换(使用传址和传

19、址的演示)C:Local Files_25B0_25EC_25B9_25AB_25BE_25AB_25C6_25B7_25BF_25CE_25B3_25CC_25D6_25D0_25D0_25C4_25C6_25C0_25BD_25A8myvb_25B5_25E7_25D7_25D3_25BD_25CC_25B2_25C4ex6_5lbc6_5.vbp例6.3在myvbvb6ex6_5lbc6_5.vbpSub Swap1(ByVal x%, ByVal y%) 传值 t% = x: x = y: y = tEnd SubSub Swap2(x%, y%) 传址 t% = x: x = y:

20、y = tEnd SubPrivate Sub Command1_Click() Cls a% = 10.3: b% = 20: 在没有强制声明约定下，a%=10.3就是声明变量a是整型变量了，以后也不再能声明a为其他类型。 Print ByVal before.; A1=; a, B1=; b Swap1 a, b 传值 实参值并没有交换 Print ByVal after.; A1=; a, B1=; b Print ; - a = 10: b = 20Print ByRef before.; A1=; a, B1=; b Swap2 a, b 传地址 实参值发生了交换 Print ByR

21、ef before.; A1=; a, B1=; bEnd Sub例6.6求若干个数的最大公约数。求若干个数的最大公约数的方法是：先求两个数的最大公约数，然后将这个最大公约数和第三个数再求最大公约数，如此下去。在求公约数的过程中，只要有一个最大公约数为1，就不要再往下求了。例6.6在myvbvb6ex6_6lbc6_6.vbpPrivate Sub Command1_Click() Dim A() As Integer, n%, m1%, m2%, mn%, i% Do 保证输入的串是一个大于等于2数字串 n = Val(InputBox(prompt:=求几个数的最大公约数?, Title:

22、=输入, _ Default:=4, xpos:=2000, ypos:=4000) Loop Until Val(n) = 2 ReDim A(1 To n) 重新定义数组 For i = 1 To n Do 保证输入的串是一个大于0的数字串 A(i) = InputBox(prompt:=输入第 & i & 个数, Title:=5796,5670,945,273, _ Default:=5796, xpos:=2000, ypos:=4000) Loop Until Val(A(i) 0 Next i m1 = A(1) 求 m1 和 m2 的最大公约数 For i = 2 To n m

23、2 = A(i) mn = gcd(m1, m2) If mn = 1 Then Exit For Else m1 = mn 公约数为1停止计算 Next i Cls For i = 1 To n Print A(i); Spc(2); Next i Print Print 它们的最大公约数为： ; mn End Sub求最大公约数 值传递Public Function gcd(ByVal m, ByVal n) As Integer Dim r As Integer If m n Then r = m: m = n: n = r r = m Mod n Do While r 0 m = n:

24、 n = r r = m Mod n Loop gcd = nEnd Function6.3.2 数组参数的传递 当参数是数组时只能通过传址方式进行传递。注意以下几点： 在实参和形参中只能写数组名，忽略维数的定义，但一对圆括号在虚参中不能省略，而对于实参可写或不写圆括号。 在被调过程中可通过Lbound和Ubound函数确定实参数组的下、上界。 Lbound和Ubound函数的形式如： L|Ubound(数组名，维数) 其中：维数指明要测试的是第几维的下标值，缺省是一维数组。例如：Dim a(1 To 5, 7 To 25)则下式可用LBound(a, 1) ，UBound(a, 1) 求出a

25、的一维下界和上界；而用LBound(a, 2)，UBound(a, 2) 求出a的二维的下界和上界。例6.7 求 和 的值。编一函数tim，求任意一维数组中各元素之积。 例6.7在myvbvb6ex6_7lbc6_7.vbpC:Local Files_25B0_25EC_25B9_25AB_25BE_25AB_25C6_25B7_25BF_25CE_25B3_25CC_25D6_25D0_25D0_25C4_25C6_25C0_25BD_25A8myvb_25B5_25E7_25D7_25D3_25BD_25CC_25B2_25C4ex6_7lbc6_7.vbpC:Local Files_25

26、B0_25EC_25B9_25AB_25BE_25AB_25C6_25B7_25BF_25CE_25B3_25CC_25D6_25D0_25D0_25C4_25C6_25C0_25BD_25A8myvb_25B5_25E7_25D7_25D3_25BD_25CC_25B2_25C4ex6_7lbc6_7.vbpPrivate Sub Command1_Click() Dim a%(1 To 5), b%(3 To 8), i%,t1#, t2# Call Input1(a()给A数组赋值 Call Input1(b)给B数组赋值 t1# = tim(a) 求A数组的积 t2# = tim(b(

27、) 求B数组的积 Cls Print 数组 A 各元素的值 For i = 1 To 5 Print a(i); Spc(1); Next i Print Print 数组 A 的积= ; t1 Print Print 数组 B 各元素的值 For i = 3 To 8 Print b(i); Spc(1); Next i Print Print 数组 B 的积= ; t2End SubPrivate Sub Form_Load() Form2.Caption = 数组参数的传递 Command1.Caption = 计算End SubPublic Sub Input1(d() As Inte

28、ger) 输入各个数组的值，Input是关键字Dim i%Randomize For i = lbound(d) To ubound(d) d(i) = Int(Rnd * 10) Next iEnd SubPublic Function tim(e() As Integer) As Double 求各个数组的积 Dim t#, i% t = 1 For i = LBound(e) To UBound(e) t = t * e(i) Next i tim = tEnd Function使用过程注意事项：1. 确定自定义的过程是子过程还是函数过程 函数过程名有值有类型，子过程名无值无类型。2过程

29、中形参的个数和传递方式的确定 过程中参数的作用是实现过程与调用者的数据通信。 (1)从主调程序获得初值，值传递。(2)将结果返回给主调程序，地址传递。3. 实参与形参结合时对应问题 个数、类型、位置、次序一一对应。 形参是值传递时，对应实参可以是表达式、常量、数组元素。 形参是地址传递时，对应实参只能是简单变量，否则，形参不能将其值传回到到调用程序中。 数组、记录类型、对象只能是地址传递。6.4变量、过程的作用域变量、过程随所处的位置不同，可被访问的范围也不同。变量、过程可被访问的范围称为变量、过程的作用域。 6.4.1 过程的作用域 过程的作用域可分为：窗体/模块级和全局级 1.窗体/模块级在定义的子过程或函数过程前加Private关键