Microsoft Word - 第5章.doc

Size: px

Start display at page:

Download "Microsoft Word - 第5章.doc"

隐经
6 years ago
Views:

1 过程和函数就是在程序中可以被重复使用的代码当应用程序比较复杂时, 开发人员可能需要在程序中多处使用相同的代码在 Visual Basic 应用程序开发中, 重要任务之一就是创建可重复使用的代码通过学习本章, 读者可以熟练掌握过程和函数的定义及使用方法 5.1 过程过程就是在应用程序可以被多次重复使用的代码段使用过程具有以下优点 : 复杂任务分解成多个简单代码段 ; 易于读写, 具有较强的可读性和可维护性前面章节介绍的事件过程就是 Visual Basic 定义过程的一种本节介绍的过程是用户创建的自定义过程什么是 Sub 过程 Sub 过程是可以被重复执行的无返回值的代码段其标准语法如下 : [Private Public] [Static] Sub Name [(Arglist)] [statements] [Exit Sub] [statements] 参数说明 : Private Public 为可选项表明模块作用域具体内容请参见小节 Name 为必需项表明 Sub 过程名称在其他程序中, 如果需要调用此过程, 则必须使用该名称 Arglist 为可选项表明在 Sub 过程中传递的参数名称如果为多个参数, 可以用逗号分开参数默认声明为 Variant 数据类型为必需项表明该 Sub 过程结束创建 Sub 过程添加 Sub 过程有两种方法如下所示方法一 : (1) 选择工程添加模块命令, 打开添加模块对话框, 如图 5.1 所示在新建选项卡中选择模块图标, 单击打开按钮, 弹出模块编辑对话框

在模块编辑窗体可见自动添加 showmsg 子过程, 如图 5.3 所示图 5.1 添加模块对话框图 5.2 添加过程对话框图 5.

Sub 和之间手动输入代码示例 5-1 创建显示信息 showmsg 过程 (1) 新建一个工程, 并新建一个窗体 (2) 选择工程添加模块命令, 打开添加模块对话框选择新建

2 (2) 选择工具添加过程命令, 弹出添加过程对话框, 如图 5.2 所示 (3) 在名称文本框内输入模块名称, 如 showmsg 在类型选项区域中选择子程序单选按钮, 在范围选项框中选择公有的单选按钮单击确定按钮 (4) 在模块编辑窗体可见自动添加 showmsg 子过程, 如图 5.3 所示图 5.1 添加模块对话框图 5.2 添加过程对话框图 5.3 模块编辑窗口方法二 : (1) 选择工程添加模块命令, 弹出代码编辑窗口 (2) 手动输入子过程名称, 按下 Enter 键后显示如下代码 Sub showmsg() (3) 在 Sub 和之间手动输入代码示例 5-1 创建显示信息 showmsg 过程 (1) 新建一个工程, 并新建一个窗体 (2) 选择工程添加模块命令, 打开添加模块对话框选择新建模块图标, 单击打开按钮, 弹出模块编辑对话框 (3) 选择工具添加过程命令在名称文本框内输入模块名称, 如 showmsg 在类型选项框中选择子程序单选按钮, 单击确定按钮 (4) 在模块编辑窗体可见自动添加 showmsg 子过程输入以下代码 : Public Sub showmsg(smsg As String) MsgBox smsg 51

3 第 1 篇开发基础说明 : 该代码运行弹出信息对话框, 显示变量 smsg 中文字信息至此, 一个子过程创建结束过程必须被调用才可以执行过程中的代码调用 Sub 过程调用 Sub 过程主要使用 Call 语句或过程名 + 参数形式调用用 Call 语句调用子过程, 其标准语法如下 : Call SubName [Arglist] 参数说明 :Call 关键字为必需项 ;SubName 为子过程名称 ;Arglist 参数列表为可选项过程名 + 参数形式调用, 其标准语法如下 : SubName [Arglist] 参数说明 :SubName 为子过程名称 ;Arglist 参数列表为可选项示例 5-2 调用显示信息 showmsg 子过程 (1) 新建一个工程, 并新建一个窗体 (2) 双击工具箱中的 CommandButton 图标, 自动在窗体添加一个 CommandButton 控件, 设置 caption 属性为显示过程双击显示过程按钮, 弹出代码编辑窗口在左侧对象下拉列表框中选择 Command1 选项, 在右侧过程下拉列表框中选择 Click 事件 (3) 输入以下代码 : Call showmsg(" 这是第一个子过程 ") 或 Showmsg " 这是第一个子过程 " 说明 : 该子过程可以单击显示过程按钮调用在示例 5-1 中创建的子过程 showmsg, 弹出信息对话框这是第一个子过程使用 Sub Main Sub Main 是一个特殊的子过程, 可以控制应用程序的开始与结束应用程序启动时必须设置启动窗体或 Sub Main 过程启动窗体作为第一个显示窗体, 控制其他应用程序窗体的显示 Sub Main 中通过控制代码流程, 选择顺序启动窗体一般情况下,Windows 应用程序都有一个 Splash 窗体, 显示程序名称版本号和公司名称等相关信息 1. 设置启动窗体在默认情况下, 应用程序中的第一个窗体被指定为启动窗体当应用程序开始运行时, 此窗体就被显示出来如果想在应用程序启动时显示别的窗体, 那么就得改变启动窗体要改变启动窗体, 按照以下步骤执行 (1) 选择工程工程属性命令, 在弹出的工程属性对话框中选择通用 52

4 选项卡 (2) 在启动对象列表框中, 选取要作为新启动窗体的窗体, 如 Form1 窗体 (3) 单击确定按钮, 关闭工程属性对话框 2. 无启动窗体时启动无启动窗体时, 必须使用 Sub Main 过程欲将 Sub Main 过程设为启动对象, 可选择工程工程属性命令在弹出的工程属性对话框中选择通用选项卡, 从启动对象列表框中选定 Sub Main 选项输入代码如下 : 01 Sub Main() 02 Dim intstatus As Integer 03 ' 调用一个函数过程来检验用户状态 04 intstatus = GetUserStatus 05 ' 根据状态显示某个启动窗体 06 If intstatus = 1 Then 07 frmmain.show ' 显示主窗体 08 Else 09 frmpassword.show ' 显示登录窗体 10 End If 11 在 Visual Basic 应用程序开发中, 如果程序非常复杂, 最好调用 Sub Main 过程设定为启动过程设定过程作用范围 Sub 过程创建时需要设定过程作用域作用域就是过程的作用范围一般情况下, 包括以下作用域 1. 公共过程在定义过程时使用 Public 关键字, 该过程在整个程序中可以被调用使用 Public 关键字可以允许一个窗体或模块中的过程被其他窗体或模块调用声明公共过程必须要为其设定唯一名称 2. 局部过程在定义过程时使用 Private 关键字, 该过程在定义的窗体或模块中可以被调用使用 Private 关键字不允许一个窗体或模块中的过程被其他窗体或模块调用声明局部过程在当前作用域必须要为其设定唯一名称该作用域优点是节省了系统资源, 缺点是无法被其他程序调用 3. 静态变量过程应用程序开发时, 变量在过程中创建并使用, 当过程终止时自动清空该变量个别情况希望保留变量值以备将来调用过程时使用, 可以使用 Static 关键字将其声明为静态变量静态变量在运行时自动保存变量数值, 如打印机报表页码变量就是这样一种静态变量 53

5 第 1 篇开发基础注意 : 作用域的使用可以节省资源提高效率尽量使用局部过程或函数, 减少使用公共过程和静态变量过程,Visual Basic 可以更加有效地管理内存 5.2 块与块之间的关系传递参数 Visual Basic 提供了非常灵活的传递参数方式, 允许使用可选参数和可变参数, 使用传值引用和传地址引用方法传递的 Arglist 参数的标准语法如下 : [Optional] [ByVal ByRef] [ParamArray] varname[( )] [As type] [= defaultvalue] 参数说明 : Optional 为可选项, 表明传递的参数不是必需的如果使用了该关键字, 则 Arglist 中的后续参数都必须是可选的, 且使用 Optional 关键字声明如果使用了 ParamArray, 则任何参数都不能使用 Optional 声明 ByVal 为可选项, 表明传值引用参数 ByRef 为可选项, 表明传地址引用参数 ParamArray 为可选项, 可选的只用于 Arglist 的最后一个参数, 指明最后这个参数是一个 Variant 类型的 Optional 数组使用 ParamArray 关键字可以提供任意数目的参数 ParamArray 关键字不能与 ByVal ByRef 或 Optional 一起使用 Defaultvalue 为可选项, 表明预先赋予参数默认值可选参数和可变参数可选参数表明指定参数是否可选可变参数表明接受任意数目的参数 1. 可选参数过程中可能接受指定参数范围内的一个或几个参数如果为可选参数, 可以使用 Optional 关键字来声明, 并在过程中使用 Ismissing 函数来判断是否传递可选参数示例 5-3 创建 Multi 过程本示例将定义 3 个参数, 最后一个为可选参数, 计算 3 个数的乘积并调用 msgbox 函数显示计算结果 (1) 新建一个工程, 并新建一个窗体 (2) 选择工程添加模块命令, 打开添加模块对话框在新建选项卡中选择模块图标, 单击确定按钮, 弹出模块编辑对话框 (3) 选择工具添加过程命令, 弹出添加过程对话框 (4) 在名称文本框内输入模块名称, 如 multi 在类型选项框中选择子程序单选按钮, 单击确定按钮 (5) 在模块编辑窗体可以看见自动添加 multi 子程序在 Sub 和之间手动输入以下代码 01 Public Sub multi(a As Integer, b As Integer, Optional c) 54

02 Dim s As Integer ' 声明变量 03 s = a * b ' 赋予变量 04 ' 使用 ismissing 语句判断参数是否包含内容 05 If Not IsMissing(c) Then 06 s = s * c 07 End If 08 MsgBox " 数字乘积为 : " & s ' 显示信息 09 说明 : 本例过程定义 3 个参数 a b c, 其中 c

6 02 Dim s As Integer ' 声明变量 03 s = a * b ' 赋予变量 04 ' 使用 ismissing 语句判断参数是否包含内容 05 If Not IsMissing(c) Then 06 s = s * c 07 End If 08 MsgBox " 数字乘积为 : " & s ' 显示信息 09 说明 : 本例过程定义 3 个参数 a b c, 其中 c 为可选参数当调用 multi 过程时, 首先计算 a 和 b 乘积并赋予变量 s 使用 Ismissing 函数来判断参数 c 是否存在如果参数存在, 继续计算 s 与 c 的乘积并赋予 s 最后调用 msgbox 函数显示最后 3 个参数的乘积结果 (6) 双击工具箱中的 CommandButton 图标, 自动在窗体中添加一个 CommandButton 控件, 设置 caption 属性为可选参数乘积 (7) 双击可选参数乘积按钮, 弹出代码编辑窗口输入代码如下 : Call multi(12, 3) Call multi(12, 3, 2) ' 调用子程序说明 : 该过程首先进行前两个参数乘积计算, 然后用 IsMissing 关键字来判断第 3 个参数是否为可选如果可选, 继续进行乘积计算, 否则跳过 2. 可变参数在函数中如果指定参数个数, 则应与函数说明的个数相等, 并对应被传递 Visual Basic 中可能传递可变参数个数可以使用 ParamArray 来表明函数将接收任意数目的可变参数示例 5-4 创建接收不定参数计算乘积的 multi_more 过程该示例将改写 5-3 示例中代码计算不定参数的乘积 (1) 选项工具添加过程命令, 弹出添加过程对话框 (2) 在名称文本框内输入模块名称, 如 multi_more 在类型选项框中选择子程序单选按钮, 单击确定按钮 (3) 在模块编辑对话框中可以看见自动添加 multi_more 子过程在 Sub 和之间手动输入以下代码 01 ' 声明使用 ParamArray 关键字表明可变参数 02 Public Sub multi_more(paramarray nums()) 03 Dim s as Integer,x as Variant 04 s = 1 05 For Each x In nums ' 遍历数组内容 06 s = s * x ' 运算表达式 07 Next x 08 MsgBox " 这是可变参数计算乘积为 :" & s ' 显示信息 09 (4) 双击工具箱中的 CommandButton 图标, 自动在窗体中添加一个 CommandButton 控件, 设置 caption 属性为可变参数乘积 (5) 双击可变参数乘积按钮, 弹出代码编辑窗口输入代码如下 : 55

7 第 1 篇开发基础 Call multi_more(1, 2, 4, 5, 6) 说明 : 该过程将多个可变参数乘积进行计算, 并在窗体上显示最后结果传值引用和传地址引用传值引用表明传递变量副本传地址引用表明读取变量内存地址访问变量数值 1. 传值引用 Byval 关键字表明为传值引用该关键字只传递变量的副本如果过程更改此变量数值, 则该改动只影响副本, 不影响变量本身标准语法如下 : Sub prog(byval a as integer) ' 添加代码 2. 传地址引用 Byref 关键字表明为传地址引用该关键字传递变量内存地址去访问实际变量内容通过过程可以永远改变传递变量值传地址引用为 Visual Basic 默认的传递方式其标准语法如下 : Sub prog(byref a as integer) ' 添加代码示例 5-5 传值和传地址引用过程, 传递数值并计算两个数值之和 (1) 选择工具添加过程命令, 弹出添加过程对话框 (2) 在名称文本框内输入模块名称, 如 Sub_ref 在类型选项框中选择子程序单选按钮, 单击确定按钮 (3) 在模块编辑对话框中可见自动添加的 Sub_ref 子过程在 Sub 和之间手动输入以下代码 Public Sub Sub_ref(ByRef a As Integer) a = a + 10 ' 声明使用 ByRef 关键字传地址引用 ' 运算表达式 (4) 再添加一个过程, 名称为 Sub_val 输入代码如下 : Public Sub Sub_val(Byval a As Integer) a = a + 10 ' 声明使用 ByVal 关键字传值引用 (5) 双击工具箱中的 CommandButton 图标, 自动在窗体中添加一个 CommandButton 控件, 设置 caption 属性为传值和传地址双击传值和传地址按钮, 弹出代码编辑窗口输入代码如下 : 01 Private Sub Command1_Click() ' 按钮单击事件 02 Dim a As Integer ' 声明变量 56

8 03 Dim b As Integer 04 a = 10 ' 赋予变量数值 05 b = Call Sub_ref(a) ' 调用子程序 07 Print " 传地址引用结果为 :" & a ' 显示结果 08 Call Sub_val(b) 09 Print " 传值引用结果为 :" & b 10 说明 : 该过程都是将参数加 10, 最后显示结果明显不同 Sub_ref(a) 过程计算结果为 20, 而 Sub_val(b) 过程计算结果为 10, 说明传值应用不改变变量值, 而传地址引用改变变量值 5.3 函数函数为编辑代码时可以被程序调用带有返回值的代码段本节将介绍函数定义和使用方法定义函数 Function 过程又被称为函数过程, 与 Visual Basic 内置函数完全相同函数与子过程区别为, 函数带有返回值, 而子过程没有返回值定义函数的标准语法如下 : [Public Private Static] Function Name [(Arglist)] [As type] [statements] [Name = Expression] [Exit Function] [statements] [Name = Expression] End Function 参数说明 :Name 为必需项, 作为调用函数名称 Arglist 为可选项, 作为参数列表参数列表格式如下 : [ByVal ByRef] varname [As type] 其中,ByVal 和 ByRef 表明引用方式,ByVal 为传值引用,ByRef 为传地址引用区别在于传值引用返回值不变, 传地址引用可以更改返回值默认是 ByRef 传地址引用 Statements 为可选项, 可以为函数过程和代码 Name=Expression 为可选项, 为函数返回值 Exit Function 为可选项, 可以从当前 Function 过程中退出程序从调用该 Function 过程的语句之后的语句执行在 Function 过程的任何位置都可以使用 Exit Function 语句 End Function 为必需项, 表明函数过程结束添加函数和添加过程非常相似, 注意在类型选项框中选择函数单选按钮示例 5-6 创建返回两个参数之和的 calc() 函数该函数可以计算 a 和 b 的总和, 并 57

9 第 1 篇开发基础作为函数返回值返回程序 (1) 选择工程添加模块命令, 打开添加模块对话框新建一个模块 (2) 选择工具添加过程命令, 打开添加过程对话框在名称文本框内输入模块名称 calc 注意, 在类型选项框中选择函数单选按钮, 范围选择公有的单选按钮模块编辑对话框自动添加以下代码 Public Function calc() End Function (3) 手动添加两个参数, 定义一个返回值代码修改如下 : 01 Public Function calc(byref a As Integer, ByRef b As Integer) As Integer 02 'calc 为返回值 03 calc = a + b 04 End Function 设定函数作用范围函数创建以后, 要设定使用范围以及是否可以被其他程序调用函数包括以下作用域 1. 公共函数如果希望函数在整个程序中可以被调用, 需要在定义函数时使用 Public 关键字使用 Public 关键字可以允许一个窗体或模块中的函数被其他窗体或模块调用声明公共函数必须要为其设定唯一名称 2. 局部函数如果希望函数在定义的窗体或模块中可以被调用, 需要在定义函数时使用 Private 关键字使用 Private 关键字不允许一个窗体或模块中的函数被其他窗体或模块调用声明局部函数在当前作用域必须要为其设定唯一名称局部函数优点是减少占用系统资源, 缺点是无法被其他作用域调用 3. 静态变量函数应用程序运行时, 变量在函数中创建并使用, 当程序终止时自动清空该变量个别情况希望保留变量值以备将来调用函数时使用, 可以使用 Static 关键字将其声明为静态变量静态变量在运行时自动保存变量数值, 如打印机报表页码变量就是这样一种静态变量调用函数函数调用和过程调用基本相似, 唯一不同之处在于函数可以有返回值如果无返回值, 可以用 Call 语句调用函数其标准语法如下 : Call funname [Arglist] 参数说明 :Call 关键字为必需项 FunName 为函数名称 Arglist 参数列表为可选项如果有返回值, 使用函数名 + 参数形式调用其标准语法如下 : 58

10 Return=funName [Arglist] 其中,Return 为必需项 funname 为函数名称 Arglist 参数列表为可选项示例 5-7 调用 Calc() 函数, 返回值为两个参数之和该函数可以计算 a 和 b 的总和, 并作为函数返回值返回程序 (1) 双击工具箱中的 CommandButton 图标, 自动在窗体添加一个 CommandButton 控件, 设置 caption 属性为求和函数双击求和函数按钮, 弹出代码编辑窗口在左侧对象下拉列表框中选择 Command1 选项, 右侧过程下拉列表框中选择 Click 事件输入以下代码 : 01 Private Sub Command1_Click() ' 按钮单击事件 02 Dim smsg As String ' 声明变量 03 smsg = "a 和 b 总和为 :" 04 ' 调用函数计算 05 Dim n As Integer 06 n= calc(12, 56) 07 Print smsg & n ' 显示信息 08 (2) 该函数采用 n=calc(12,56) 的方式返回数值, 并在窗体上显示出来最后结果为传递参数和返回值函数传递参数的方法与过程完全相同, 在此不再赘述函数与过程最重要的区别是函数有返回值函数的数据类型决定其返回值的数据类型可以在 Arglist 之后使用 As 关键字来指定函数返回值的数据类型在 Arglist 中, 可以使用 As 子句来指定任何传给该过程的参数的数据类型不但可以指定为任何标准数据类型, 还可以在 Arglist 中指定 As Any 来禁止类型检查, 从而允许将任意数据类型传递给该过程示例 5-8 创建计算矩形面积 rect 函数该函数可以计算矩形面积, 并作为函数返回值返回程序 (1) 选择工程添加模块命令, 打开添加模块对话框新建一个模块 (2) 选择工具添加过程命令, 在名称文本框内输入模块名称 rect 注意, 在类型选项框中选择函数单选按钮, 范围选择公有的单选按钮模块编辑对话框自动添加以下代码 Public Function rect() End Function (3) 手动添加两个参数, 定义一个返回值代码修改如下 : 01 Public Function rect(byref a As Integer, ByRef b As Integer) As Integer 02 rect = a * b 03 End Function (4) 双击工具箱中的 CommandButton 图标, 自动在窗体添加一个 CommandButton 控件, 设置 caption 属性为矩形面积, 双击矩形面积按钮, 弹出代码编辑窗口, 左侧对象选择 Command1, 右侧过程选择 click 过程输入以下代码 : 59

11 第 1 篇开发基础 01 Private Sub Command1_Click() ' 按钮单击事件 02 Dim n As Integer ' 声明变量 03 Dim a As Integer 04 Dim b As Integer 05 a = 12 ' 赋值变量 06 b = ' 调用 rect 函数计算 08 n = rect(a, b) 09 Print " 矩形面积为 :" & n 10 说明 : 该函数采用 n=rect(a, b) 的方式返回数值, 并在窗体上显示出来矩形面积 5.4 小结本章主要介绍了过程和函数的定义, 以及如何根据应用程序的需要调用过程和函数本章重点及难点包括过程和函数如何传递参数函数如何返回值其中, 函数传递参数和返回值结构复杂难于掌握第 6 章将介绍数组 5.5 习题创建过程函数实现计算阶乘数之和计算多个数值中最大值 (1) 创建 Countall 过程计算阶乘数之和计算 1!+5!+8!+10! 总和, 并在窗体上显示计算结果新建一个工程, 并新建一个窗体, 添加一个 CommandButton 控件, 命名为计算阶乘, 打开代码编辑窗口, 输入代码如下 : 01 Private Sub Command1_Click() 02 Call Countall(1, 5, 8, 10) ' 调用计算过程 03 参考过程实现 01 Private Sub Countall(ParamArray nums()) 02 Dim total As Long, x As Variant 03 Dim n As Integer, s As Long 04 total = 0 ' 计算总和 05 For Each x In nums ' 枚举循环 06 n = 1 07 s = 1 '! 计算总和 08 For n = 1 To x 'For 循环计算 09 s = s * n 10 Next 11 total = total + s ' 计算总和赋值 12 Next x 13 Print " 总和为 " & total ' 在窗体上显示 14 60

12 程序运行时, 单击计算阶乘按钮在窗体上显示计算结果运行窗体如图 5.4 所示 (2) 创建和调用 max 函数计算最大值计算 3 个数的最大值, 并在窗体上显示计算结果添加一个 CommandButton 控件, 命名为求最大值打开代码编辑窗口, 输入以下核心代码 01 Private Sub Command2_Click() 02 Print " 三个数最大值为 :" & max(4, 25, 10) ' 显示函数返回值 03 参考函数实现 01 Private Function max(byref a As Integer, ByRef b As Integer, 02 ByRef c As Integer) 03 If a > b Then ' 显示比较值 04 max = a ' 比较大值赋值 max 05 Else 06 max = b 07 End If 08 If max < c Then ' 最大值 max 与 c 比较 09 max = c ' 结果为 true 赋值 max 10 End If 11 End Function 程序运行时, 单击求最大值按钮在窗体上显示计算结果, 如图 5.4 所示图 5.4 程序运行结果 61

Microsoft Word - 小心翼翼的二十一點N.doc

Microsoft Word - 小心翼翼的二十一點N.doc 投稿類別 : 資訊類篇名 : 小心翼翼的二十一點作者 : 陳鈺文國立瑞芳高級工業職業學校資訊二李伯謙國立瑞芳高級工業職業學校資訊二胡家媛國立瑞芳高級工業職業學校資訊二指導老師 : 周曉玲老師陳思亮主任壹前言一研究動機平