大学计算机基础ch5.ppt

* 二、Sub过程 格式： Sub 过程名（[参数表]） 语句序列 End Sub Sub过程必须以Sub开始，以End Sub结束 完成某个具体功能的过程体 不能与关键字重名 形式参数 1. Sub过程格式说明 参数表 调用该过程时应传递的参数的类型和个数 一个参数表中可含多个参数项，用逗号隔开。 参数项格式： ByVal|ByRef 参数名[（）] [As 类型名] * 按值传递 按地址传递 为合法变量名，若为数组其后需加（） * Sub过程格式说明 Sub过程不能嵌套，即不能在Sub过程中再定义其他的Sub或Function过程。 Sub过程以语句形式调用，不返回值。 * 2. Sub过程的调用 Sub过程的调用形式： 过程名([实际参数表]) 功能： 用实际参数表中的参数值取代过程定义时的形式参数表； “实际参数表”是传递给过程的各参数，可以是常量、变量或表达式； 运行过程名对应的过程。 * 3. Sub过程例 过程定义： Sub Area (ByRef A As Integer,ByRef B As Integer) Dim S As Integer S=A*B Console.write(“The area is:{0}”, s) End Sub 调用： Sub Main() Dim x As Integer = 5 Dim y As Integer = 7 area(x, y) End Sub 二、Function过程 Function过程有一个返回值，以表达式形式调用。 Sub过程没有返回值，以语句形式调用。 Function过程以Function开始，以End Function结束。 * * 1. Function过程定义 定义格式： Function 过程名 ([参数表]) [As 类型名 ] 语句序列 End Function 过程体中至少有一条Return语句，形式为： Return 表达式 过程的返回值 过程体 过程返回值的类型 * 2. Function过程的调用 Function过程可以像其它函数一样来调用。 调用格式： 过程名（[参数表]） * 3. Function过程例 定义计算阶乘的Function过程。 程序语句： Function facts( n As Integer) As Long Dim i As Integer Dim result As Long result = 1 For i = 1 To n result = result * i Next Return result End Function Function过程例 调用计算阶乘的Function过程Facts： Dim m As Integer ＝ 12 Dim y As Long y = facts(m) * * 三、参数传递 在过程调用中，用实际参数代替形式参数。 参数传递的方式： 传值 在形式参数前加：ByVal 传址 在形式参数前加：ByRef 1. 传值方式 将实际参数的值传递给形式参数 调用时不会修改实际参数的值 * 实际参数 临时地址 实际参数 过程 形式参数 传值方式例 定义一个完成两个数交换的过程exch： Sub exch(ByVal x As Integer, ByVal y As Integer) Dim temp As Integer Console.WriteLine(交换前x和y的值:x={0},y={1}, x, y) temp = x x = y y = temp Console.WriteLine(交换后x和y的值:x={0},y={1}, x, y) End Sub * 传值方式例 调用exch过程： Sub Main() Dim m As Integer Dim n As Integer m = Convert.ToInt32(Console.ReadLine) n = Convert.ToInt32(Console.ReadLine) Console.WriteLine(“调用exch前:m={0},n={1}, m, n) exch(m, n) Console.WriteLine(调用exch后:m={0},n={1}, m, n) End Sub * 运行结果： *