第章-VB子程序和函数过程.ppt

30六月2024本章主要介绍：定义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为静态变量。DimName1,Phone'声明Name1,Phone为模块级Variant类型变量PrivateSubCommand1_Click()'核对姓名，显示提示StaticNAsInteger'声明N为静态整型变量DimTAsIntegerT=CheckName(Text1.Text)'以姓名为参数，调用函数CheckBookIfT<>-1ThenMsgBox"欢迎查询!",,"提示"Text1.Visible=False:Command1.Visible=FalseLabel1.Caption="姓名:"&Text1.Text&Chr(13)&"电话:"&Phone(T)Label1.Left=(Form1.ScaleWidth-Label1.Width)/2'让标签在中间ElseN=N+1'核对次数加1IfN<3ThenMsgBox"你输错了,这是第"&N&"次错,请重输!",,"提示"Text1.Text="":Text1.SetFocusElseMsgBox"你已经输错3次了!再见!",,"提示"EndEndIfEndIfEndSubPrivateSubForm_Load()'初始化数组、设置属性Label1.AutoSize=TrueText1.Text="":Label1.Caption="姓名:":Command1.Caption="确定"Name1=Array("张小红","李小芳","王小华","王力","李季","黄大海")Phone=Array(8820123,8882011,7812321,2444522,1243211,3434555)EndSubFunctionCheckName(NaAsString)AsInteger‘函数过程，返回位置DimiAsIntegerCheckName=-1Fori=LBound(Name1)ToUBound(Name1)’线性查找法IfName1(i)=NaThenCheckName=i:ExitForNextIEndFunctionPrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenCommand1_Click‘遇回车时，调用事件过程EndSubVB中的模块属于工程资源它由过程或声明构成，以独立的文件管理。工程中包含窗体、类和标准模块文件本节介绍窗体模块标准模块。8.3.1窗体模块窗体模块是大多数VB应用程序的基础窗体模块与窗体对应，存放窗体上所有信息：窗体及窗体上各控件界面信息、属性、事件过程通用过程变量和常量的声明等。窗体模块文件的扩展名为.Frm一个应用程序可以创建多个窗体模块8.3.2标准模块和SubMain过程标准代码模块一般存放与特定窗体或控件无关的通用过程、全局变量的声明等如求阶乘一个过程要被多个不同对象或模块调用时，那么该过程一般可放在标准模块中。一个应用程序可建立多个标准模块建立标准模块的方法是：使用“工程”菜单的“添加模块”命令项。应用程序启动时，可先装载窗体，也可先运行SubMain过程SubMain是过程名为Ma