计算机VB学习第8章新.pptVIP

 Visual Basic 程 序 设 计;第8章 过 程; 过程的定义: 在设计一个规模较大、复杂程度较高的程序时，往往需要按功能将程序分解成若干个相对独立的部分，然后对每个部分分别编写一段程序，这些程序段称为过程。 模块：VB应用程序(工程)是由若干个过程构成的，这些过程保存在文件中，每个文件的内容通常称为一个模块。 窗体模块(.Frm) VB中的模块有三类：标准模块(.Bas) 类模块(.Cls) 工程是模块的集合。;VB 应用程序中的过程;过程的分类:;8.1 Sub 过程（子过程）;说明：; 如：Sub Tryout(x as integer, y as integer);2. Sub 过程的调用;说明：; 将求三角形的面积的代码存放在过程triarea(a,b,c)中，边长从三个文本框中输入，如果符合构成三角形的条件，则调用该过程，否则调用suberr过程。 Li8_1.vbp 程序如下： Private Sub triarea(area As Double, x As Double, y As Double, z As Double) Dim s As Double s = (x +y + z) / 2 area = Sqr((s - x) * (s - y) * (s - z) * s) End Sub Private Sub suberr(intyrn As Integer) intyrn = MsgBox(请检查您的数据, vbYesNo + vbInformation, 数据错误) End Sub;Private Sub Command1_Click() Dim a#, b#, c#, s# a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If a + b c And b + c a And c + a b Then Call triarea(s, a, b, c) 使用Call关键字，实际参数用括号括起来 Print 面积 =; s Else suberr 不使用Call关键字， Sub 过程的调用是一句独立的语句。 End If End Sub 例8.2：编写求n!的子过程，然后计算7!+11!-10! 见 P118; Function 过程 与Sub 过程 的主要区别是： Function 过程可返回一个值到调用的过程 1. Function 过程的定义 格式：[Public|Private] [Static] Function 函数过程名 [(参数列表)] [As类型] [ 语句块 ] [ 函数过程名 =表达式 ] ‘ 返回值语句 [ Exit Function ] End Function 注意：Function 过程名有值，有类型。在函数体内，函数名可以当变量名使用，函数的返回值就是通过对函数名的赋值语句 来实现的。即函数值通过函数名返回。 函数过程需要返回的值的类型由 As类型 设置。;2. Function 过程的调用 ;例8.3：将例8.1中的两个Sub过程改为Function过程。 Private Function triarea(x As Double, y As Double, z As Double) Dim s As Double s = (x + y + z) / 2 triarea = Sqr((s - x) * (s - y) * (s - z) * s) End Function Private Sub Command1_Click()