《Visual Basic程序设计教程》课件 第8章 过程.pptxVIP

Visual Basic程序设计教程 CHAPTER子程序过程函数过程参数传递过程的嵌套和递归第八章 过 程 8.1.1 Sub过程的定义Section8.1.2 Sub过程的建立8.1.3 Sub过程的调用实例8-1——求矩形的面积8.1 子程序过程子程序过程由Sub…End Sub定义，因此也称为Sub过程。 8.1 子程序过程8.1.1 Sub过程的定义Sub过程以Sub开头，以End Sub结束，在它们之间是描述该过程操作的语句块，称为过程体或子程序体。定义Sub过程的一般格式如下：[Static][Public|Private] Sub 过程名[(参数列表)]局部变量或常量定义语句块 [Exit Sub] [语句块]End Sub第页 共页51 8.1 子程序过程8.1.1 Sub过程的定义上面定义格式中各选项的含义如下：Static：指定过程中的局部变量都是静态变量，即在每次调用该过程时，局部变量的值保持不变。Public｜Private：Public表示该Sub过程是公有过程，即可以在程序的任何地方调用它；Private表示该Sub过程是私有过程，即只能被本模块中的其他过程访问，不能被其他模块中的过程访问。定义过程时，两者只能选其一。过程名：是一个长度不超过255个字符的变量名，在同一个模块中，不允许变量名与过程名同名。参数列表：指明了在调用该过程时传送给过程的参数的类型和个数，这些参数称为“形式参数”，简称“形参”。各参数之间以逗号分隔，每个参数的定义格式为：[ByVal] 变量名[( )][As 数据类型]第页 共页51 8.1 子程序过程Sub Test ( ) DoResponse$=InputBox$(Continue(Y or N)?) If Response$=N Or Response$=n Then EndIf Response$=Y Or Response$=y Then Exit Do LoopEnd Sub8.1.1 Sub过程的定义其中，ByVal是可选的，如果有ByVal，表示该参数是“传值参数”，不加ByVal的参数称为“引用参数”。下面为一个Sub过程的例子：Sub Try(x As Integer,ByVal y As Integer) x=x+100y=y*5 Print x,yEnd Sub该Sub过程有两个形参，其中第二个形参前面有ByVal，表示该参数是一个传值参数。 Sub过程也可以没有参数，例如：Sub过程不能嵌套，也就是说，在Sub过程内不能再定义Sub 过程或函数过程。第页 共页51 8.1 子程序过程8.1.2 Sub过程的建立Sub过程是一个通用过程，可以在标准模块中建立，也可以在窗体模块中建立。在标准模块中建立通用过程的步骤如下：选择“工程”菜单中的“添加模块”命令，打开“添加模块”对话框，双击“模块”图标，打开模块代码窗口。选择“工具”菜单中的“添加过程”命令，打开“添加过程”对话框，如图8-1所示。在“名称”框内输入要建立的过程的名字，在“类型”框内选择要建立的过程的类型；在“范围”框内选择过程的适用范围。“添加过程”对话框（3）单击“确定”按钮，回到模块代码窗口，此时可以在Sub和End Sub之间键入程序代码。第页 共页51 8.1 子程序过程8.1.3 Sub过程的调用在程序中不能用GoTo语句进入或跳出一个Sub过程，只能通过调用执行 Sub过程，可以把Sub过程的调用当作是一句独立的调用语句，有两种形式：Call 过程名[（实参列表）]或过程名 [实参列表]实参也称实际参数，是在过程被调用时写在过程名后的参数。它的作用是把需要实际运算的数据传递给形参。调用Sub过程时，实参的数据类型必须与定义过程时的形参一致。如调用前面定义的 Sub过程Try时，可用：Call Try(a,b)或Try a,b第页 共页51 8.1 子程序过程实例 8-1求矩形的面积第页 共页51 8.1 子程序过程实例8-1——求矩形的面积编写一个计算矩形面积的Sub过程，然后调用该过程求一个矩形的面积。步骤1启动VB 6.0，建立一个标准工程。步骤2双击表单空白处，打开代码窗口，然后在对象下拉列表框中选择“通用”，此时过程下拉列表框中显示“声明”，然后在代码编辑窗口中输入如下程 序代码：Sub Area(x,y) Dim S S=x*yMsgBox 矩形的面积为 S End Sub第页 共页51 8.1 子程序过程实例8-1——求矩形的面积或：Area A,BSub Form_Click( ) Dim A,BA=InputBox(请输入矩形的长：) A=Val(A)B=InputBox(请输入矩形的宽：) B=Val(B)Call Area(A,B) End Sub步骤3