资源描述：
《子过程和函数过程》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、第8章子过程和函数过程VisualBasic程序设计教程本章主要介绍：定义Sub过程定义Function函数过程调用Sub过程或Function函数过程调用事件过程变量的存储类别和作用域。编写过程，可以实现代码重复使用。2VisualBasic程序设计教程8.1.1什么是过程过程是编写程序的功能模块使用过程主要有以下两方面的原因：1．可以把复杂的问题简单化任务分解为子任务，子任务用过程实现使程序结构清晰、易读，也便于调试和维护。2．可以实现代码重复使用可以避免重复编写的烦琐可以减少出错。8.1概述3VisualBasic程序设计教程8.1.2
2、过程分类与调用流程VB中的过程分成两大类：事件过程：由对象的某个事件驱动执行如Click事件过程、Load事件过程等通用过程由用户自已定义的完成某一功能的过程。通用过程不属于任一对象，不由事件驱动使用专用的调用语句来执行它4VisualBasic程序设计教程通用过程又分两类：Sub过程（子过程、子程序）往往用于处理不需要有返回值的一些基本任务如显示矩阵。Function函数过程：可作为函数使用，它一般应有一个返回值如求阶乘。5VisualBasic程序设计教程调用流程如图：VB的应用程序就是由若干个过程构成的。6VisualBasic程序设计
3、教程【例8-1】设计程序，其作用是根据姓名查电话号码。输入姓名后，单击“确定”或按回车键，使姓名与内部储存的一批姓名核对，若存在，则显示“欢迎查询”内并使窗体只显示标签，且文字为姓名和对应的电话号码。最多允许输入3遍。控件：1个标签、1个文本框1个“确定”命令按钮8.2查询电话号码7VisualBasic程序设计教程过程：Form_Load事件：储存一批姓名和电话号码等Command1_Click事件：核对姓名，显示提示Text1_KeyPress事件：核对姓名，显示提示CheckName函数过程：判断此人是否存在，得下标/-1。姓名和电话号
4、码为模块级变量、N为静态变量。8VisualBasic程序设计教程DimName1,Phone'声明Name1,Phone为模块级Variant类型变量PrivateSubCommand1_Click()'核对姓名，显示提示StaticNAsInteger'声明N为静态整型变量DimTAsInteger T=CheckName(Text1.Text)'以姓名为参数，调用函数CheckBookIfT<>-1ThenMsgBox"欢迎查询!",,"提示"Text1.Visible=False:Command1.Visible=FalseLabel
5、1.Caption="姓名:"&Text1.Text&Chr(13)&"电话:"&Phone(T) Label1.Left=(Form1.ScaleWidth-Label1.Width)/2'让标签在中间9VisualBasic程序设计教程Else N=N+1'核对次数加1 IfN<3ThenMsgBox"你输错了,这是第"&N&"次错,请重输!",,"提示"Text1.Text="":Text1.SetFocusElseMsgBox"你已经输错3次了!再见!",,"提示"EndEndIfEndIfEndSub10VisualBasic程序设
6、计教程PrivateSubForm_Load()'初始化数组、设置属性Label1.AutoSize=True Text1.Text="":Label1.Caption="姓名:":Command1.Caption="确定" Name1=Array("张小红","李小芳","王小华","王力","李季","黄大海") Phone=Array(8820123,8882011,7812321,2444522,1243211,3434555) EndSub11VisualBasic程序设计教程FunctionCheckName(NaAsString
7、)AsInteger‘函数过程，返回位置DimiAsIntegerCheckName=-1 Fori=LBound(Name1)ToUBound(Name1)’线性查找法IfName1(i)=NaThenCheckName=i:ExitFor NextIEndFunctionPrivateSubText1_KeyPress(KeyAsciiAsInteger) IfKeyAscii=13ThenCommand1_Click‘遇回车时，调用事件过程EndSub12VisualBasic程序设计教程VB中的模块属于工程资源它由过程或声明构成，以独
8、立的文件管理。工程中包含窗体、类和标准模块文件本节介绍窗体模块标准模块。8.3窗体模块和标准模块13VisualBasic程序设计教程8.3.1窗体模块窗体模块是大
