新Visual Basic 2005程序设计 教学课件 丁爱萍 第7章 过程和函数.pptVIP

第7章 过程和函数 7.1 事件过程 1. 事件过程的语法格式 [〈访问权限〉] Sub 〈事件名〉[(形参列表)] Handles 〈事件列表〉 [〈语句序列1〉] [ Exit Sub ] [〈语句序列2〉] End Sub 说明： （1）[访问权限]是指能够对其进行访问的程度，即什么代码对其具有读取或写入的权限。 （2）〈事件名〉遵循变量的命名规则。 （3）“形参列表”含有在调用时传送给该过程的简单变量名或数组名，名字之间用逗号隔开。每个参数的语法格式为： [ ByVal | ByRef ] 〈参数名称〉[ ( ) ] [ As 〈数据类型〉] 如果参数名称后面加( )，就表示该参数是个数组。参数名称前面的ByVal指定了变量是按照“传值”的方式传送的，是VB 2005默认的方式；ByRef指定了变量是按照“传地址”的方式传送的。 （4）Handles指示此过程可以处理一个或多个特定事件。 （5）〈事件列表〉表示响应事件的对象名称和事件的类型。 2. 控件通用的常用事件 【例7-1】设某单位规定，如果原工资少于1000元，则工资增加400元，否则增加350元。编制程序，计算增加工资后的应发工资。 编写“计算”命令按钮Button1的Click事件代码： Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim x As Double x = CDbl(TextBox1.Text) If x 1000 Then x = x + 400 Else x = x + 350 End If TextBox2.Text = CStr(x) End Sub 7.2 Sub过程 7.2.1 定义Sub过程 1. 在代码窗口中定义Sub过程 [〈访问权限〉] Sub 〈通用过程名〉[ (〈形参列表〉) ] [〈语句序列1〉] [ Exit Sub ] [〈语句序列2〉] End Sub 【例7-2】定义一个计算球体积的Sub过程。 Sub tj(ByVal r As Single) Dim v As Single v = 4 / 3 * 3.14 * r ^ 3 End Sub 2. 使用快捷方式定义过程 （1）在代码窗口中，将鼠标移至所有事件之外，单击鼠标右键。 （2）在快捷菜单中，选择“插入代码段”项，在系统自动显示的下拉列表中，选择“通用代码模式”项。 （3）继续选择“属性和过程”项。 （4）在下拉列表中选择“定义Sub”项，如图7-3所示，系统将自动插入相应代码。此时即可在过程中输入代码。 7.2.2 调用Sub过程 调用Sub过程有两种方式： 使用Call语句，语法格式为： Call 〈通用过程名〉( [〈实参列表〉] ) 直接使用过程名，语法格式为： 〈过程名〉( [〈实参列表〉] ) 说明： （1）〈实参列表〉是实际参数列表，参数与参数之间要用逗号分隔。 （2）调用过程可以使用Call关键字，也可以省略Call关键字。 （3）如果过程有参数，参数可以写在括号里面，也可以直接写在过程名后面。如果参数有多个，每个参数用逗号隔开。 例如，调用创建的过程tj，其代码如下： v(10) 或 v 10 【例7-3】修改【例7-1】。编写一个增加工资的Sub过程，然后调用该过程计算增加工资后的应发工资。 编写Yfgz的通用过程代码： Sub Yfgz(ByVal x As Double) If x 1000 Then x = x + 400 Else x = x + 350 End If TextBox2.Text = CStr(x) End Sub 修改“计算”命令按钮Button1的Click事件代码： Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ Handles Button1.Click Dim num As Double num = CDbl(TextBox1.Text) Yfgz(num) End Sub 7.3 Function过程 7.3.1 定义Function过程 1. 定义Function过程的语法格式 定义Function过程与定义Sub过程有所不同，但也可以在模块、类或结构中定义。其语法格式如