丽水学院VB-6-200842211591368.pptVIP

第6章 过 程 将程序分割成较小的逻辑部件就可以简化程序设计任务，称这些部件为过程，它们可以变成增强和扩展 Visual Basic 的构件。 VB中有两类过程，一类是内部过程，另—类是外部过程，每—类过程又可分为函数过程和事件过程。 内部过程是由系统提供、可直接调用。 外部过程由用户自己定义和编写。 6.1 过程的定义 例：由CSSJ过程产生一批随机整数，数据的取值范围为-10 ~ 10 之间 Public Sub CSSJ() Randomize Form1.Print 原始数据 Dim i As Integer Dim j As Integer For i = 1 To n 随机产生0或1，为0时取负，为1时取正 j = Int(Rnd * 2) If ------ 1 ----- Then J = -1 a(i) = j * Int(Rnd * (n + 1)) Form1.Print a(i); Next i Form1.Print End Sub TJ过程：将数据中小于零的数及它们的积打印出来 Public Sub TJ() Dim i As Integer Dim t As Single t= --------2 -------- For i = 1 To 10 If -------- 3 -------- Then t = t * a(i) End If Next i Form1.Print T=; t End Sub 6.2 过程的调用 6.2.1 子过程的调用 1．使用Call语句调用过程 Call语句的格式为： Call 过程名（实际参数表列） 如：call cssj 　　call tj 2. 将过程名作为语句使用 如果省略 Call 关键字而直接将过程名作为语句使用，也必须省略实际参数表列 外面的括号。 过程名 如： cssj 　　 tj Private Sub Command1_Click() Dim a As Double, b As Double, c As Double, s As Double Dim intYesorNo As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) If a + b c And b + c a And c + a b Then Call triarea(s, a, b, c) Picture1.Print 面积 =; s Else suberr intYesorNo End If End Sub 形参 Sub过程和Function函数过程中的参数列表中的参数称为形式参数. 实参 在程序中调用Sub过程和Function函数过程时参数列表中称为实际参数。过程调用的过程，就是实参与形参结合的过程。 6.3.2 传址与传值 1. 传址 在VB中，默认情况下实参与形参是传址传递数据的。 3. 传送方式的选择 若要返回调用结果——传地址； 不希望过程修改实参的值——传值。 形参是数组、自定义类型时，只能传地址。 事件过程： Private Sub Command1_Click() Dim i%, s(), a%, k% Cls a = Val(Text1.Text) ReDim s(1 To a) For i = 1 To a s(i) = sum(a, i) k = k + 1 Print i=; i, k=; k, s i =; s(i) If k a Then Exit For Next i End Sub 6.3.3 数组参数的传递 6.3.4 可选参数与可变参数 6.4 变量与过程的作用范围 6.4.1 过程的作用域 6.4.2变量的作用域 6.4.3 静态变量 6.5 递归 在VB中可以使用递归调用。通俗地讲，递归就是一个过程调用过程本身。在递归调用中，一个过程执行的某一步可能要用到它自身上面调用的结果。 递归分为两种类型，一种是直接递归，即在过程中调用过程本身；—种是间接递归，即间接地调用一个过程。 6.6 综合实例 6.