新Visual Basic程序设计案例教程 湖南省教育科学“十一五”规划重点项目 教学课件 李勇帆 第11讲.pptVIP

Visual Basic 程序设计 第十一讲 2课时 教学目标及基本要求 掌握Sub过程的定义与调用 掌握Function过程的定义与调用 掌握参数传送的方式 教学重点 Sub过程的定义与调用 Function过程的定义与调用 参数传送的方式 教学难点 理解掌握过程的调用； 教学内容 Sub过程的定义与调用 Function过程的定义与调用 参数传送的方式 Sub过程 Sub过程的建立 定义Sub过程 过程定义的语法格式为： [Static][Private][Public]Sub过程名 ([形参表]) 语句块1 [Exit Sub] [语句块2] End Sub Sub过程 Sub过程的建立 定义Sub过程 说明： (1) Static：指定过程中的局部变量在内存中的存储方式。 (2) Private：表示Sub过程是私有的，只能被本模块中的其他过程访问，不能被其他模块中的过程访问。 (3) Public：表示Sub过程是公有过程，可以在程序的任何地方调用它。 Sub过程 Sub过程的建立 定义Sub过程 说明： (4) 过程名：命名规则与变量命名规则相同。 (5) 形参表：含有在调用时传送给该过程的简单变量名或数组名，各参数名之间用逗号隔开。 (6) Exit Sub语句表示立即退出过程，一般出现在选择结构中。 (7) End Sub标志着Sub过程的结束。 (8) Sub过程不能嵌套定义。 Sub过程 【例8.1】计算n!。 程序如下： Public Sub Fact(ByVal n As Integer, p As Double) Dim i As Integer p=1 For i=1 To n p=p*i Next i End Sub Sub过程 Sub过程的建立 建立Sub过程 通用过程可以在标准模块过程中建立，也可以在窗体模块中建立。举例说明在标准模块中建立通用过程，的两种方法。 Sub过程 调用Sub过程 １．Call语句调用Sub过程 格式：Call 过程名[(实际参数)] ２．过程名作为一个语句来使用 与第一种方式相比，它有两点不同： (1) 去掉关键字Call： (2) 去掉“实际参数”的括号。 Sub过程 【例8.2】编写一个计算矩形面积的Sub过程，然后调用该过程计算矩形面积。 程序如下： Sub RecArea(Rlen,Rwid) Dim Area Area=Rlen*Rwid MsgBox Total Area is： Area End Sub Sub Form_Click() Dim A,B A=InputBox(What is the length? ) A=Val(A) B=InputBox(What is the width? ) B=Val(B) RecArea A,B End Sub Sub过程 调用过程与事件过程 在事件过程中调用另一个事件过程 Public Sub Command1_Click() Form2中的Command1的Click事件过程 Form1.Command1_Click 调用Form1中的Command1的Click事件过程 End Sub Sub过程 调用过程与事件过程 在同一事件过程中调用两个标准模块中具有相同名字的通用过程 Public Sub Command1_Click() Form1中的Command1的Click事件过程 Module1.Proce 调用标准模块Module1中的名为Proce的通用过程 Module2.Proce 调用标准模块Module2中的名为Proce的通用过程 End Sub Function过程 Function过程的定义 Function过程定义的格式为 [Static][Private][Public]Function函数名（[形参表]） [As类型] [语句块] [函数名=表达式] [Exit Function] [语句块] End Function Function过程 Function过程的定义 说明： (1) Function过程以Function开头，以End Function结束，在两者之间是描述过程操作的语句块，即“过程体”或“函数体”。 (2) 函数名即函数过程的名称，命名规则与变量相同。 (3) 表达式的值是函数返回的结果，通过赋值语句将其赋给函数名。 (4)不能在事件过程中定义通用过程（包括Sub过程和Functio