VB 第七章过程课件.pptVIP

第7章 过 程 7.1 函数过程 7.2 Sub子过程 7.3 参数传递 7.4 可选参数与可变参数 7.5 对象参数 7.6 变量的作用域 7.1 函数(Function)过程 7.1.1 Function过程的定义 【格式】 [Public|Private|Static]Function函数过程名([参数列表])[As类型] ［语句块］ [函数过程名=返回值] [Exit Function] 过程体或函数体 [函数过程名=返回值] [语句块］ End Function 【例】 private function abc(m%,n as integer , k%) as integer k=m+n：abc=k end function （1）Private：表示Function过程是私有过程，只能被本模块中的其他过程访问，不能被其他模块中的过程访问。 Public：表示Function过程是公有过程，可以在程序的任何地方调用它。 （2）Static：指定过程中的局部变量就是“Static”型的，即在每次调用过程时，局部变量的值保持不变。 （3）函数过程名：命名规则与变量命名规则相同。 ??? ①不要与VB中的关键字重名。 ??? ②在同一个模块中，同一个变量名不能既用作Sub过程名又用作Function过程名。 （4）参数列表：指明了调用时传送给过程的参数的类型和个数，各参数之间用逗号隔开。参数也称为形参或哑元，只能是变量或数组名。 每个参数的格式为： ［ByVal］变量名［()］[As 数据类型] 其中： ? “变量名” ：如是数组，则要在名后加上一对括号。 ? “ByVal”是可选的：选择，表明该参数是“传值”； 不选，该参数称为“引用”参数或传址参数 （5）As 数据类型：是函数返回值的类型，如果省略，则为Variant型。 （6）Function过程的返回值。函数名就是函数过程的返回值，所以在函数过程内部，至少有一个“函数过程名＝返回值”的语句。 如果在Function过程中省略“函数过程名＝返回值”，则该函数过程返回一个默认值——0值或空字符串。 （7）[Exit Function]：在过程体内可以用一个或多个Exit Function语句从过程中退出。 （8）过程不能嵌套定义，只能通过调用，且可嵌套调用。 Function过程的建立方法 定义函数过程有以下两种方法： 【方法1】利用“工具”菜单中的“添加过程”命令。 7.1.2 调用函数过程 调用格式： 变量名 = 函数过程名([参数列表]) 注意： (1)参数列表—称为实参或实元，可以是常数、变量、表达式和带有空括号的数组名。 (2)当参数是数组时，形参与实参在参数声明时应省略其维数，但括号不能省。 (3)调用时把实参传递给形参称为参数传递。其中： ①值传递(形参前有ByVal)时：实参的值不随形参的值变化而改变； ②引用传递(或称地址传递)：实参的值随形参的值变化而改变。 (4)由于函数过程名返回一个值，因此函数过程必须作为表达式或表达式中的一部分，再配以其他的语法成分构成语句。 Private Sub Form_Click() Dim x1!, x2!, x3!, x4!, x5!, x6!, x7!, s1!, s2!, s3! x1=InputBox(”输入x1”):x2=InputBox(”输入x2”) x3=InputBox(”输入x3”):x4=InputBox(”输入x4”) x5=InputBox(”输入x5”):x6=InputBox(”输入x6”) x7=InputBox(”输入x7”) S1=Area(x1,x2,x3) ‘调用area函数,求S1面积 S2=Area(x3,x4,x5) ‘调用area函数,求S2面积 S3=Area(x5,x6,x7) ‘调用area函数,求S3面积 Print “s1=”;s1, “s2=”; s2, “s3=”;s3 ‘显示各三角形面积值 Print “多边形面积=”;S1+S2+S3 ‘求多边形面积并显示其值 End Sub 7.2