最新VB计算机语言基础第五章--过程资料PPT课件

End Sub
Private Sub Form_Click()
Call Hello
'调用名为Hello的无参数子过程
End Sub
7
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
例5.2 带参数的“节日问候” 子过程
Private Sub Command1_Click() Call Hello(Text1, Text2, Text3) 'Call Hello Text1, Text2, Text3
第五章 过程
计算机程序设计基础
生物医学工程学院 计算机教研室
第学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
例5.1 无参数的“节日问候”通用子过程
Private Sub Hello() '定义名为Hello的无参数子过程 MsgBox "您好！五一节快乐！"
10
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
例5.3 根据键盘输入的两个数值，调用MaxValue函数求 得其中较大的一个
Private Sub Form_Click()
Dim a!, b!, c!
调用函数过程时应注意：
a = Val(InputBox("第一个✓数函：数"过, 程"输的入调"用))方式与标准函数
End Sub
Private Sub Hello(name1 As String, job1 As String, festival As String)
Dim a As String, b As String a = "您好！值此" b = "来临之际，向您和您的全家致以亲切的问候。" MsgBox name1 & job1 & a & festival & b End Sub
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
a = InputBox("第一个直角边的值：")
b = InputBox("第二个直角边的值：")
Private Sub Hypotenuse(x!, y!) Dim c As Single x = x ^ 2: y = y ^ 2 c = Sqr(x + y) Print "直角三角形斜边的值 ="; c
End Sub
14
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
例5.4 计算直角三角形的斜边
VB计算机语言基础第五章-过程资料
第五章 过程
main contents
计算机程序设计基础
子过程的定义与调用
重点
函数过程的定义与调用
参数传递
难点
过程的递归调用
变量的作用范围
2
生物医学工程学院 计算机教研室
第五章 过程
验证哥德巴赫猜想： 任一大于2的偶数都
可写成两个质数之和。
计算机程序设计基础
3
生物医学工程学院 计算机教研室
End Function
11
生物医学工程学院 计算机教研室
第五章 过程
5.3 参数传递
计算机程序设计基础
形式参数
定义子过程和函数过程时，通常都会包括须从外部获取的 参数，这些参数也称为形式参数。在过程被调用前，形式 参数既不占有实际的存储空间，也没有值。
实际参数
在调用子过程或函数过程时，必须把要处理的数据提供给 被调用的过程。这些数据称为实际参数，将实际参数传递 给形式参数，由被调用的过程来处理。
b = Val(InputBox("第二个数相：同"，, 作"输为入表"达))式中的一个部分
c = MaxValue(a, b) Print "较大的数值 ="; c
被引用。 ✓ 引用时参数表必须放在括号内 ✓ 所使用的参数的个数、位置和类
End Sub
型必须与函数中的声明一致。
Function MaxValue(x!, y!) As Single MaxValue = IIf( x > y, x, y)
Dim a As Single, b As Single, c As Single
a = InputBox("第一个直角边的值：")
b = InputBox("第二个直角边的值：")
Call Hypotenuse(a, b) Print "两直角边分别为："; a; b
按地址传递（ByRef）
End Sub
End Sub
9
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
5.2 函数过程的定义与调用
1.函数过程与自定义子过程的区别： 函数执行完后将得到一个返回值，而子过程只是
执行一系列动作，没有返回值。
2.函数过程的定义： Function <函数过程名>(形式参数表)[As 函数类型] 程序代码 函数过程名= 返回值表达式 …… End Function
按值传递（ByVal）
如果在过程定义时，形式参数前面用关键字ByVal 界定，就是按值传递方式。被调用过程运行期间形 式参数的任何变化，对实际参数不会产生任何影响。
13
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
例5.4 计算直角三角形的斜边
Private Sub Form_Click()
Call Post( 6 ， 8 ) ' 实际参数
↓
↓
Sub Post(x As Single, y As Single) ' 形式参数
12
生物医学工程学院 计算机教研室
第五章 过程
参数的传递方式
计算机程序设计基础
按地址传递（ByRef）
这是默认的参数传递方式。在被调用过程中对形式 参数所做的任何修改，也就是对实际参数的修改。
8
生物医学工程学院 计算机教研室
第五章 过程
计算机程序设计基础
Sub Main( )子过程
• Sub Main( )是标准模块中一个具有特殊作用的子过 程，通常用于创建应用程序的初始化条件。每个工 程只能有一个Sub Main( )子过程。
• 这个通用子过程可以设置在应用程序启动时首先被 调用。
Sub Main() x = InputBox("请输入密码：", "密码") If x = "12345" Then Form1.Show Else MsgBox ("密码不正确，即将关闭程序")