Visual Basic程序设计教程（第二版） 郭清溥 6新.ppt

第 6 章过 程 第1章 过程 第1章 Visual Basic程序设计概述 面子过程的建立和使用 函数过程的建立和使用 过程中参数的传递 变量和过程的作用域 过程的递归和嵌套      Function过程示例 编写Command1事件代码。  2.编写事件过程来调用通用过程。   6.3 过程中参数的传递   传值参数示例 2. 编写事件代码。  编写数组反向通用过程代码如下： 调用数组反向事件过程代码如下：   6.4 过程和变量的作用域   变量的作用域示例 程序代码如下：   6.5 过程的嵌套与递归调用   过程嵌套示例 6.6 常用算法举例 【例6.17】判断一个数是否是回文数。 【例6.18】显示100以内的所有素数，并计算这些素数的和。 【例6.20】用递归法求斐波那契数列的第n项。 本章小结 作业 产生一个随机数组并将数组中10个数组元素连成一个字符串的函数过程代码： Public Function Sjs(p() As Integer) As String Dim Temp As String, Flag As Integer Dim i As Integer, x As Integer Temp = Randomize For i = 1 To 10 ‘ 生成10个100以内互不相等的整数放入数组 Do x = Int(Rnd * 100) Flag = 0 For j = 1 To i - 1 If x = p(j) Then Flag = 1: Exit For Next j Loop While Flag = 1 p(i) = x Temp = Temp LTrim(Str(p(i))) 把生成的10个数连成一个字符串 Next i Sjs =Temp 把10个数连成的字符串赋给函数名 End Function 找出数组中最小值的函数过程代码： Public Function Min(p() As Integer) As Integer Dim m As Integer, i As Integer m =p(1) For i = 2 To UBound(p()) If m p(i) Then m = p(i) Next Min = m End Function 两个命令按钮的Click事件代码： Private Sub cmdCreat_Click() Lblsjs.Caption = Sjs(a()) End Sub Private Sub cmdFindmin_Click() Lblmin.Caption = 最小值为： Min(a()) End Sub 分析：斐波那契数列的第一项为0，第二项为1，从第三项开始，依次是其前两项的和。可以用下面公式表示斐波那契数列的第n项： Sub proc(a As Integer, b As Integer, c As Integer) 按地址传递 Print Print 子程序中运算前的变量值a,b,c：; a; b; c a = 6: b = 8: c = a * b Print Print 子程序中运算后的变量值a,b,c：; a; b; c End Sub 在使用通用过程时，可以将数组或数组元素作为参数进行传递。在传送数组时，除遵守参数传送的一般规则外，还应注意以下两点： 传递整个数组时，应将数组名分别放入实参表和形参表中，并略去 数组的上下界，但括号不能省。 如： Call test（arr()） 如果不需要把整个数组传送给过程，而是传递数组中的某一元素，则需要在数组名后面的括号中写上指定元素的下标。 如：Call test（arr(1)） 6.3.3 数组参数的传递 【例6.9】 编写ArrayReverse子程序将数组反向。 Private Sub arrayreverse(a() As Integer) Dim i As Integer, l As Integer, u As Integer， _ temp As Integer l =