子过程和函数过程.pptVIP

本章主要介绍： 定义Sub过程 定义Function函数过程 调用Sub过程或Function函数过程 调用事件过程 变量的存储类别和作用域。 编写过程，可以实现代码重复使用。 8.1.1 什么是过程 过程是编写程序的功能模块 使用过程主要有以下两方面的原因： 1．可以把复杂的问题简单化 任务分解为子任务，子任务用过程实现 使程序结构清晰、易读，也便于调试和维护。 2．可以实现代码重复使用 可以避免重复编写的烦琐 可以减少出错。 8.1.2 过程分类与调用流程 VB中的过程分成两大类： 事件过程： 由对象的某个事件驱动执行 如Click事件过程、Load事件过程等 通用过程 由用户自已定义的完成某一功能的过程。 通用过程不属于任一对象，不由事件驱动 使用专用的调用语句来执行它 通用过程又分两类： Sub过程（子过程、子程序） 往往用于处理不需要有返回值的一些基本任务 如显示矩阵。 Function函数过程： 可作为函数使用，它一般应有一个返回值 如求阶乘。 调用流程如图： VB的应用程序就是由若干个过程构成的。 【例8-1】设计程序，其作用是根据姓名查电话号码。 输入姓名后，单击“确定”或按回车键，使姓名与内部储存的一批姓名核对，若存在，则显示“欢迎查询”内并使窗体只显示标签，且文字为姓名和对应的电话号码。最多允许输入3遍。 控件： 1个标签、1个文本框 1个“确定”命令按钮 过程： Form_Load事件：储存一批姓名和电话号码等 Command1_Click事件：核对姓名，显示提示 Text1_KeyPress事件：核对姓名，显示提示 CheckName 函数过程：判断此人是否存在，得下标/-1。 姓名和电话号码为模块级变量、N为静态变量。 Dim Name1, Phone 声明Name1,Phone为模块级Variant类型变量Private Sub Command1_Click() 核对姓名，显示提示 Static N As Integer 声明N为静态整型变量 Dim T As Integer T = CheckName(Text1.Text) 以姓名为参数，调用函数CheckBook If T -1 Then MsgBox 欢迎查询!, , 提示 Text1.Visible = False : Command1.Visible = False Label1.Caption=姓名: Text1.Text Chr(13) 电话: Phone(T) Label1.Left = (Form1.ScaleWidth - Label1.Width) / 2 让标签在中间 Else N = N + 1 核对次数加1 If N 3 Then MsgBox 你输错了,这是第 N 次错,请重输!, , 提示 Text1.Text = : Text1.SetFocus Else MsgBox 你已经输错3次了!再见!, , 提示 End End If End IfEnd Sub Private Sub Form_Load() 初始化数组、设置属性 Label1.AutoSize = True Text1.Text = : Label1.Caption = 姓名: : Command1.Caption = 确定 Name1 = Array(张小红, 李小芳, 王小华, 王力, 李季, 黄大海)  Phone = Array(8820123, 8882011, 7812321, 2444522, 1243211, 3434555)End Sub Function CheckName(Na As String) As Integer ‘函数过程，返回位置 Dim i As Integer CheckName = -1 For i = LBound(Name1) To UBound(Name1) ’线性查找法 If Name1(i) = Na Then CheckName = i: Exit For Next I End Function Private Sub Text1_KeyPress(KeyAscii As Integer)