第十章　过程.pptVIP

第十章　过程 10.1 Function函数过程 作用：当程序中多处执行相同的任务并需要返回值时 定义语法格式： Function 函数名(形参表) As 类型 [语句块] [Exit Function] [语句块] 函数名=表达式 End Function 调用函数语法格式： 方法一： 跟调用系统内部函数方法一样。 方法二： 可以像调用Sub过程那样调用函数过程。 使用Call语句：Call 函数名(实参表) 直接使用函数名：函数名 实参表 当使用这种方法调用函数时，VB放弃返回值 例10-1：用Function函数，计算5! +3!+ 10!的值。 Option Explicit Function Factorial(ByVal x%) As Double Dim i%, P! P = 1 For i = 1 To x P = P * i Next i Factorial = P End Function Private Sub Form_Click() Dim s# s = s + Factorial(5) s = s + Factorial(3) s = s + Factorial(10) Print s End Sub 例：利用Function函数实现找出1000-9999间所有的素数。 例：利用Function函数实现1!+2!+……＋12!。 例：利用Function函数实现1!+2!+……＋12!。 10.2 Sub子过程 作用：当程序中多处执行相同的任务而不需要返回任何值与Function函数主要的区别是Sub子过程没有一个返回值。 过程的定义格式如下： Sub 过程名(形式参数列表) [语句序列1] [Exit Sub] [语句序列2] End Sub 调用子过程的语法 Sub子过程只有被调用时，子过程内的程序语句才会被执行。由于Sub子过程不能返回一个值，因此不能像函数一样在表达式中调用Sub子过程，调用Sub子过程必须是一个独立的语句，可以采用下面两种方式调用Sub子过程： Call 过程名(实际参数列表) 过程名　实际参数列表 例10-2：利用子过程，求某数阶乘。 Option Explicit Sub fact(ByVal N%, ByRef result) Dim i% result = 1 For i = 1 To N result = result * i Next i End Sub Private Sub Form_Click() Dim x%, r x = Val(InputBox(input x)) Call fact(x, r) MsgBox x 的阶乘是： r End Sub 例:计算5!+2!+3!+8!+10! 10.2 Sub子过程 例:计算5!+2!+3!+8!+10! 例10-3：随机产生10个三位整数存储在数组中，调用一个Sub子过程对该数组按从小到大的顺序排序。 Option Explicit Sub sort(ByRef x%()) Dim i%, j%, c%, t% For i = LBound(x) To UBound(x) - 1 c = i For j = i + 1 To UBound(x) If x(c) x(j) Then c = j Next j t = x(i) x(i) = x(c) x(c) = t Next i End Sub 例：利用Sub过程实现产生10个随机数、显示、找最大最小数、排序等功能 例：利用Sub过程实现产生10个随机数、显示、找最大最小数、排序等功能 例：利用Sub过程实现产生10个随机数、显示、找最大最小数、排序等功能 例：利用Sub过程实现产生10个随机数、显示、找最大最小数、排序等功能 例：利用Sub过程实现产生10个随机数、显示、找最大最小数、排序等功能 形式参数 是指在定义过程或函数时，出现在Sub或Function语句括号中的变量名，是接受传递给子过程值的变量，形参表中的各个变量之间用逗号分隔。 实际参数 是指在调用Sub或Function过程时，传递给Sub或Function过程的常量、变量或表达式。实参表可由常量、表达式、有效的变量名、数组名（后跟左、右括号）组成，实参表中各参数用逗号分隔 按值传递参数 按值传递参数时，传递的只是变量的副本，如果过程改变了这个