当前位置：文档之家 › 第七章 VB2009过程

第七章 VB2009过程

  • 格式：ppt
  • 大小：345.00 KB
  • 文档页数：42

下载文档原格式

  / 42

合集下载

Visual Basic程序设计VB第7章电子讲稿

Visual Basic程序设计VB第7章电子讲稿

7.1 通用过程和函数过程应用案例
If "A" <= upalp And upalp <= "Z" Then checha = True Else checha = False End If End Function
7.1.2 应用扩展 利用过程计算5！+10！。 本例利用窗体加载，再采用Print直接在窗体上输出结果。程序代码如下： 程序代码如下： Private Sub Form_load() Dim y As Long, s As Long Show Call jc(5, y) s = y Call jc(10, y) s = s + y

7.1 通用过程和函数过程应用案例


Show a = Val(InputBox("输入第一个数")) b = Val(InputBox("输入第二个数")) c = Val(InputBox("输入第三个数")) s = max(a, b) Print "三个数中的最大数是:"; max(s, c) End Sub Function max(m, n) As Single If m > n Then max = m Else max = n End If End Function
7.1 通用过程和函数过程应用案例
Call mysub1(30) End Sub Private Sub mysub1(n) Print String(n, "*") End Sub Private Sub mysub2() Print "*"; Tab(30); "*" End Sub

vb第7章过程

vb第7章过程
– (1)把实参变量用括号扩起来（变为一个表达式） – 如：Hcf((m), (n)) – (2) 在形参前加关键字ByVal来实现。
2. 按值传递参数
（【例7-8在例7-7中使用传值调 用Function过程，求两个整数的 最大公约数和最小公倍数。）
Function Hcf(m As Long, n As Long) As Long Dim r As Long, c As Long If m < n Then c = m: m = n: n = c End If r = m Mod n Do While r <> 0 m = n n = r r = m Mod n Loop Hcf = n End Function
7.1 Sub 过程
Sub Procedure
模块化 子程序（Sub） 函数（Function） 事件过程
– 对事件作出响应的程序段 –事件过程由VB自行声明，用户不能增加或删除。
通用过程
– 多个事件过程可能需要使用的一个共用过程， –通用过程只能由别的过程调用。
7.1.1 事件过程与通用过程
实现方法 : 在形参前加关键字 ByRef 来实现。 如： Function Hcf(ByRef m As Long, ByRef n
As Long) As Long
p = Hcf(Hcf(l, m), n)
1. 按地址传递参数
（【例7-7利用例7-6中的Function 过程，求任意两数的最大公约数。）
常见错误
7.3 向过程传递参数
在调用一个过程时，把实际参数传送给过程中的形 式参数，实现形参与实参的结合。 7.3.1 形式参数与实际参数 1．形式参数 定义通用过程时出现的变量名，是接收数据的。 参数表中各项之间用逗号隔开，可以是： – 合法变量名；数组名(后面跟有左、右括号的)。 要使用变长字符串(x$或x As String)作为形参， 不能用形如X As String *8 定长字符串作为形参， 2．实际参数 调用过程时，一般是传送给过程的。 实际参数表中的各项用逗号隔开，可以是：常量、 表达式、变量。

VB 第7章 过程 PPT

VB 第7章 过程 PPT

fac(n)=n! 的递归函数 Private Function fac(ByVal n As Integer) As Double If n = 0 Or n = 1 Then fac = 1 Else fac = n * fac(n - 1) End If End Function
调用程序如下：
6.3.2 按值传递
定义通用过程时，在形参表的参数前使用关键词ByVal， 称为按值传递。
按值传递就是通过数值传递实参，即传递实参的数值而不是传递 它的地址。实际上在此情况下，系统是把需要传递的变量复制到 一个临时单元中（系统中称为堆栈），然后把该临时单元的地址 传递给被调用的通用过程。调用结束后，临时单元的空间被释放。
0 1 2 3 4
y,b
注意：
(1)数组作形参时，要求实参也必须是数组且数据类型必须和形
参的数据类型相一致。传递方式只能是按地址传递。在过程中 不能用Dim语句对形参数组进行声明。 (2)在使用动态数组时，可以用ReDim语句改变形参数组的维界。 (3)调用过程时只要把传递的数组名放在实参表中即可，数组名
第七章
6.1 6.2 6.3 6.4 6.5 6.6 6.7
过程
Sub过程 Function过程 参数传递 递归 变量的作用域 多窗体与Sub Main过程 程序示例
VB中的过程
事件过程 子程序过程 通用过程 函数过程 Sub过程（即子程序） Function过程（即函数）
6.1
Sub过程
1 子过程定义 [Static][Private][Public] Sub 子过程名[(参数列表)] 局部变量或常数定义 语句 [Exit Sub] 语句 End Sub 2．建立Sub过程 (1)利用“工具”菜单下的“添加过程”命令建立

《VB》第七章 过程

《VB》第七章 过程

11
第七章 过程
变量的作用域及其声明方式 ：
作用域 声明位置 关键字 能否给本模块的其 它过程访问 能否给本应用程序 的其它模块访问 生命周期 局部变量 过程 Dim或Static 不能 不能
用Dim时：调用过程 时产生并分配存储单 元；过程结束后消失， 释放占用的存储单元
窗体 / 模块级变量 窗体或标准模块 的“通用声明”段 Dim或Private 能 不能
20
第七章 过程
利用递归算法求阶乘
分析：
n!=n*(n-1)! (n-1)!=(n-1)*(n-2)! (n-2)!=(n-2)*(n-3)!
递归过程：
fac(4)=4*fac(3) 递推→ ← 回归 fac(4)=4*6 fac(3)=3*2 fac(2)=2*1
21
fac(3)=3*fac(2)
22
第七章 过程
采用递归算法的条件
可以把一个问题转化为一个新的问题，而此新 问题的解法与原问题相同，只是所处理的对象 有所不同，但也只是有规律地递增或递减 可以通过转化过程使问题得以解决 要有一个明确的结束条件，否则递归会无休止 地进行
23
若干 (0-n) 个 标准模块文件 （*.Bas）
若干 (0-n) 个 用户自定义过程
若干 (0-n) 个 类模块文件 （*.Cls）
9
第七章 过程
10
第七章 过程
过程的作用域及其声明方式 ：
作用域 声明位置 关键字 能否给本模块的其它过程调用 能否给本应用程序的其它模块调用 窗体 / 模块级 窗体或标准模块 Private 能 不能 全局级 窗体或标准模块 Public或缺省 能 能
13
第七章 过程
参数

vb第七章.过程

vb第七章.过程
[格式]
[Public|Private][Static]Sub 过程名([ 形式参数列表])
[局部变量或符号常量的声明] [语句序列]
[Exit Sub]
End Sub
7.2.2 通用子过程的调用 调用通用子过程的语句 [Syntax1] Call 过程名 ([实际参数列表]) [Syntax2] 过程名 [实际参数列表] 演示2：无参过程的创建和调用.
2. 实际参数（Calling Argument) 实参可以是常量、变量、表达式、数组等。 实参和形参具有一一对应的关系: 实参和形参的个数相等、顺序位置一一对应、类型相符 例如：
Sub mySub(g As String, t As Integer, s() As Integer)
Call mySub( “hello”, 256 , Array1 )
7.6.1 窗体模块
1. 窗体模块保存在扩展名为.frm 的文件中
2. 窗体模块包含三部分内容： 1）变量、常量的声明 2）通用过程 3）事件过程
3. 添加多个窗体
7.6.2 标准模块 1 .标准模块
1）标准模块保存在扩展名为.bas 的文件中. 2）标准模块通常包含: sub 过程和、function 过程和声明部分。 3）添加模块 2.启动过程 Sub Main
实验六-2: 编写一个计算阶乘的函数fact, 并求1！+2！+3！ +….n! 的结果， 点击“计算“按钮将结果显示在窗体上。
举例2 编一个函数，任意输入一个数，判断并在窗体上显示它是否是平方数
7.2 通用子过程（Sub）
7.2.1 通用子过程的定义
创建方法1: 利用 “工具” 菜单下的 “添加工程” 命令 创建方法2: 在代码编辑窗口中直接定义

VB 第七章过程课件.ppt

VB 第七章过程课件.ppt

x1
X7
x2
定义函数过程area求三角形面 积，然后多次调用多边形面积。
S1 x3 x5 S3
S2
x4
x6 Public Function Area(x!, y!, z As Single) As Single Dim d As Single d = 1 / 2 * (x + y + z) 'x、y、z三角形边长 Area = Sqr(d * (d - x) * (d - y) * (d - z))
7.1.1 Function过程的定义
【格式】
[Public|Private|Static]Function函数过程名([参数列表])[As类型]
［语句块］ [函数过程名=返回值] [Exit Function] 过程体或函数体 [函数过程名=返回值] [语句块］ End Function 【例】 private function abc(m%,n as integer , k%) as integer k=m+n：abc=k end function
7.3.2
传址与传值
7.3 参数传递
方式：按地址传递（引用）与按值传递 传址：形参得到的是实参的地址，当形参值改变的同 时也改变实参的值。 传值：形参得到的是实参的值，形参值的改变不会 影响实参的值。
传值 实参 a 5 5 a 传址 5
形参 ByVal x
x a的地址
7.3 参数传递
注意：如果调用过程语句中的实际参数是常量或表达式，或者 定义过程时选用ByVal关键字，就可以按值传递。如果调用过 程语句中的实际参数是变量，就可以按址传递。除非另作说明， 否则缺省按址传递参数。 说明： a)传值调用时，子程序中的变量名即使与主程序中的变量 名相同，但存储在不同的内存单元。即执行程序时即使其内容 发生变化，主程序中的变量内容并不会随之改变。 b)当要求按值传递参数时，调用时，可将传值变量用( ) 括起来变成表达式。例如，Call prod((a), (b), (c)) c)采用传值调用，参数只能从外界向过程（函数）传入信 息，但不能传出；而按址参数传递则即能传入、又能传出。

VB 第07章+过程


子程序——被调用的程序称为子程序。
注意：主程序和子程序的概念是相对的。 子程序的用途： （1）缩短程序的长度（但不缩短程序执行的时间）。 （2）改善程序的结构和可读性。 （3）将通用程序编成子程序后构成程序库。
子程序的定义
1、利用“工具”菜单下的“添加过程”命令定义
子程序的定义
2、在代码窗口直接定义 [Private | Public][Static] Sub 子程序名 [(参数列表)] [局部变量或常数定义] [语句序列]
注意：当参数是数组类型、记录类型或对象类型时，只能使
用按地址传递参数的模式。
看一个例子
Sub Swap1(ByVal x%, ByVal y%) t% = x x x=y y y=t End Sub t Sub Swap2(x%, y%) t% = x x=y y=t End Sub
10 20
x
y t
第二步：再进行主程序的设计。
注意：具体编程时，一般是先编写主程序，再编写子程序。
求组合数
Private Sub Command计算_Click()
Dim n As Integer, m As Integer, c As Single, j As Long m = TextM.Text n = TextN.Text jch n, j c=j jch m, j c=c/j jch n - m, j TextC.Text = c / j End Sub
3、使用传地址模式进行参数传递。
4、在被调过程中可使用 Lbound 和 Ubound 函数来确定实 参数组的下、上界。函数的形式如下： {L|U}bound(数组名[，维数]) 其中：维数指明要求是第几维的下标值，缺省是一维数组。

VB第7章 过程


(9) Sub过程不能嵌套定义，即在Sub过程中 不可以再定义Sub过程或Function过程， 但可以嵌套调用。
第7章 过程
36
2．建立Sub过程
(1)第一种方法： (a) 在代码窗口的对象列表框中选“通用”，并在 文 本编辑区空白处键入“Private Sub”或“Public Sub”； (b) 按Enter键，即
创建一个Sub过程。
第7章 过程
37
(2)第二种方法：
2.选择“工 1.打开代码 具”菜单 编辑器窗口 的“添加 过程”
3.输入过程名; 选定过程 类型; 选择过程的应用 范围
第7章 过程
38
7.2 Function过程定义
Visual Basic的函数： 1、内部函数 2、Function语句编写的函数（过程）
第7章 过程
33
[Optional][ByVal][ByRef] 变量名[()] [As数据类型]
ByVal ： 表明其后的形参是按值传递参数 ByRef ： 其后的形参是按地址传递（默认方式） 变量名[( )]：变量名后无括号则表示该形参是变量， 否则是数组。
As数据类型：该选项用来说明变量类型，若缺为变体 变量型。
Private Sub Area
定义;形参 ’定义通用过程
(X As Single, Y As Single, Z As Single, S As Single) Dim p As Single
p = (X + Y + Z) / 2
S = Sqr(p * (p - X) * (p - Y) * (p - Z)) End Sub Private Sub Form_Click() …... Call Area(3,4,5,S) ’调用通用过程

VB-第7章 过程和函数.ppt

• Sub过程的建立方法与Function过程的建立方法相同，可以 在代码窗口中直接输入，也可通过执行“工具”菜单中的 “添加过程”命令生成过程模板。
119 9
Sub过程的调用
定义一个Sub过程之后，必须使用Call语句调用该过程。 调用格式一：Call <过程名> [(<实参表>)] 调用格式二：<过程名> [<实参表>]
• 事件过程由VB预先定义，编程人员所要做的工作就是在已 经存在的过程中编写代码。 减少代码的重复性，将重复性较大的代码段独立出来形成 一个过程，这种独立定义的过程叫做“通用过程”。
• 通用过程由编程人员建立，供事件过程或其他通用过程使 用(调用)，通用过程也称为“子过程”或“子程序”，可以 被多次调用。而调用该子过程的过程称为“调用过程”。
·<过程名>：要调用的Sub过程名。 ·<实参表>：要传送给Sub过程的常量、变量或表达式，各参 数之间用逗号分隔。如果是数组参数，则要在数组名之后跟 一对空括号。 ·用Call语句调用一个Sub过程时，如果过程本身没有参数， 则省略<实参表>和括号。 ．格式二省略了Call关键字，同时<实参表>两边也不能带括 号。
• Private：可选项。使用Private时表示只有本模块中的其他 过程才可以调用该Function过程。
• Static：可选项。如果使用该选项，则VB只给过程中的所有 局部变量分配一次存储空间，即在应用程序执行期间，每次 调用该Function过程时将保留该过程中的局部变量值。若没 有使用该选项，则每次调用该Function过程时，其中的局部 变量都要被重新初始化。
117 7
Sub过程的定义

VB第7章


随机文件的优点是存取灵活，速度快，方便修改。其主要缺点是，每 个记录都必须有记录号，所以文件占用空间较大。
Visual Basic程序设计/第7章 文件
4/43
3．根据数据的编码方式分类： ASCII码文件(ASCII file)又称文本文件，文件中 的数据都是以ASCII码字符的方式存储的， 二进制文件(Binary file)是指文件的数据以二进制 的方式存储，占用空间较小。
Visual Basic程序设计/第7章 文件 9/43
End If Loop Close #1 mean = total / counter Print "最大值为"; maxnum Print "最小值为"; minnum Print "平均值为"; mean End Sub
‘关闭文件 ‘求出平均值 '打印结果
Visual Basic程序设计/第7章 文件
3/43
2．根据数据存取方式和组织结构分类： （1）顺序文件（Sequential File） 顺序文件一般都是普通的文本文件，文件中的记录按顺序 一个接一个存放，记录的长度可以不固定。在进行文件读写操 作时，总是从文件头开始，顺序读写，顺序文件的存储格式如 下： 顺序文件的优点是操作简单，容易使用，只要把数据一个 接一个地写入文件即可。缺点是无法任意取出某一个记录， （2）随机文件（Random Access File） 随机文件又叫直接存取文件，是由长度相同的记录集合组成，在进行 文件读取或写入时，只要给出记录号，就可以直接读取该记录或把数据存 放在指定的位置。随机文件的存储格式如下：
Visual Basic程序设计/第7章 文件
10/43
(2)Line Input #语句 格式：Line Input #文件号，字符串变量 功能：可以从顺序文件中读取一个完整的行，并把它赋给一 字符串变量。
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

该过程有两个形参，一个是数组a（后有一对空的圆括号），而另 一个是单精度变量b。 ⑵当用数组作为过程的参数时，一定要用“传地址”方式。 ⑶在过程调用时，实际参数表中的数组可以只用数组名表示，省 略圆括号也可以不省。所以，可以用下面的语句调用上述过程： call s(p(),x) 或 Call s(p,x)
函数返回值
isprime(x as integer)as boolean
Private Sub Form_Click() Dim i As Integer, count As Integer count = 0 For i = 999 To 100 Step -1 If isprime(i) Then Print i; count = count + 1 If count = 3 Then Exit For End If Next End Sub Public Function isprime(ByVal x As Integer) As Boolean Dim j As Integer For j = 2 To x - 1 If x Mod j = 0 Then isprime = False Exit Function End If Next isprime = True End Function
Private Function jiecheng (ByVal x As integer) As long dim jc as long, i as integer jc=1 for i=1 to x jc=jc*i next Jiecheng=jc End Function
7.2.3 函数过程的调用
7.3.3 子程序过程的调用

1、使用call 语句：
格式：call
子程序过程名[（实在参数）]
2、把子程序过程名作为一个语句来使用：
格式：子程序过程名
[实在参数] 注意：此种方式里，没有关键字 call ，实在参 数外没有小括号。
子程序过程的调用
Private Sub max(ByVal x As Single, ByVal y As Single) If x > y Then Print x Else Print y End If End Sub Private Sub Form_Click() Dim a As single, b As single a = Val(InputBox("请输入a")) b = Val(InputBox("请输入b")) Call max(a, b) ‘第一种方法 max a,b ‘第二种方法 End Sub
传值
传地址
传值和传地址

传值
把实参的值复制给形参，对形参的的操作不会
影响到实参

传地址
把实参的地址传递给形参，即子过程的形参与
父过程的相应实参共用了相同的内存单元。对 形参的操作等价于实参的操作
7.4.4数组参数的传递
⑴在过程定义时，形参列表中的数组名后要有一对空的圆括 号（若是二维数组可在圆括号中加一个“，”号），以免 与其它变量混淆。例如，假定定义了如下过程： Sub S(a() as Integer , b as single) …… End Sub
局部变量
Private Sub Command1_Click() dim n As Integer n=n+1 Print "command1被按下了" & n & "次" End Sub
7.5.3静态变量 。

静态变量是指：
用Static
声明的变量 或过程名前加关键字Static的过程内用Dim声明 的局部变量
第七章 过程
7．1过程的概念及其分类

过程的概念 :
过程是用来执行一个特定任务的一段程序代码 这一程序段按一定的格式独立出来并被赋予相
应的名字 将一些常用的功能编写成过程，可供多个不同 的程序过程多次调用，从而可以减少重复编写 代码的工作量，实现代码重用，使程序简练、 便于调试和维护。
7．5变量与过程的作用域
变量、过程可被访问的范围。 主要取决于其所在位置及声明的方式

7.5.1 变量的作用域

根据作用域的大小可以把变量分成三类：

局部变量：在过程内用dim或static声明的变量，只能 在本过程中使用。 窗体/模块级变量：在“通用声明”段中用Dim语句或用 Private语句声明的变量,可被本窗体/模块（它所在的窗 体）的任何过程访问。 全局变量：在“通用声明”段中用Public语句声明的变 量，可被本应用程序的任何过程访问。
例7.6：用数组作参数，求一维数组中的所有负元素之和。
Function sum%(b%( )) Dim i% For i = LBound(b) To UBound(b) If b(i)< 0 Then sum = sum + b(i) End If 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 "数组中的负元素之和为：&tatic] [Public] [Private] Sub 子过程名[（参数列表）] [局部变量或常数定义] [语句序列] [Exit Sub] End Sub Private Sub max(ByVal x As Single, ByVal y As Single) If x > y Then Print x Else Print y End If End Sub


变量的声明和作用域
局部变量
Private Sub Command1_Click() Dim x% x = x + 10 Print x End Sub Private Sub Command2_Click() Dim x% Print x End Sub
局部变量和窗体模块级变量
Dim temp As Integer
7.3 SUB过程（子程序）的定义和调用
7.3.1 子程序过程的定义 [Static] [Public] [Private] Sub 子过程名[（参数列表）] [局部变量或常数定义] [语句序列] [Exit Sub] End Sub 下面就是一个简单的子程序过程： Private Sub Subexp( ) Print "This is a Sub procedure" End sub
Exit Function 语句
用来退出函数过程 一般配合分支结构(if 或者select case）使用

Exit Function 语句
求100至999之间的最大的三个素数。其中判断 一个数是否为素数的部分用函数过程实现。 设计函数过程的思路：
函数名 函数形参表
isprime( ) isprime(x as integer)
传地址（byref
Private Sub swap1(ByVal x%, ByVal y%) Dim t% t = x: x = y: y = t End Sub Private Sub swap2(ByRef x%, ByRef y%) Dim t% t = x: x = y: y = t End Sub Private Sub Form_Click() Dim a As Integer, b As Integer a = Val(InputBox("请输入a")) b = Val(InputBox("请输入b")) Print “调用前a, b的值是：", a, b Call swap1(a, b) Print “调用swap1后的a, b的值是：", a, b Call swap2(a, b) Print “调用swap2后的a, b的值是：", a, b End Sub
VB的程序结构
VB程序 工程文件（.Vbp)
窗体模块.frm （.frm 文件）
类模块.cls （.cls 文件)
标准模块.bas （.bas 文件)
声 明 部 分
子 程 序 过 程
函 数 过 程
事 件 过 程
声 明 部 分
子 程 序 过 程
函 数 过 程
图7.1 Visual Basic程序结构
Private Sub Form_Click() Dim x As Integer, mj as single x = Val(InputBox("请输入半径x")) mj = circle_area(x) ‘此语句是函数过程的调用 print mj End Sub Public Function Circle_area (ByVal r As single) As single CONST Pi=3.14159 '定义一圆周率常量Pi Circle_area = Pi*r*r '把结果赋给函数名 End Function
7．2函数过程的定义和调用

函数过程的定义
[Static][Private][Public] Function 函数过程名([参数列表]) [As 类型] 局部变量或常数定义 语句块 [函数名 = 返回值（函数值）] End Function Public Function Circle_area (ByVal r As single) As single
7.2.3 函数过程的调用
Private Sub Form_Click() Dim n As Integer, m As Integer n = Val(InputBox("请输入n")) m= Val(InputBox("请输入m")) Print jiecheng(n) / (jiecheng(m) * jiecheng(n - m)) End Sub Private Function jiecheng(ByVal x As Integer) As Long Dim jc As Long, i As Integer jc = 1 For i = 1 To x jc = jc * i Next jiecheng = jc End Function