VB第八章过程.ppt

第八章 过程 《VB6.0程序设计》 本章内容提要 第八章 过 程 VB中的过程分为事件过程和通用过程两大类。 事件过程是当发生某个事件时，对该事件作出响应的程序段，如：Command1_Click（）、Text1_LostFocus（），它必须是作用于某个对象的，是VB应用程序的主体。 通用过程和具体的对象没有内在关联，通常又分为下列几种： （1）Sub过程，又叫子过程或子程序，它不返回值。 （2）Function过程，又叫函数过程，它有返回值。 8.1 sub 过 程 1．Sub过程的定义 Sub过程的语法如下： [ Private | Public ]? [ Static]? Sub 过程名（[参数列表]） [局部变量和常数声明]???? 　 语句块 　 [Exit Sub] 　 语句块 　End Sub 说明：过程是以Sub开头，以End Sub结束的一段程序，在这两句之间是语句块，称为“过程体”或“子程序体”。 8.1 sub 过 程 例8-1 编一个交换两个整型变量值的子过程。 Private Sub Swap( X As Integer, Y As Integer) 　　Dim temp As Integer 　Temp=X : X=Y : Y=Temp End Sub Private Sub command1_click() Dim a%, b% a = Val(InputBox(a=)) b = Val(InputBox(b=)) Print a=; a, b=; b Swap a, b Print a=; a, b=; b End Sub 8.1 sub 过 程 2．调用Sub过程 （1）把过程名作为一个语句来使用。 格式：过程名 [实际参数] 说明：在这种格式中，参数不能使用括号，过程名和参数之间使用空格分隔，参数和参数之间使用逗号分隔，如果过程没有参数，则不需要参数。 （2）用Call语句调用Sub过程。 格式：Call过程名 [（实际参数）] 说明：如果过程没有参数，则参数和括号可以省略。 8.1 sub 过 程 3．过程的创建及应用（在vb中演示过程的创建及应用） 两种方法 利用“工具”菜单下的“添加过程”命令 利用代码窗口 例8-2 打印出如下形状 8.1 sub 过 程 Public sub star() Print string (20,”*”) End sub Private sub form_click() Dim I as integer For I=1 to 6 Print tab(5+i); Star Next I End sub 8.2 Function过程 1．函数过程的定义 [Ptivate | Public][Static] Function 函数名（[参数列表]）[As数据类型] 　　　[局部变量和常数声明] 　　　语句块 　　　函数名=表达式 　　　[Exit Function] 　　　语句块 　　　[函数名=表达式] 　　End Function 8.2 Function过程 （1）在函数体内，函数名可以当变量使用，函数的返回值就是通过对函数名的赋值语句来实现的，在函数过程中至少要对函数名赋值一次。 （2）AS类型：是指函数返回值的类型，若省略，则函数返回变体类型值（Variant） 8.2 Function过程 2、函数过程的调用 调用形式： 函数名（实参列表） 说明： 在调用时实参和形参的数据类型、顺序、个数必须匹配。函数调用通常出现在表达式中，其功能是求得函数的返回值。 例题8-3 计算多边形的面积（见下页） 8.2 Function过程 Private sub form_click() Dim a!,b!,c!,d!,e!,f!,g!,s1!,s2!,s3! a=inputbox(“输入a”): b=inputbox(“输入b”): c=inputbox(“输入c”) d=inputbox(“输入d”):e=inputbox(“输入e”):f=inputbox(“输入f”) g=inputbox(“输入g”) S1=area(a,b,c) S2=area(c,d,e) S3=area(e,f,g) Print s1+s2+s3 End sub 8.3 参数传递（传地址，传值） 传址(ByRef)：又称为引用，是默认的方法。当调用一个过程时，它将实参的地址传递给形参。因此在被调过程体中对形参的任何操作都变成了对相应实参的操作，实参的值就会随过程体内对形参的改变而改变。