教案VBsub过程PPT课件
合集下载
教案VBsub过程PPT课件
精品课件
33
3．有如下函数与调用过程：
Private Sub Command1_Click() i=Val(InputBox("请输入一个数")) a=fact(i) Print a End Sub
Function fact(x As Integer)As Long
Dim P As Long，i As Integer
• Next i
• Print z
• A．ABA
B． BBABBA
• C． ABBABA D． AABAAB
精品课件
22
复习提问
2．下列定义Myfun．函数过程的语句中，( )是错误的。 A．Private Public Myfun(a) As Integer B．Static Function Myfun(a) C．Function Myfun(a As Integer)As Integer D．Private Function Myfun(a As Integer)
定义一个Sub过程之后，必须使用Call语句调用该过程。 调用格式一：Call <过程名> [(<实参表>)] 调用格式二：<过程名> [<实参表>]
·<过程名>：要调用的Sub过程名。
·<实参表>：要传送给Sub过程的常量、变量或表达式，各参 数之间用逗号分隔。如果是数组参数，则要在数组名之后跟
一对空括号。
值； (2)调用时，子过程调用是一句独立的语句。
函数过程不能作为单独的语句加以调用，必须参与表达式 运算。 (3)一般当过程有一个函数值，使用函数过程较直观；
反之若过程无返回值，或有多个返回值，使用子过程较直 观。
vb过程7.17.3
End Function
盐城工学院 Visual Basic 程序设计
7.2 Function过程
说明 Function过程以Function语句开头，以End Function语句结
束 函数名的命名同过程名 As数据类型：函数返回值的类型，缺省为变体型 函数名=表达式，通过给函数名赋值来返回函数值，缺省时，
返回对应类型的缺省值 Exit Function提前退出函数过程 函数不可嵌套定义，可嵌套调用 函数名可以作为变量使用，有返回值，不须形参返回
盐城工学院 Visual Basic 程序设计
7.3.3 函数调用
赋值语句或表达式中 变量名=函数过程名 ( [ 实在参数表 ] )
• 调用函数时，实参必须加上括号；即使是无参
第7章 过程
7.1 Sub过程 7.3 过程调用 7.5 递归过程 7.7 程序举例
7.2 Function过程 7.4 参数的传递 7.6 变量的作用域 7.8 多窗体程序设计
盐城工学院 Visual Basic 程序设计
7.1 Sub过程
窗体
Vb使用三种过程
事件过程 事件 控件
–子程序过程（Sub Procedure）
盐城工学院 Visual Basic 程序设计
7.1.2 通用过程
说明 以sub语句开始，以end sub语句结束 前缀Private、Public、Static 过程名命名规则同变量名，但必须唯一 参数列表：参数列表中的参数称为形式参数，可
以是变量名或数组名；里面可有参数（多个参数
盐城工学院 Visual Basic 程序设计
7.1.1 事件过程
窗体事件过程 Private Sub Form_事件名[(参数列表)] [局部变量和常数声明] 语句块 End Sub
盐城工学院 Visual Basic 程序设计
7.2 Function过程
说明 Function过程以Function语句开头，以End Function语句结
束 函数名的命名同过程名 As数据类型：函数返回值的类型，缺省为变体型 函数名=表达式，通过给函数名赋值来返回函数值，缺省时，
返回对应类型的缺省值 Exit Function提前退出函数过程 函数不可嵌套定义，可嵌套调用 函数名可以作为变量使用，有返回值，不须形参返回
盐城工学院 Visual Basic 程序设计
7.3.3 函数调用
赋值语句或表达式中 变量名=函数过程名 ( [ 实在参数表 ] )
• 调用函数时，实参必须加上括号；即使是无参
第7章 过程
7.1 Sub过程 7.3 过程调用 7.5 递归过程 7.7 程序举例
7.2 Function过程 7.4 参数的传递 7.6 变量的作用域 7.8 多窗体程序设计
盐城工学院 Visual Basic 程序设计
7.1 Sub过程
窗体
Vb使用三种过程
事件过程 事件 控件
–子程序过程（Sub Procedure）
盐城工学院 Visual Basic 程序设计
7.1.2 通用过程
说明 以sub语句开始，以end sub语句结束 前缀Private、Public、Static 过程名命名规则同变量名，但必须唯一 参数列表：参数列表中的参数称为形式参数，可
以是变量名或数组名；里面可有参数（多个参数
盐城工学院 Visual Basic 程序设计
7.1.1 事件过程
窗体事件过程 Private Sub Form_事件名[(参数列表)] [局部变量和常数声明] 语句块 End Sub
VB程序设计(第2版)教学课件6-1 Sub过程概述
1
① 直接调用 ② Call调用 【示例】
Sub过程调用方法
【两种调用方式】
过程名［（实参列表）］ Call 过程名［（实参列表）］
① swap(10,30)
ቤተ መጻሕፍቲ ባይዱ
② Call swap(10,30)
总
结
模块对应着过程，不同的功能模块设计不同的过程。
Sub过程的建立有两种方法。
Sub过程调用有“直接调用、Call调用”两种方法。
② 过程名：与变量名的命名规则相同。在同一模块中，不能
有相同的过程名。
③ 局部变量和常量定义：定义过程中所用变量和常量。
1
【说明】
下一语句。
Sub过程说明
④ Exit Sub语句：退出Sub过程，继续执行Sub过程语句的 ⑤ 语句块：实现过程功能的语句组，常称为过程体。
⑥ 形式参数列表：可选项，多个形参之间用逗号隔开。若无
1
【格式】
Sub过程定义格式
[Private] Sub 过程名([形式参数列表])
[局部变量和常量定义]
语句块
[Exit Sub]
End Sub
1
【说明】
Sub过程说明
① Private：定义该Sub过程是局部的。也可用Public、
Static说明。 Public--全局的、 Static--静态的。
1
Sub过程形参定义
【形参定义的格式】
[ByVal|ByRef] 变量名[()][As 数据类型] 其中：ByVal表示该参数按值传递。 ByRef表示该参数按地址传递。 默认为ByRef。
1
【按值传递
Sub过程形参定义格式
形参定义形式】
Private Sub swap(ByVal x As Integer, ByVal y As Integer) …… …… End Sub
VB课件第10章Visual Basic过程2
End Function
10.5变量和常量的作用范围
在Visual Basic 6 中，按变量的作用范 围不同，可将变量划分为三大类：
过程级局部变量 模块级变量 全局变量
1.过程级局部变量
(1) 过程级局部变量作用范围 在子过程（包括事件过程）或函数内部定义的变
量就是过程级别的局部变量，简称局部变量。 生效范围（程序设计阶段）只限于本子过程或函
数。 (2) 过程级局部变量的生存期 局部变量的生存期（程序运行阶段）当子过程或
函数被调用执行时，局部变量具有了生存期，当 过程调用结束，变量就没有生存期了 下次再调用，系统则另外为变量分配内存空间。
2.模块级变量
在窗体或标准模块的“通用”定义段 中使用Private或Dim定义的变量，
其生效范围只限于本模块，即本模块 中的所有子过程或函数均可以使用该 模块级变量。
嵌套调用与递归调用 变量的作用范围
过程级变量 窗体级变量 全局变量
10.4 嵌套调用与递归调用
1.嵌套调用： 在一个子过程或函数里面不能再定义一个
子过程或函数表明子过程与函数不能嵌套 定义，但是子过程和函数可以被嵌套调用。
例10-5:
找出1-1000中的所有完数，并且按如图所 示显示在窗口上。所谓完数就是该数的所有 因子之和（不包括本身）等于该数的数。如 6=1+2+3
Visual Basic程序设计
Visual Basic 过程
（第13周1学时）
第10章 过程
10.7 键盘与鼠标事件过程 10.1 Function函数 10.2 Sub子过程 10.3 形式参数与实际参数 10.4 嵌套调用与递归调用 10.5 变量和常量的作用范围 10.6 VB应用程序结构 习题10
10.5变量和常量的作用范围
在Visual Basic 6 中，按变量的作用范 围不同，可将变量划分为三大类：
过程级局部变量 模块级变量 全局变量
1.过程级局部变量
(1) 过程级局部变量作用范围 在子过程（包括事件过程）或函数内部定义的变
量就是过程级别的局部变量，简称局部变量。 生效范围（程序设计阶段）只限于本子过程或函
数。 (2) 过程级局部变量的生存期 局部变量的生存期（程序运行阶段）当子过程或
函数被调用执行时，局部变量具有了生存期，当 过程调用结束，变量就没有生存期了 下次再调用，系统则另外为变量分配内存空间。
2.模块级变量
在窗体或标准模块的“通用”定义段 中使用Private或Dim定义的变量，
其生效范围只限于本模块，即本模块 中的所有子过程或函数均可以使用该 模块级变量。
嵌套调用与递归调用 变量的作用范围
过程级变量 窗体级变量 全局变量
10.4 嵌套调用与递归调用
1.嵌套调用： 在一个子过程或函数里面不能再定义一个
子过程或函数表明子过程与函数不能嵌套 定义，但是子过程和函数可以被嵌套调用。
例10-5:
找出1-1000中的所有完数，并且按如图所 示显示在窗口上。所谓完数就是该数的所有 因子之和（不包括本身）等于该数的数。如 6=1+2+3
Visual Basic程序设计
Visual Basic 过程
（第13周1学时）
第10章 过程
10.7 键盘与鼠标事件过程 10.1 Function函数 10.2 Sub子过程 10.3 形式参数与实际参数 10.4 嵌套调用与递归调用 10.5 变量和常量的作用范围 10.6 VB应用程序结构 习题10
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 第七章过程课件.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过程及其调用》课件
VB过程的优化建议
01
算法优化
对VB过程使用的算法进行优化，提 高其执行效率。
并行处理
利用并行处理技术，提高VB过程的 处理能力。
03
02
资源管理
合理管理VB过程所需的资源，避免 资源浪费和过度消耗。
日志记录
加强日志记录，便于对VB过程进行 跟踪和调试。
04
VB过程的未来智能技术，使VB过程更加 智能化，能够自适应地处理各种复杂任务。
微服务化
将VB过程拆分成多个微服务，提高其可扩展性 和可维护性。
ABCD
云原生
将VB过程部署在云平台上，利用云原生技术， 实现弹性伸缩、高可用性和可维护性。
容器化
利用容器技术，为VB过程提供更加稳定和可靠 的运行环境。
VB过程通常被封装在一个可重复使用的模块中，以便在不同的应用程序或项目中重 用。
VB过程可以包含一系列的代码和逻辑，用于执行特定的任务，如数据处理、文件操 作、图形绘制等。
VB过程的分类
标准过程
标准过程是普通的VB过程，它不依 赖于任何特定的对象或控件。
事件过程
事件过程是针对特定对象或控件的事 件编写的代码块，当该事件发生时， 事件过程将被自动调用。
功能正确。
测试过程
对实现的过程进行测试 ，验证其正确性和可靠
性。
优化过程
根据需要，对过程进行 优化，提高其性能和效
率。
VB过程的参数传递
传值参数
通过值传递方式将参数传递给过程，传递的 是参数值的副本。
默认参数
为参数设置默认值，以便在调用过程时可以 省略该参数。
传引用参数
通过引用传递方式将参数传递给过程，传递 的是参数的内存地址。
VB课件7.1
（6）在Function过程内部不得再定义Sub过程 或Function过程，即不可嵌套定义。
Function过程添加
例：编写一个Function过程total，实现对一维数组元素的求和
函数名为total
Public Function total(a() As Integer) As Long Dim i As Integer 函数的返 回值类型 For i = 1 To UBound(a) 为long 函数体 total = total + a(i) Next i 函数名=表达式 End Function
过程体
7.2 Function过程
1999—2001
Function过程定义
[Privatel| Public] [Static] Function 函数名 ([ 参数 列表]) [AS数据类型] [局部变量和常数声明] [语句块]
[函数名 = 表达式]
[Exit Function] [语句块] [函数名 = 表达式] End Function
若有多个参数时，各参数之间用逗号分隔；
VB的过程可以没有参数，但一对圆括号不可以省略。 不含参数的过程称为无参过程。 形参格式为： [ ByVal ] 变量名[（）] [As 数据类型] ByVal：表明其后的形参是按值传递参数． ByRef：表明其后的形参是按地址传递参数 若形参前缺省ByVal和ByRef时，指的是按地址传 递．
3）控件事件过程
语法：Private Sub 控件名_事件名（[参数列表]） [局部变量和常数声明] 语句块 End Sub
例：Private Sub command1_click() Msgbox(“you click the command button”) End Sub
vb经典教程 ppt课件
用“格式〞菜单中的“顺序〞菜单，或用快捷菜 单。
§ 控件的画法 回忆
一、在窗体上画一个控件 二、控件的缩放和移动 三、控件的复制与删除 四、控件的布局
§1.6 使用VB的帮助系统〔补充〕
注：系统中需安装帮助文档MSDN 1. 通过“帮助〞菜单
§1.6 使用VB的帮助系统〔补充〕
2. 通过F1键
MouseDown、MouseUp等； ● 键 盘 事 件 ： KeyPress 、 KeyDown 、 KeyUp 等 。
案例程序1：用户事件 案例程序2：让所有的控件都动起来发
一、对象的属性、事件和方法
2．事件〔Events〕 ②系统事件(System Events)：由系统内部引起的 事件，如：定时信号：由计时器控件Timer；
启动Visual Basic
1．启动Visual Basic
开始程序……
2．第一个界面：
新建工程对话 框……
一、VB的集成开发环境
有标题栏、菜单栏、工具栏、工具箱、工程窗口、属性窗口、 窗体设计器、代码窗口、立即窗口、窗体布局窗口等。
工具箱
窗体设计器
工程资源 管理器
属性窗口
窗体布局 窗口
二、控件工具箱
多个对象的相同属性可一次设定。 四、编写代码：
事件代码的头和尾绝不允许自己去写！
VB可视化编程的实例
五、运行工程： 三种方式：①菜单、②工具栏、③快捷键F5
六、修改工程：
1． 给按钮定义热键； 2． 给按钮添加图片。
七、保存工程： 将同一个工程中的所有文件保存在同一个文件夹
中，不同工程中的文件保存在不同的文件夹中。 八、工程的编译：
二、VB的控件
控件是VB中预先定义好 的、在程序中能够直接使用 的对象。每个控件都有自己 的属性、事件和方法，可在 设计时或在代码中修改或使 用。工具箱中的每个控件都 以图标的形式来表示。
§ 控件的画法 回忆
一、在窗体上画一个控件 二、控件的缩放和移动 三、控件的复制与删除 四、控件的布局
§1.6 使用VB的帮助系统〔补充〕
注：系统中需安装帮助文档MSDN 1. 通过“帮助〞菜单
§1.6 使用VB的帮助系统〔补充〕
2. 通过F1键
MouseDown、MouseUp等； ● 键 盘 事 件 ： KeyPress 、 KeyDown 、 KeyUp 等 。
案例程序1：用户事件 案例程序2：让所有的控件都动起来发
一、对象的属性、事件和方法
2．事件〔Events〕 ②系统事件(System Events)：由系统内部引起的 事件，如：定时信号：由计时器控件Timer；
启动Visual Basic
1．启动Visual Basic
开始程序……
2．第一个界面：
新建工程对话 框……
一、VB的集成开发环境
有标题栏、菜单栏、工具栏、工具箱、工程窗口、属性窗口、 窗体设计器、代码窗口、立即窗口、窗体布局窗口等。
工具箱
窗体设计器
工程资源 管理器
属性窗口
窗体布局 窗口
二、控件工具箱
多个对象的相同属性可一次设定。 四、编写代码：
事件代码的头和尾绝不允许自己去写！
VB可视化编程的实例
五、运行工程： 三种方式：①菜单、②工具栏、③快捷键F5
六、修改工程：
1． 给按钮定义热键； 2． 给按钮添加图片。
七、保存工程： 将同一个工程中的所有文件保存在同一个文件夹
中，不同工程中的文件保存在不同的文件夹中。 八、工程的编译：
二、VB的控件
控件是VB中预先定义好 的、在程序中能够直接使用 的对象。每个控件都有自己 的属性、事件和方法，可在 设计时或在代码中修改或使 用。工具箱中的每个控件都 以图标的形式来表示。
vb第六章(过程).ppt
If a<b Then
call swap(a,b)
‘过程的调用, 或swap a,b
End If
(主调过程)
Print a,b
End Sub
求组合数
Cmn
m! n!(m
n)!
'定义求阶乘的Sub子过程fac Private Sub fac(ByVal n As Integer, f As Long) ‘过程定义
End If j=j+2 Loop End Sub
‘用For循环如何实现？
四、参数的传递
参数传递：调用时把实参的值或地址传递给形参 。
1. 形参和实参 2. 按值传递与按地址传递 3. 数组参数的传递
1.形参和实参 （1）形参（形式参数）
出现在被调过程(定义Sub子过程或 Function函数过程)的形参表中的变量名 （除定长字符串变量外）、数组名。
见 求组合数 .vbp
三. Function函数过程的定义及其调用
函数过程是带有返回值的特殊过程。
1、定义
[Public|Private][Static] Function 函数名([参数列表]) [AS 类型]
局部变量或常数定义 语句块 函数名=表达式 [Exit Function ] 语句块 函数名=表达式
Dim i As Integer f=1 For i = 1 To n
f=f*i Next i End Sub
' “=”的click事件
Private Sub Command1_Click()
Dim m As Integer, n As Integer
Dim fm As Long, fn As Long
VB过程及其调用ppt课件
a=val("sdf23and34) 返回值是0
实例：
分别定义function过程和sub过程求 一个矩形的面积和周长！
求周长 private sub zc(lenth as double,width as double ) c=(lenth+width)*2 end sub 求面积 private function area(lenth as double,width as double) as double s=lenth*width end sub
过
通用过程
程
事件过程
Function过程 sub过程
总结
拓展：
Val函数 变量的作用域 模块的作用域
重点：能够自定义
sub过程和function过 程，能够根据需要自 由调用两个过程！
此课件下载可自行编辑修改，供参考！ 感谢您的支持，我们努力做得更好！
过程的作用域
因为在VB中代码是模块化的，所以不同的模块就需 要不同的过程，过程是有作用域的。
模块级过程是在某个模块内定义的过程，在定义 sub过程和Function过程时选择Private关键字，该 过程仅限于本模块中调用。（窗体模块，类模块）
全局级过程又称工程级过程，是指在定义sub过程 和Function过程时选择Public关键字或缺省选择， 作用域为整个工程，可被该工程中的所有过程调用。
1:事件过程
注意事项：
（1） ：事件过程只能放在窗体模块中
（2）：<语句组>为处理事件而编写的程序过 程
（3）：可以通过双击对象，然后在代码视图 下选择相应的事件的方法来自动生成事件过 程。
通用过程
当多个不同的事件过程需要执行 一段相同的代码，为了避免代码 的重复，把这段代码独立出来， 作为一个过程，这样的过程称为 通用过程。可见，通用过程是多 个事件过程的，相同之处、公共 部分。
VB实验11 Sub过程
下一页
退 出
第4 页 Visual Basic程序设计实验指导
二、预备知识
目的和要求 预备知识
上一页
下一页
退 出
定义Sub过程的一般形式如下： [Private | Public] [Static] Sub <过程名 >（[<形式参数列表>]） [过程级变量和常量声明] 语句块 [Exit Sub] 语句块 End Sub
第8 页 Visual Basic程序设计实验指导
二、预备知识
目的和要求 预备知识
上一页
下一页
退 出
通常情况下（指没有可选参数的情况下），实 参与形参的个数必须相等，实参与形参的数据传 递是按位置传递的，而不是按名字传递的，即第1 个实参传递给第 1个形参，第 2 个实参传递给第 2 个形参，……。 按数值方式传递的形参，其对应的实参的数据 类型只要与形参相匹配即可，而按地址方式传递 的形参，其对应的实参变量的数据类型必须与形 参相同。
下一页
退 出
【要求】 （ 1 ）通过文本框 Text1 输入一个含有数字的 字符串，通过文本框Text2输出结果。 （ 2 ）程序运行时， Text1 中有初始字符串： 31A9R100YRW12.7ds6。 （ 3 ）单击“求数字和”按钮，分离出其中的 数字并按指定格式在 Text2 中显示数字和；单击 “清除”按钮，将清除两个文本框中的内容，并 将焦点置于 Text1 中；单击“退出”按钮，结束 程序的运行。
第25页 Visual Basic程序设计实验指导
实验11-4
目的和要求 预备知识
上一页
下一页
退 出
【题目】 输出最长单词。 在一个文本框中 输入一串单词 （单词之间用空 格隔开），在另 一个文本框中输 出所有的最长单 词，如图11-4所 示。
vb课件第2章2
上例中，y为可选项，当过程调用时，未提供某个可选参数时，实 际上将该参数作为具有 Empty 值的变体来赋值。上例中用 IsMissing 函数测试是否丢失可选参数。 （5）还可提供可选参数的缺省值、使用不定数量的参数 也可以给可选参数指定缺省值。在下例中，如果未将可选参数传 递到函数过程，则返回一个缺省值。 Sub ListText(x As String, Optional y As Integer = 12345) List1.AddItem x List1.AddItem y End Sub Private Sub Command1_Click () strName = “yourname” '未提供第二个参'数。 Call ListText (strName) '添加“yourname”和'“12345”。 End Sub 一般说来，过程调用中的参数个数应等于过程说明的参数个数。 可用 ParamArray 关键字指明，过程将接受任意个数的参数。
于是可以这样来编写计算总和的 Sum 函数： Dim x As Integer Dim y As Integer Dim intSum As Integer Sub Sum (ParamArray intNums ()) For Each x In intNums y=y+x Next x intSum = y End Sub Private Sub Command1_Click () Sum 1, 3, 5, 7, 8 List1.AddItem intSum End Sub
② 选择现有过程，在当前模块中查看过程，请在“代码”窗口 的“对象框”中选择“通用”，然后在“过程框”中选择过程。 如要查看事件过程，在“代码”窗口的“对象框”中选择适当 的对象，然后在“过程框”中选择事件。 ③ 要查看其它模块中的过程，请执行下列操作： 在“视图”菜单中选取“对象浏览器”。 在“工程1库”框中选择工程。 在“类1模块”列表中选择模块，并在“成员”列表中选择过程。 选取“查看定义”。 （3）对于过程的调用有两种方式 一种调用方式是： 过程名 参数1 ，参数2，… 另一种方式用Call调用： Call 过程名(参数1，参数2，…) 每次调用过程都会执行Sub和End Sub之间的语句。可以将子过程 放入标准模块、类模块和窗体模块中。按照默认规定，所有模 块中的子过程为Public，这意味着在应用程序中可随处调用它 们。
VB课件8
过程第8章Sub过程在Visual Basic中有两种Sub过程，即事件过程和通用过程。
⏹事件过程⏹通用过程事件过程1.定义窗体事件过程Private Sub Form_事件名(〔参数列表〕)〔局部变量和常数声明〕语句块Eud Sub说明说明窗体的若干事件⏹Initialize（初始化）事件是在窗体被加载之前，窗体被配置的时候触发⏹Load（加载）事件，VB把窗体从磁盘或从磁盘缓冲区读入内存时发生⏹Activate（激活）事件是在窗体已经被装入内存，变成被激活的窗体时触发(多次)⏹GotFocus事件在窗体成为当前焦点时触发⏹窗体各事件的发生次序窗体各事件的发生次序3.定义控件事件过程Private Sub 控件名__事件名([参数列表])〔局部变量和常数声明〕语句块End Sub说明说明1)控件事件过程名由控件名、下划线和事件名组成。
2)控件事件过程也是私有过程，属于包含它的窗体模块。
例如：Private Sub Cmdend_Click()EndEnd Sub建立事件过程(1) 双击窗体或控件(2) 单击工程管理窗口中的代码编辑窗口……通用过程SUB的种类:事件过程与通用过程⏹除了事件过程以外的过程而称之。
⏹具有一定功能的独立程序段，这个程序段被称为通用过程。
被其他过程调用.⏹通用过程是一个必须从另一个过程(事件过程或其它通用过程)显式调用的程序段。
1．通用Sub过程的定义2．建立通用Sub过程通用Sub过程的定义⏹通用Sub 过程的一般形式是：[Private | Public] [Static] Sub 过程名([形参数列表])[局部变量和常量声明]End Sub⏹Sub过程不能嵌套定义Sub关键字,过程名⏹Sub 过程以Sub语句开头，⏹结束于End Sub语句。
⏹过程名必须唯一。
⏹过程名不能与模块级变量同名。
Private /Public /Static选项⏹Private:Sub过程是模块级的(私有的)过程，只能被本模块内的过程调用。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
如，利用过程对一批数据进行排序，或 者要进行较复杂的操作，等等。在这些情况下 就要利用Sub过程来实现。
精品课件
66
Sub过程的定义
Sub过程的格式 [Private | Public][Static] Sub <过程名> [(<形参表>)] [<语句组>] [Exit Sub] [<语句组>] End Sub
定义一个Sub过程之后，必须使用Call语句调用该过程。 调用格式一：Call <过程名> [(<实参表>)] 调用格式二：<过程名> [<实参表>]
·<过程名>：要调用的Sub过程名。
·<实参表>：要传送给Sub过程的常量、变量或表达式，各参 数之间用逗号分隔。如果是数组参数，则要在数组名之后跟
一对空括号。
• 过程可以返回0到多个值，且由<形参表>中的参数返回这些 值。因此，使用函数过程可以实现的功能，也可以用Sub过程 实现。
• Sub过程的建立方法与Function过程的建立方法相同，可以 在代码窗口中直接输入，也可通过执行“工具”菜单中的 “添加过程”命令生成过程模板。
精品课件
88
Sub过程的调用
·用Call语句调用一个Sub过程时，如果过程本身没有参数， 则省略<实参表>和括号。
．格式二省略了Call关键字，同时<实参表>两边也不能带括
号。
精品课件
99
Sub过程的调用
精品课件
110 0
子过程与函数过程区别
(1)函数过程名有值，有类型，在函数体内至少赋值一次； 子过程名无值，无类型，在子过程体内不能对子过程名赋
值； (2)调用时，子过程调用是一句独立的语句。
函数过程不能作为单独的语句加以调用，必须参与表达式 运算。 (3)一般当过程有一个函数值，使用函数过程较直观；
反之若过程无返回值，或有多个返回值，使用子过程较直 观。
精品课件
1111
上机练习
• 1、有一个过程如下： • Sub Cmax(X，Y，max) • max=Iif(x>Y，x，Y) • End Sub • 调用过程如下： • Private Sub Command1_Click() • i=Val(InputBox("请输入第1个数")) • j=Val(InputBox(" 请输入第2个数")) • Cmax i，j，a • Print a • End Sub • 程序运行后，分别输入12、56，结果为( )。
P=1
For i=1 To X
P=P*i
Next i
fact=P
End Function
程序运行后，若输入5，则运行结果为( )。
A．120 B．60 C.80 D.100
精品课件
44
重点
1、过程的定义方法 2、过程的调用 3、过程与函数的区别
精品课件
55
Sub过程
当需要定义的过程返回一个值时，使用前 面介绍的Function过程很容易实现，但在实际 应用中，可能希望过程不需要返回值，例如， 使用过程打印一个图形，或需要返回多个值；
Visual Basic程序设计
第七章 控制结构
7.4 过程和函数 sub()过程
精品课件
11
复习提问
• 1、执行以下程序段,输出的结果为( )
• a$="abbacddcba"
• For i=6 To 2 Step -2
• x=Mid(a,i,i): y=Left(a,i)
• z=Right(a,i): z=UCase(X & Y & z)
精品课件
33
3．有如下函数与调用过程：
Private Sub Command1_Click() i=Val(InputBox("请输入一个数")) a=fact(i) Print a End Sub
Function fact(x As Integer)As Long
Dim P As Long，i As Integer
精品课件
113 3
精品课件
112 2
• 2、单击窗体时，下列程序的执行结果为( )。 • Sub Procl(x As Integer，ByVal y As Integer，z As Integer) • x=3*z • y=2*z • z=x+y • Print x；y；z • End Sub • Private Sub Form_Click() • Dim x As Integer，y As Integer，z As Integer • x=1：Y=2：Z=3 • Call Procl(X，X，Z) • Call Procl(X，Y，Y) • End Sub
精品课件
77
说明
• 格式中各项含义同Function过程。Exit Sub用于退出Sub过 程。
• Sub过程的<过程名>与Function过程的<函数过程名>的含义 与作用不同，<过程名>只在调用Sub过程时使用，不具有值的 意义，在Sub过程中不能给<过程名>赋值，也不能给<过程名> 定义类型。
• Next i
• Print z
• A．ABA
B． BBABBA
• C． ABBABA D． AABA问
2．下列定义Myfun．函数过程的语句中，( )是错误的。 A．Private Public Myfun(a) As Integer B．Static Function Myfun(a) C．Function Myfun(a As Integer)As Integer D．Private Function Myfun(a As Integer)
精品课件
66
Sub过程的定义
Sub过程的格式 [Private | Public][Static] Sub <过程名> [(<形参表>)] [<语句组>] [Exit Sub] [<语句组>] End Sub
定义一个Sub过程之后，必须使用Call语句调用该过程。 调用格式一：Call <过程名> [(<实参表>)] 调用格式二：<过程名> [<实参表>]
·<过程名>：要调用的Sub过程名。
·<实参表>：要传送给Sub过程的常量、变量或表达式，各参 数之间用逗号分隔。如果是数组参数，则要在数组名之后跟
一对空括号。
• 过程可以返回0到多个值，且由<形参表>中的参数返回这些 值。因此，使用函数过程可以实现的功能，也可以用Sub过程 实现。
• Sub过程的建立方法与Function过程的建立方法相同，可以 在代码窗口中直接输入，也可通过执行“工具”菜单中的 “添加过程”命令生成过程模板。
精品课件
88
Sub过程的调用
·用Call语句调用一个Sub过程时，如果过程本身没有参数， 则省略<实参表>和括号。
．格式二省略了Call关键字，同时<实参表>两边也不能带括
号。
精品课件
99
Sub过程的调用
精品课件
110 0
子过程与函数过程区别
(1)函数过程名有值，有类型，在函数体内至少赋值一次； 子过程名无值，无类型，在子过程体内不能对子过程名赋
值； (2)调用时，子过程调用是一句独立的语句。
函数过程不能作为单独的语句加以调用，必须参与表达式 运算。 (3)一般当过程有一个函数值，使用函数过程较直观；
反之若过程无返回值，或有多个返回值，使用子过程较直 观。
精品课件
1111
上机练习
• 1、有一个过程如下： • Sub Cmax(X，Y，max) • max=Iif(x>Y，x，Y) • End Sub • 调用过程如下： • Private Sub Command1_Click() • i=Val(InputBox("请输入第1个数")) • j=Val(InputBox(" 请输入第2个数")) • Cmax i，j，a • Print a • End Sub • 程序运行后，分别输入12、56，结果为( )。
P=1
For i=1 To X
P=P*i
Next i
fact=P
End Function
程序运行后，若输入5，则运行结果为( )。
A．120 B．60 C.80 D.100
精品课件
44
重点
1、过程的定义方法 2、过程的调用 3、过程与函数的区别
精品课件
55
Sub过程
当需要定义的过程返回一个值时，使用前 面介绍的Function过程很容易实现，但在实际 应用中，可能希望过程不需要返回值，例如， 使用过程打印一个图形，或需要返回多个值；
Visual Basic程序设计
第七章 控制结构
7.4 过程和函数 sub()过程
精品课件
11
复习提问
• 1、执行以下程序段,输出的结果为( )
• a$="abbacddcba"
• For i=6 To 2 Step -2
• x=Mid(a,i,i): y=Left(a,i)
• z=Right(a,i): z=UCase(X & Y & z)
精品课件
33
3．有如下函数与调用过程：
Private Sub Command1_Click() i=Val(InputBox("请输入一个数")) a=fact(i) Print a End Sub
Function fact(x As Integer)As Long
Dim P As Long，i As Integer
精品课件
113 3
精品课件
112 2
• 2、单击窗体时，下列程序的执行结果为( )。 • Sub Procl(x As Integer，ByVal y As Integer，z As Integer) • x=3*z • y=2*z • z=x+y • Print x；y；z • End Sub • Private Sub Form_Click() • Dim x As Integer，y As Integer，z As Integer • x=1：Y=2：Z=3 • Call Procl(X，X，Z) • Call Procl(X，Y，Y) • End Sub
精品课件
77
说明
• 格式中各项含义同Function过程。Exit Sub用于退出Sub过 程。
• Sub过程的<过程名>与Function过程的<函数过程名>的含义 与作用不同，<过程名>只在调用Sub过程时使用，不具有值的 意义，在Sub过程中不能给<过程名>赋值，也不能给<过程名> 定义类型。
• Next i
• Print z
• A．ABA
B． BBABBA
• C． ABBABA D． AABA问
2．下列定义Myfun．函数过程的语句中，( )是错误的。 A．Private Public Myfun(a) As Integer B．Static Function Myfun(a) C．Function Myfun(a As Integer)As Integer D．Private Function Myfun(a As Integer)