过程的基本概念汇总

由函数名带回。
（ Private 定义的函数，只能被本窗体中的所有
事件和过程调用，而且该函数中的所有的变量重新
初始化）。
第9章 过程
Private Function ss(x As Integer, y As Integer) As Integer Dim sum As Integer
sum = sum + x + y: ss = sum End Function Private Sub Command1_Click()
ss 2, 3 或 call ss(1,2)
End Sub
第9章 过程
2)、Static 关键字可以应用于所有的窗体中，该窗
体中的任何事件过程都可调用，但与Private不同的
是，每次调用时，该过程中的局部变量的值都保持
上一次调用结束时的值，其它窗体调用时，必须加
上该过程所在的窗体名称。
第9章 过程
第9章 过程
一、过程的基本概念
1、将程序分割成较小的逻辑部件就可以简化程序设
计任务 ,称这些部件为过程，过程可用于压缩重复任务
或共享任务。
2、用过程编程有两大好处：
(1) 、过程可使程序划分成离散的逻辑单元，每个单元
都比无过程的整个程序容易调试。
第9章 过程
(2)、一个程序中的过程，往往不必修改或只需稍作
改动，便可以成为另一个程序的构件。
二、Visual Basic 中使用过程的分类：
1、事件过程
2、通用过程
(1)、子程序过程（sub过程）
(2)、函数过程（Function 过程）
第9章 过程
三、如何建立过程
1 、利用“工具”菜单下的“添加过程”命令定义。
2、利用代码窗口直接定义。
第9章 过程
四、Sub 过程
第9章 过程
1、函数过程的语法是：
Private|Public][Static] Function 过程名
([参数表列]) [As 类型]语句
函数名=表达式
Exit Function
语句块
End Function
第9章 过程
2、函数过程的调用
函数名（实参列表）
(1)、例题1：有返回值的函数的调用 ,函数的返回值
Private Sub Command2_Click()
Command1_Click()
End Sub
第9章 过程
六、函ቤተ መጻሕፍቲ ባይዱ过程
Visual Basic 包含许多内部的函数，如 Sqr、Cos 或
Chr 。 此 外 ， 还 可 用 Function 语 句 编 写 自 己 的
Function 过程。
第9章 过程
五、事件过程
控件的事件过程: 控件的实际名字、下划线 和事件
名组合起来。
1、语法格式：
Private Sub 控件名_事件名 (参数列表 )
语句
End Sub
第9章 过程
2、事件过程的调用
Private Sub Command1_Click()
Print "nnnnnnnnn"
End Sub
1、Sub过程的定义格式：
[Private|Public][Static]Sub 过程名 ( 参
数列表)
语句
[Exit Sub]
语句
End Sub
第9章 过程
2、关键字说明
(1) 、 Private 关键字主要应用于本窗体模块中的所
有事件和过程，该窗体中的任何事件过程都可调用，
下一次调用时，该过程中的局部变量的值被重新初
例题1：（有参过程）
Static Sub ss(x As Integer, y As Integer)
Dim sum As Integer
sum = sum + x + y:Print sum
End Sub
Private Sub Command1_Click()
ss 1,2
End Sub
第9章 过程
始化(数值类型的变量初始化为 0，字符型数据被初
始化为空串)。而其它窗体不能调用。
第9章 过程
例题1：（无参过程）:只执行某一操作
Private Sub add()
Print "你好！"
End Sub
Private Sub Command1_Click()
Add’本窗体调用 或 Call add;
第9章 过程
2) 、在标准模块中定义的 Public 过程，在其他窗体
模块也可以使用，但不需要加对象名，而直接引用,
但注意变量的作用域。
第9章 过程
Public sum As Integer’在标准模块的声明中定
义
Public Sub d(x As Integer, y As Integer)
sum = sum + x + y
End Sub
Private Sub Command1_Click()
d 1,2 ’在form1窗体调用
End Sub
第9章 过程
3、通用过程的调用
(1)、无参过程的调用
用Call 语句,如：Call Compute或Compute
(2)、有参过程的调用：
用Call 语句：如：call compute(1,2)或Compute 1,2
Dim k As Integer
k = ss(1, 2) Print k End Sub
第9章 过程
(2)、例题2：
（Static函数中的变量保留上一次函数执行的结果，并
且适用于所有的窗体中的事件和过程）
Static Function ss(x As Integer, y As Integer) Integer Dim sum As Integer sum = sum + x + y:ss = sum End Function As
第9章 过程
(3)、例题3：
（ Public 定义的函数，其他窗体调用，函数中的局
(3)、 Public关键字主要应用于标准模块或窗体模块
中，程序中的所有窗体中的事件过程都可调用，而
且关键字Public可以省略。
1) 、在窗体模块中定义的 Public 过程，在其他窗体
模块也可以使用，但必须加过程所在的对象名，如：
Form2.add.，而且每次调用该过程，过程中的局部
变量被重新初始化。
过程后没有参数时,()省略.
End Sub
第9章 过程
例题2：（有参过程）
Private Sub ss(x As Integer, Y As
Integer)
Dim sum As Integer sum = sum + x + y:Print sum
End Sub
Private Sub Command1_Click()