basic编程基础（过程、函数） .pptVIP

过程 内容介绍 8.1 Sub过程 8.2 Function过程 8.3 参数的传递 8.4 变量的作用域与生存期 8.5 过程的嵌套和递归 过程的定义 如果一个程序中有多处需要使用相同的程序代码完成相同的事情，则可以将这段程序代码做成一个过程 过程的分类 1、子过程（Sub过程） 8.1 Sub过程 8.1.1 事件过程 8.1.2 通用过程的定义 8.1.3 通用过程的调用 8.1.1事件过程 1、定义格式 8.1.2通用过程定义 1、定义格式 8.1.2通用过程定义（2） 2、举例 分析 只需完成打印50个星号，因此不需要带有形参，也不需要有返回值 代码 Public Sub starstr() Dim i As Integer For i = 1 To 50 Print *; Next i Print End Sub 例2 编写全局Sub过程计算n! 分析 对Sub过程来说，n是调用过程时给定的，因此n应作为Sub过程的参数 代码—结果从过程中输出 Public Sub fact(n As Integer) Dim i As Integer, F As Double F = 1 For i = 1 To n F = F * i Next i Print F End Sub 代码—结果作为过程的返回值 Public Sub fact(n As Integer, F As Double) Dim i As Integer F = 1 For i = 1 To n F = F * i Next i End Sub 例3 Exit Sub语句应用 Private Sub test_loop() Dim i%, j%, k%, x% x = 0 For i = 1 To 100 For j = 1 To 100 For k = 1 To 100 x = x + 1 If 1 Then MsgBox 已经执行了4000次了 Exit Sub 当x=4000时提前退出过程 End If Next k, j, i End Sub 8.1.2通用过程定义（3） 3、通用过程的建立 8.1.3通用过程的调用 1、通用过程的调用格式 8.1.3通用过程的调用（2） 举例1 例2 从键盘上任意输入一个整数，然后调用Fact过程计算该数的阶乘 代码 Private Sub Command1_Click() Dim x As Integer, Ff As Double x = Val(Text1.Text) Call fact(x, Ff) Print x; !=; Ff End Sub 8.1.3通用过程的调用 2、模块级过程与全局过程的调用规则 8.2Function过程 函数 8.2.1函数过程的定义（1） 1、定义格式 8.2.1函数过程的定义（2） 编写一个共有Function过程，已知三角形三条边的长求三角形的面积 分析 已知三角形三条边的长（假设分别为A、B、C）便可求出面积AREA（公式如下），因此，只需将三条边的长作为Function过程的形参，求得的面积则由函数过程名返回 代码 Function AREA(A As Double, B As Double, C As Double) As Double Dim S As Double S = (A + B + C) / 2 AREA = Sqr(S * (S - A) * (S - B) * (S - C)) End Function 8.2.1函数过程的定义（3） 3、函数过程建立 8.2.2函数过程的调用（1） 形式： 8.2.2函数过程的调用（2）——举例 定义一Function过程计算阶乘，然后调用该函数求组合数。 代码 求阶乘函数Fact:n为形参，返回n！的值 Function Fact(n As Integer) As Double Dim i%, F As Double F = 1 F用于保存阶乘值 For i = 1 To n F = F * i Next i Fact = F 给函数