版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、第8章 过程过程是用来执行一个特定任务的一段程序代码。VB应用程序(又称工程或项目)由若干过程组成,这些过程保存在文件中,每个文件的内容通常称为一个模块。在程序设计过程中,将一些常用的功能编写成过程,可供多个不同的事件过程多次调用,从而可以减少重复编写代码的工作量,实现代码重用,使程序简练、便于调试和维护。在VB6.0中,用户自定义过程分为:以“Sub”保留字开始的子过程、以“Function”保留字开始的函数过程、以“Property”保留字开始的属性过程、以“Event”保留字开始的事件过程。本章主要介绍用户自定义的子过程和函数过程。退出8.1 子过程8.2 函数过程8.3 参数传递8.4
2、 过程与变量的作用域8.5 鼠标事件和键盘事件8.1 子过程子过程是用特定格式组织起来的一组代码,通常用来完成一个特定的功能,可以被其它过程作为一个整体来调用。8.1.1 子过程的定义定义子过程有以下两种方法。1利用“工具”菜单下的“添加过程”命令定义2利用代码窗口直接定义在窗体或标准模块的代码窗口把插入点放在所有现有过程之外,键入Sub子过程名即可。定义一般形式如下: StaticPublic|PrivateSub 子过程名(参数列表) 局部变量或常数定义 语句序列 Exit Sub 语句序列 End Sub下面是一个子过程的例子: Sub sum(x%,y%,s%) s = x + y E
3、nd Sub8.1.2 过程的调用要执行一个过程,必须调用该过程。子过程的调用有两种方式,一种是利用Call语句加以调用,另一种是把过程名作为一个语句来直接调用。1用Call语句调用Sub过程格式:Call 过程名(参数列表)例如: Call sum(a,b,c)2把过程名作为一个语句来使用格式: 过程名参数列表与第一种调用方法相比,这种调用方式省略了关键字Call,去掉了“参数列表”的括号。例如: sum a,b,c【例8.2】编一个求n!的子过程,然后调用它计算7!+11!-10!。程序如下: Sub jch(n%,p&) Dim i% p = 1 For i = 1 To n p = p
4、 * i Next i End Sub Private Sub Form_Click() Dim a&,b&,c&,d& Call jch(7,a) Call jch(11,b) Call jch(10,c) d = a + bc Print 7!+11!-10!=;d End Sub8.2 函数过程函数过程是自定义过程的另一种形式。VB提供了许多内部函数,如Sin(),Sqr()等,在编写程序时,只需写出函数名和相应的参数,就可得到函数值。另外,VB还允许用户自己定义函数过程。同内部函数一样,函数过程也有一个返回值。8.2.1 函数的定义函数过程的定义方法也有以下两种。1利用“工具”菜单下的
5、“添加过程”命令定义2利用代码窗口直接定义在窗体或标准模块的代码窗口把插入点放在所有现有过程之外,键入Function函数名即可。定义形式如下: StaticPublic|Private Function 函数名(参数列表)As类型 局部变量或常数定义 语句序列 Exit Function 语句序列 函数名=表达式 End Function 8.2.2 函数的调用调用函数过程可以由函数名带回一个值给调用程序,被调用的函数必须作为表达式或表达式中的一部分,再与其它的语法成分一起配合使用。因此,与子过程的调用方式不同,函数不能作为单独的语句加以调用。最简单的情况就是在赋值语句中调用函数过程,其形式
6、为: 变量名=函数过程名(参数列表)【例8.3】用函数过程实现对例8-2的求解。程序如下: Function jch&(n%) Dim i% jch = 1 For i = 1 To n jch = jch * i Next i End Function Private Sub Form_Click() Dim d& d = jch(7)+ jch(11)jch(10) Print 7!+11!10!=;d End Sub8.3 参数传递在调用过程时,一般主调过程与被调过程之间有数据传递,即将主调过程的实参传递给被调过程的形参,完成实参与形参的结合,然后执行被调过程体。在VB中,实参与形参的结
7、合有两种方法:传址和传值。传址是默认的方法。两种结合方法的区分标志是“ByVal”,形参前加“ByVal”关键字时是传值,否则为传址。本章前面的举例,例8.4是传值,其余均为传址。8.3.1 传值传值的参数传递过程是:当调用一个过程时,系统将实参的值复制给形参,之后实参与形参便断开了联系。被调过程对形参的操作是在形参自己的存储单元中进行,当过程调用结束时,这些形参所占用的存储单元也同时被释放。因此在过程中对形参的任何操作都不会影响到实参。8.3.2 传址传址的参数传递过程是:当调用一个过程时,它将实参的地址传递给形参。因此在被调过程体中对形参的任何操作都变成了对相应实参的操作,因此实参的值就会
8、随形参的改变而改变。当参数是字符串或数组时,使用传址传递直接将实参的地址传递给过程,会使程序的效率提高。8.3.3 数组参数的传递数组可以作为过程的参数。过程定义时,形参列表中的数组用数组名后的一对空的圆括号表示。在过程调用时,实际参数表中的数组可以只用数组名表示,省略圆括号。当用数组作为过程的参数时,进行的不是“值”的传递,而是“址”的传递。【例8.7】用数组作参数,求一维数组中的所有负元素之和。程序如下: Function sum%(b%() Dim i% For i = LBound(b)To UBound(b) If b(i) 0 Then sum = sum + b(i) End I
9、f Next i End Function Private Sub Form_Click() Dim a%(10),s%,i% For i = 1 To 10 a(i)= Int(Rnd * 100)- 50 Print a(i); Next i Print s = sum(a() Print 数组中的负元素之和为:;s End Sub8.4 过程与变量的作用域应用程序中的过程、变量是有作用域的。所谓作用域,就是过程、变量可以在哪些地方被使用。作用域的大小和过程、变量所处的位置及定义方式有关。8.4.1 过程的作用域这里只讨论窗体和标准模块文件。过程的作用域分为:窗体/模块级和全局级。8.4.
10、2 变量的作用域变量的作用域决定了哪些子过程和函数过程可访问该变量。变量的作用域分为局部变量、窗体/模块级变量和全局变量。表8-2中列出了3种变量作用范围及使用规则。【例8.10】通过本例学习不同作用域变量的使用。在Form1窗体代码窗口输入如下程序: Private a% 窗体/模块级变量 Private Sub Form_Click() Dim c%,s% 局部变量 c = 20 s = a + Form2.b + c 引用各级变量 Print s=;s End Sub Private Sub Form_Load() a = 10 给窗体/模块级变量赋值 Form2.Show End Su
11、b添加Form2窗体,在它的代码窗口输入如下代码: Public b% 定义全局变量 Private Sub Form_Load() b = 30 给全局变量赋值 End Sub运行程序,单击Form1窗体,结果如下: s=60在本例中,我们在Form1窗体的Click事件过程中引用了Form2窗体中定义的全局级变量b,由此可以看出在代码窗口“通用声明”段中用Public定义的变量确实是在整个应用程序中起作用的。如果将Form1代码窗口中的Form_Click事件过程做如下变动: Private Sub Form_Click() Dim c%,s%,b% 局部变量 c = 20 b = 40
12、s = a + b + c Print s=;s End Sub运行结果变为: s=70结果发生了变化。原因是在VB中,当同一应用程序中定义了不同级别的同名变量时,系统优先访问作用域小的变量。上例改动后,系统优先访问了局部变量b,因此结果当然也相应地改变了。如果想优先访问全局变量,则应在全局变量前加上窗体/模块名。8.4.3 静态变量由表8-2中可知,局部变量除了用Dim语句声明外,还可用Static语句将变量声明为静态变量,它在程序运行过程中可保留变量的值。也就是说,每次调用过程后,用Static说明的变量会保留运行后的结果;而在过程内用Dim说明的变量,每次调用过程结束,都会将这些局部变量
13、释放掉。形式如下: Static 变量名 As类型 Static Function 函数名(参数列表)As 类型 Static Sub 过程名 (参数列表)若在函数名、过程名前加Static,则表示该函数、过程内的局部变量都是静态变量。【例8.11】调用函数实现变量自动增1的功能。程序如下: Private Static Function s%() Dim sum% sum = sum + 1 s = sum End Function Private Sub Form_Click() Dim i% For i = 1 To 5 Print 第 & i & 次结果为 & s() Next i E
14、nd Sub8.5 鼠标事件和键盘事件鼠标对于Windows应用程序设计来说几乎是必需的,尤其是在图形图像处理的程序设计中,显得更为重要。而鼠标应用的基础是鼠标事件。下面我们就来简单介绍一下窗体鼠标事件及其应用。8.5.1 鼠标事件除了单击(Click)和双击(DblClick)外,基本的鼠标事件还有3个:MouseDown、MouseUp和MouseMove。工具箱中的大多数控件都能响应这3个事件。MouseDown:鼠标的任一键被按下时触发该事件。MouseUp:鼠标的任一键被释放时触发该事件。MouseMove:鼠标被移动时触发该事件。以Form 对象为例,它们的语法格式为:Privat
15、e Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)【例8.12】显示鼠标指针的当前位置。程序如下: Private Sub Form_MouseMov
16、e(Button As Integer,_ Shift As Integer,X As Single,Y As Single) Text1.Text = X Text2.Text = Y End Sub运行结果如图8-6所示。8.5.2 键盘事件VB中的对象识别键盘事件,包括KeyPress、KeyUp和KeyDown事件。用户按下并且释放一个ANSI键时就会触发KeyPress事件;用户按下一个键时触发KeyDown事件,释放引发KeyUp事件。在引发键盘事件的同时,用户所按的键盘码作为实参传递给相应的事件过程,供程序判断识别用户的操作。KeyPress只响应按下标准ASCII字符表中对应的
17、键时的事件,如EnterQVFP、Tab键、Backspace键等以及标准键盘中的字母、标点、数字键等。而KeyDown和KeyUP则提供了最低级的键盘响应。它们的格式如下:Sub Object_KeyPress(Index As Integer, KeyAscii As Integer)Sub Object_KeyDown(Index As Integer, KeyCode As Integer,Shift As Integer)Sub Object_KeyUp(Index As Integer, KeyCode As Integer,Shift As Integer)【例8-14】在窗体上放一文本框,编写一事件过程,保证在该文本框内只能输入字母,且无
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2024年度年福建省高校教师资格证之高等教育心理学能力测试试卷A卷附答案
- 2024年度山西省高校教师资格证之高等教育法规每日一练试卷A卷含答案
- 四川省网约配送员职业技能竞赛理论考试题及答案
- 三年级数学计算题专项练习汇编及答案集锦
- 2024建筑施工协议代理业务规范稿
- 2024投标专用协议样本解析
- 基于网络空间安全的个人信息保护研究
- 2024年复婚二次离婚协议规范样本
- 2024专业红娘服务会员协议
- 2024年度高品质防盗门供应协议范例
- 消防安全-情系你我他
- 短视频的拍摄与剪辑
- 产品设计-浅谈智能蓝牙音响的外观创新设计
- 江苏省南京江宁联合体2023-2024学年八年级上学期期中考试英语试卷
- 快速康复外科(ERAS)护理
- 医疗机构安全检查表
- 第六章-巷道支护01
- 应急管理法律法规及国标行标清单
- 监理规划、监理细则审批表
- 香菇种植示范基地项目可行性策划实施方案
- 施工现场材料使用明细表
评论
0/150
提交评论