VB程序设计 第八章学习资料.ppt

Visual Basic程序设计教程

内蒙古科技大学实践训练中心
第八章 过程
过程的定义与调用
VB的过程：
⑴ 系统提供的内部函数过程，其中，事件是构成VB应用程序的主体，应a(Val(), Val())
过程的定义与调用
Function过程的定义与调用
函数过程(Function)与子过程一样，可将一组完成特定功能的程序代码组织起来，作为一个相对独立的过程使用；但子过程没有值的返回，函数过程有值的返回。
1、函数过程的定义
[Static] [Public] [Private] Function 函数过程名[(参数列表)][As 类型]
语句块
…
[Exit Function]
…
语句块[给函数名赋返回值]
End Funtion
过程的定义与调用
Function过程的定义与调用
说明：
⑴ 格式中的Static、Public、Private的含义与作用以及参数列表的格式
和使用方法，Byval传值的作用等均与子过程的定义相同；
⑵ Exit Function的作用与Exit Sub相同；
⑶ As类型，指定该函数的返回值的类型；
⑷ 语句块为符合VB语法的一条语句或多条语句；
⑸ 给函数名赋值：一般情况下，定义一个函数过程，就是能返回一个值
给调用程序，故函数过程应有一条语句给函数名赋值即调用后的返回
值；若不赋值，则默认返回值为0（数值型函数），或空值（可变类
型函数）。
⑹ 与Sub定义一样，函数过程定义的函数体内不允许定义其他的函数过
程和子过程。
过程的定义与调用
Function过程的定义与调用
2、函数过程的定义方法
⑴在代码窗口中手工输入函数过程的框架； 如：
Static Private Function Areturn( a as integer, b as integer)
as Integer
…
End Function
⑵系统菜单“工具”－>“添加过程”，选择相应的类型和范围属性；
3、函数过程的调用
函数过程的调用如同调用VB的系统内部函数一样；程序中。函数过程的
调用一般放在表达式中赋值号”＝“的右边，将它看成某种类型的值而参加
表达式的组成。
过程的定义与调用
Function过程的定义与调用
3、函数过程的调用
例[8-3]函数过程的定义与调用：判断某个成绩(百分制)的等级.
解题思路：定义一个函数过程，用于判断分数的等级，判断后的结果返回为
字符串：优、良、中、及格或不及格。
Private Function afirm(cj As Integer) As String
Select Case cj
Case Is < 60
afirm = "不及格"
Case 60 To 69
afirm = "及格"
Case 70 To 79
afirm = "中"
Case 80 To 89
afirm = "良"
Case Is > 90
afirm = "优"
End Select
End function
= afirm(Val())
过程的定义与调用
Function过程的定义与调用
例[8-4] 编写求任意给定两个自然数的最大公约数的程序。
解题思路：
⑴对于已知两个数m、n，使得m>n；
⑵ m除以n得余数 r；
⑶ 若r＝0，则n为所求的最大公约数，算法结束，否则执行(1)；
⑷ n－>m，r－>n，再重复步骤(2)；
步骤
m
n
r =(m mod n)
说明
第一次
36