[VB语言程序设计过程.pptVIP

过程第七章 本章内容 引言 在VB中的两种过程： （1）由系统提供过程 系统提供的内部函数过程(如sqr函数)和事件过程（click事件）。 （2）由用户自定义过程 用户根据实际应用的需要而自行设计的过程,这样的过程称为“通用过程” 引言 通用过程分为两类： 函数过程：以Function保留字开始的过程。 子程序过程：以Sub保留字开始的过程； 例5.19 求解s = 1! + 2! + 3! + … + 10!的值 例7.2 计算5! + 10! 阶乘n! (n!＝1×2×3×…×n) Private Sub Form_Load( ) Show Dim t As Long, s As Long, i As Integer t = 1 For i = 1 To 5 t = t * i Next i s = t 例7.2 计算5! + 10! 因为计算5!和10!都要用到阶乘n! (n!＝1×2×3×…×n) 所以把计算n!编成Sub过程。 Private Sub Form_Load( ) Show Dim y As Long, s As Long Call Jc(5, y) s = y Call Jc(10, y) s = s + y Print 5! + 10! =; s End Sub 程序运行结果： 5! + 10! ＝ 3628920 过程的作用 过程有两个重要作用：一是把一个复杂的任务分解为若干个小任务，可以用过程来表达，从而使任务更易理解，更易实现，将来更易维护；二是代码重用，使同一段代码多次复用。 通用过程 过程调用示例 把相同的任务编成相对独立的“子过程” 当事件过程需要执行这个任务时，可使用调用语句(如Call)实行调用。子过程执行完后，会返回事件过程中调用语句Call的后续语句继续执行 Sub过程 例7.1 Sub过程示例 Private Sub Form_Load() Show Call mysub1(30) Call mysub2 Call mysub2 Call mysub2 Call mysub1(30) End Sub 程序运行结果 Sub过程的定义 格式： [Static][Public|Private］Sub 过程名(参数表列) 语句块 [Exit Sub］ 语句块 End Sub 功能：定义一个以子过程名为名的Sub过程。 (1) 在VB中，Sub过程又称为子过程。 (2)在子过程中如果没有形参，调用时括号（）必须省略。 Call mysub2 或 mysub2 Sub过程的调用 格式： Call 过程名 (实参列表) 或 过程名 实参列表 说明： ① 实参的个数、类型、顺序应与相应的形参保持一致，子过程中如果没有形参，则调用中也无实参。 ② 第2种调用方式与第1种相比，结果一样，只是去掉Call和一对括号( )。 例如，调用名为mysub1的过程： Call mysub1(30)  mysub1 30 函数过程 [Static][Public|Private］ Function 函数过程名([参数列表]) [As 类型] 语句块 函数名 = 返回值 [Exit Function] 语句块 函数名 = 返回值 End Function 功能：定义一个以函数名为名的Function过程。 函数过程说明 1. As 类型： 返回值的类型 2.函数名 = 返回值 函数过程必须返回函数值，而函数名就代表了函数值，在函数体内至少对函数名赋值一次。若不赋值则默认返回值为0或空串或空值。函数名本身就是变量。 函数过程的调用 形式： 变量名 = 函数过程名（实参列表） 或 print 函数过程名 (实参列表) 功能：调用一个已定义的Function过程。 例7.3 计算5! + 10! 将n!的Sub过程改为Function过程。 Private Sub Form_Load( ) Show Dim s As Long s = Jc(5) + Jc(10)