中国民航飞行学院Visual Basic 程序设计课件第七章 过程.pptVIP

Visual Basic程序设计教程 计算机科学教研室 授课教师：李廷元 E-mail: acetao@163.com 第七章 过程 7.1 Function过程 7.2 Sub过程 7.3 过程的嵌套调用 7.4 过程的递归调用 7.5 参数传递 7.6 鼠标和键盘 7.7 过程的作用域 7.8 变量的作用域和生存期 7.9 应用举例 7.10 常用算法Ⅲ 习题 第七章 过程 结构化程序设计原则 把问题逐步细化,分成若干个功能模块 7.1 Function过程 7.1.1 Function过程的定义 7.1.2 Function过程的建立 7.1.3 Function 过程的调用 7.1.1 Function过程的定义 Function过程的定义 [Private|Public][Static] Function 函数过程名 ([形参表]) [As 类型] …… 函数过程名=表达式 [Exit Function] …… End Function 7.1.1 Function过程的定义 说明 Private与Public Static 函数过程名：命名规则与变量相同 形参表(形式参数)：由逗号分隔的变量名或数组名()组成 As 类型：函数返回值的类型 函数过程名=表达式 Exit Function 7.1.2 Function过程的建立 Function过程可以在标准模块或窗体的通用层(General)中建立。 利用“工具”菜单下的“添加过程”命令定义 在代码窗口直接定义 7.1.3 Function 过程的调用 Function 过程是用一个子程序来定义一个函数，其调用形式与内部函数一样，即以函数的形式出现在表达式中，因此，凡是出现表达式的地方都可以出现函数的调用。 调用形式： 函数过程名([实参表]) 7.1.3 Function 过程的调用 【例7-1】编写函数过程计算n! 【例7-1】编写函数过程计算n! 【思路】 n!的功能要在函数过程中实现 n!的值随传入的n值的不同而不同(确定形式参数) 函数的返回值为n!计算结果(确定函数返回值的类型) 在事件过程中调用该函数实现n! 【例7-1】编写函数过程计算n! Function fact (n As Integer) As Long …… fact = … …… End Function 【例7-1】编写函数过程计算n! Function fact (n As Integer) As Long End Function 【例7-1】编写函数过程计算n! Private Sub Command1_Click() Dim n As Integer n = Val(Text1.Text) Label2.Caption = Trim(Str(n)) 的阶乘为： Text2.Text = Trim(Str(fact(n))) End Sub 7.1.3 Function 过程的调用 【例7-2】编写函数过程计算n!,调用该过程计算组合数 【例7-2】 Private Sub Command1_Click() Dim n, m As Integer, comb As Long m = Val(Text1(0).Text) n = Val(Text1(1).Text) If m n Then MsgBox 输入的参数有错! Exit Sub End If comb = fact(n) / (fact(m) * fact(n - m)) Text2.Text = comb End Sub 【例7-2】 Function fact(n As Integer) As Long Dim i As Integer, f As Long f = 1 For i = 2 To n f = f * i Next i fact = f End Function 7.2 Sub过程 7.2.1 Sub过程的定义 7.2.2 Sub过程的调用 7.2.1 Sub过程的定义 格式： [Private][Public][Static]Sub 过程名[（参数表）] …… [Exit Sub] …… End Sub 7.2.1 Sub过程的定义 (1)Sub过程从Sub语句开头，以End Sub结束。之间的语句块称过程体 (2)子程序过程名：命名规则同变量。在同一个模块中，子程序过程名不得与变量名同名 (3)子程序过程名仅仅是为调用方便而取的一个符号名，它不代表任何值，也没有值的含义 注