VB过程和函数ppt课件

• Visual Basic 提供了退出过程的“Exit Sub” 语句和退出函数的“Exit Function”语句，提 早退出子例程或函数
• 在遇到 Exit Sub 或 Exit Function 语句时，函 数或过程当前的处理会停止
14
ExiБайду номын сангаас 关键字 – 示例
Private Sub Form_Load() MsgBox calc_sqr(0)
12
过程和函数的作用范围 – 示例
• 在Form1窗体中创建函数 showDate( )，并 声明为Public函数
Public Sub showDate() MsgBox Date
End Sub
• 在Form2窗体中调用 showDate( ) 函数：
call Form1.showDate
13
Exit 关键字
在VB环境中进行演示
15
过程和函数的参数
• 参数不是必需的 • 过程中的代码通常需要某些关于程序状态
的信息才能完成它的工作 • 在调用过程时，传递到过程内的变量称为
参数
16
带参数的过程示例
' 计算圆的面积 Public Sub area_circ(radius As Integer)
Dim area As Double area = 3.14 * radius * radius MsgBox area End Sub
• 函数可以将值返回给调用程序
8
定义函数
Function <function_name> ([ arguments1,argument2,…..argumentn]) as <return data type> …. <statements> …. <function_name>=<return value>
• 过程是一组用来执行某项任务的语句 • 语句被放在 Sub/End Sub中 • 过程被调用时，将执行过程中的语句，没
有返回值
5
定义过程
• 定义过程的语法：
Sub <procedure_name> ([argument1,argument2,…..argumentn])
…. <statements> …. End Sub
<End Function>
9
函数 – 示例
Private Sub Form_Load() Dim new_d As Date new_d = newday() MsgBox new_d
End Sub
调用函数
定义函数
Function newday() As Date newday = Date + 5
11
过程和函数的作用范围 2-2
• 声明为 Public 的函数或过程：可以从应用程序的 任何地方被访问
• 声明为 Private 的函数或过程：只能在声明函数或 过程的窗体内的进行访问
• 声明为 Static 的函数或过程 – 可以在应用程序的任何地方访问 – 和Public的区别：在声明的过程或函数内的变量 将在程序运行的整个过程中保留它们的值
End Function
在VB环境中进行演示
10
过程和函数的作用范围 2-1
• 应用于变量的作用范围规则同样应用于函 数和过程
• 函数和过程可以使用如下关键字进行定义
– Public – Private – Static
• 例如，
Public Sub add( ) Static Function Calc_Salary( ) as Single
End Function Private Sub Form_Load()
Dim sqr As Integer sqr = calc_sqr(5) MsgBox sqr End Sub
在VB环境中进行演示
18
传递参数的规则
通过引用传递
通过值传递
VB 应用程序传递参数的缺省方法 不是缺省方法
传递参数时，过程将从该变量的 内存地址位置访问其实际内容
参数的值可以被传递到的过程永 久改变
传递参数时，传递到过程的只是 参数的副本
只允许声明值的程序更改该值
在指定参数时，关键字 ByRef 不 是必需的
要通过值传递参数，需要在函数 声明中参数的前面附加关键字
ByVal
19
通过引用传递 – 示例
Private Sub Form_Load()
Call area_circ(5)
End Sub
在VB环境中进行演示
17
带参数的函数示例
' 计算一个整数的平方
Public Function calc_sqr(num As Integer) Dim sqr As Integer calc_sqr = num * num
6
过程 – 示例
Private Sub Form_Load()
Call showtime End Sub
调用过程
定义过程
Sub showtime() MsgBox Time
End Sub
在VB环境中进行演示
7
函数
• 函数是一组被命名的语句，用户通过指 定名称来调用它时，它将被执行，并返 回值
• 函数的语句放在 Function/End Function 语句内
第六章
过程和函数
Version 3.0
回顾
• 使用图片框控件和图像控件 • 使用框架中的复选框和选项按钮 • 使用列表框和组合框控件 • 使用 Timer 控件创建 Timer 应用程序
2
目标
• 使用过程和函数 • 掌握程序中过程和函数的作用范围 • 使用参数和在函数及过程中传递参数的
规则 • 使用 Visual Basic 支持的内部函数 • 使用 SUB MAIN 过程
3
过程和函数
• 为了简化应用程序的编程，可以将整个程 序分成称为过程或函数的小段
• 在程序中使用过程或函数的主要优点
– 允许将程序分成独立的逻辑单元 – 提高程序的可读性 – 程序更容易维护或调试 – 提高代码的可重用性
4
过程
• Visual Basic 中的过程通常称为 Sub 过程或 子例程
End Sub Private Function calc_sqr(num As Integer) As Integer
Dim sqr As Integer If num <= 0 Then
calc_sqr = 0 Exit Function Else calc_sqr = num * num End If End Function