[计算机软件及应用]VB6

6.1.1 VB的文件类型 1. 工程文件(.vbp) 6.1.2 工程的组成 1. 窗体模块(.frm) 6.1.3 管理工程 1. 保存工程 6.1.3 管理工程 3. 添加工程 6.2.1 Sub过程 语法： Private Sub Form_事件名([参数列表]) [局部变量和常数声明] 语句块 End Sub 说明： 不管窗体是什么名字，但在事件过程中都使用“Form _事件名”。 窗体过程前面的声明都是Private，表示这个窗体过程只能在窗体模块中使用。 在Sub和End Sub之间的语句块，称为程序体或过程体。 6.2.1 Sub过程 语法： Private Sub 控件名_事件名([参数列表]) [局部变量和常数声明] 语句块 End Sub 6.2.1 Sub过程 语法： [Private | Public] [Static] Sub 过程名([参数列表]) [局部变量和常数声明] 语句块 [Exit Sub] 语句块 End Sub 6.2.1 Sub过程 (2)建立通用过程 6.2.2 Function过程 语法： [Private | Public] [Static] Function 函数名([参数列表]) [As 数据类型][局部变量和常数声明] [函数名 = 表达式] [Exit Function] 语句块 [函数名 = 表达式] End Function 6.2.2 Function过程 2. 建立函数过程 6.3.2 调用Function过程 调用函数Function过程的方法和调用 VB 内部函数方法一样，在语句中直接使用函数名，Function 过程可返回一个值到调用的过程。 6.4.1 形参和实参 1. 形参和实参 6.4.1 形参和实参 2．形参的数据类型 6.4.1 形参和实参 3. 使用可选的参数 6.4.1 形参和实参 Private Function divisor(ParamArray n()) '通用函数求最大公约 Dim r As Integer If UBound(n) = 1 Then x = n(0): y = n(1) ElseIf UBound(n) = 0 Then x = n(0): y = 1 End If r = x Mod y Do While r <> 0 x = y y = r r = x Mod y Loop divisor = y End Function 6.4.2 参数按值传递和按地址传递 1. 按值传递参数 6.4.2 参数按值传递和按地址传递 2. 按地址传递参数 6.4.2 参数按值传递和按地址传递 按地址传递参数有几点说明： 6.4.3 数组参数 程序代码如下： Option Base 1 Private Sub Command1_Click() '单击计算按钮 Dim Score1(8) As Single, Score2(8) As Single Dim i As Integer, j As Integer '输入分数 Score1(1) = 98: Score2(1) = 84 Score1(2) = 82: Score2(2) = 86 Score1(3) = 76: Score2(3) = 79 Score1(4) = 66: Score2(4) = 72 Score1(5) = 88: Score2(5) = 84 Score1(6) = 82: Score2(6) = 76 Score1(7) = 75: Score2(7) = 79 Score1(8) = 60: Score2(8) = 70 Text1.Text = Int(Average(Score1) * 100) / 100 Text2.Text = Int(Average(Score2) * 100) / 100 End Sub 6.4.3 数组参数 6.4.4 对象参数 在VB中对象也可以作为形参，即对象可以作为参数向过程传递，对 传递只能是按地址传递。 6.5 递归过程 计算阶乘n!可以表示为： 6.6.1 过程级、模块级和全局变量 1．过程级变量 6.6.1 过程级、模块级