第四章函数和过程.pptVIP

第四章函数和过程 在VB5.0/6.0中，除了系统提供的内部函数过程和事件过程外，用户可自定义过程下列四种过程： ▲ “Sub” 保留字开始的为子过程 ▲“Function” 保留字开始的为函数过程 例如 Private Sub Command1_Click() Form1.FontSize = 20 Form1.Print 这是一个sub过程 End Sub 问题的引出 Private Function fact(k As Integer) As Long Dim i As Integer fact = 1 For i = 1 To k fact = fact * i Next i End Function 例4-6 For i = 1 To 6 b(i) = InputBox(b( + Str$(i) + )=, ) Next i Call sort(b(), 6) For i = 1 To 6 Print b(i), Next i Private Sub sort(a() As Single, ByVal n As Byte) Dim i As Byte, j As Byte, k As Byte, temp As Single For i = 1 To n - 1 k = i For j = i + 1 To n If a(j) a(k) Then k = j Next j temp! = a(k): a(k) = a(i): a(i) = temp! Next i End Sub 静态变量 Private sub command1_click Static a as integer End sub A 的值在过程结束后 　参数的传递问题： 4．使用子过程还是使用函数过程 解决一个问题既可以使用子过程，也可以使用函数过程，是使用子过程还是使用函数过程呢？如果是需要求得一个值，一般情况使用函数过程，如不是为了求一个值，而是完成一些操作，或需要返回多个值，则使用子过程比较方便。 　分别编写计算下面级数的子过程和函数过程，并在窗体的单击事件中调用。 级数为， 要求精度为： 数组作过程的参数 Visual Basic允许把数组作为实参传送到过程中。数组作参数是通过传地址方式传送。在传送数组时，除遵守参数传送的一般规则外，还应注意以下几点： 1．为了把一个数组的全部元素传送给一个过程，应将数组名分别写入形参表中，并略去数组的上下界，但括号不能省略。 Private Sub Sort( a() As single) …… End Sub 其中形参“a( )”即为数组。 2．被调过程可通过Lbound和Ubound函数确定实参数组的上、下界。 3．当用数组作形参时，对应的实参必须也是数组，且类型一致。 4．实参和形参结合是按地址传递，即形参数组和实参数组共用一段内存单元。 例如：定义了实参数组b(1 to 8)，给它们赋了值，调用Sort()函数过程的形式如下： Sort b() 或 Call Sort(b() ) 实参数组后面的括号可以省略，但为便于阅读，建议一般不要省略为好。 调用时形参数组a和实参数组b虚实结合，共用一段内存单元，如图6-7所示。因此在Sort()过程中改变数组a的各元素值，也就相当于改变了实参数组b中对应的元素的值，当调用结束时，形参数组a成为无定义。 ? b(1) b(2) b(3) b(4) b(5) b(6) b(7) b(8) a(1) a(2) a(3) a(4) a(5) a(6) a(7) a(8) 参数为数组时虚实结合示意图 * * 在VB中，的Sub子过程分为：事件过程和通用过程 事件过程 （1）窗体事件的语法 Private Sub Form_事件名(参数列表) ＜语句组＞ End Sub （2）控件事件的语法 Private Sub 控件名_事件名(参数列表) ＜语句组＞ End Sub Sub过程 For i = 1 To n e = e + x ^ i / fact(i) Next i Function过程 Visual Basic函数分为内部函数和外部函数，外部函数是用户根据需要用Function关键字定义的函数过程，与子过程不同的是函数过程将返回一个值 。 函数过程（Function过程）的定义 [Public|Private]