12 编程过程2.ppt

1、2020/8/7,1,陈一明,程序设计基础,第12次课,2020/8/7,2,本次课任务,SUB过程与函数过程的区别 参数传递的特征 了解数组参数 变量与过程作用域 重点:参数传递,2020/8/7,3,一、SUB过程与函数过程的区别,1、定义格式不同 Sub过程定义： 过程类别 Sub 过程名 (形参表) 语句块(过程主体) End Sub Function过程定义： 过程类别 Function 函数名（形参表）As 类型 语句块 函数名=表达式 End Function,2020/8/7,4,例5-14编写一个计算n！的Sub过程Fact。 在“通用”中建立如下过

2、程 Sub Fact(n As Integer, f As Long) Dim i As Integer f = 1 For i = 1 To n f = f * i Next i End Sub,2020/8/7,5,例5-16编写一个计算n！的Function过程。 Function jch（n%）as integer Dim i% f = 1 For i = 1 To n f = f * i Next i jch=f End Function,2020/8/7,6,2、调用方法的区别： 调用Sub过程 Call 过程名(实际参数表) 调用function过程 过程名(实际参数表) 作为表

3、达式的组成部分，用于计算。,2020/8/7,7,Private Sub Command1_Click() Dim a a + b + c End Sub,2020/8/7,8,Private Sub Command2_Click() Dim a a + b + c End Sub,2020/8/7,9,3、应用对象的区别： 两种过程可以替换。 有明确单个返回值，一般用函数值返回。 主程序与之只有单向数据传递，一般用Sub子过程. 如果有多个值返回的，最好用Sub过程。,2020/8/7,10,二、参数传递的特征,参数的本质不同 传值方式(ByVal) 实参与形参是不同单元 传址方式(ByRe

4、f) 实参与形参为同一单元 传递过程不同 传递的结果不同,例5-18参数按值传递。 Sub Tryout(ByVal x As Integer, ByVal y As Integer) x = x + 100 y = y * 6 Print X=; x, Y=; y End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Tryout a, b Print A=; a, B=; b End Sub,例5-19参数传址方式。 Sub Tryout(x As Integer, y As Integer) x =

5、x + 100 y = y * 6 Print X=; x, Y=; y End Sub Sub Form_Click() Dim a As Integer, b As Integer a = 10: b = 20 Tryout a, b Print A=; a, B=; b End Sub,2020/8/7,13,三、数组参数,数组作为参数有两种情况： （1）用数组名作为参数进行传递。这种是传址方式。 （2）用数组元素作为实参进行传递。这种是传值方式。这种方式与一般单个变量作参数情况一样。,例5-20用数组作参数求一维整数数组中所有负数之和。 Function sum%(b%() Dim i

6、% For i = LBound(b) To UBound(b) If b(i) 0 Then sum = sum + b(i) End If Next i End Function,Private Sub Form_Click() Dim a%(10), s%, i% For i = 1 To 10 a(i) = Int(Rnd * 100) - 50 Print a(i); Next i Print s = sum(a() Print 数组中的负元素之和为：; s End Sub,思考：修改函数过程为SUB过程,2020/8/7,15,四、变量与参数作用域,VB中的变量与函数、过程都有作用

7、范围，即作用域的问题。 作用域有三个层次：过程级、模块级(文件级)、全局级(工程)。其中，过程级的作用域最小，仅局限于过程内部(针对局部变量)；模块级次之，仅在某个模块或文件内；全局级范围最大，可在整个工程范围内。,2020/8/7,16,Private Sub form_Click() Dim i%,s% For i=1 to 5 s=sum(i) 5次调用函数 print ”sum=”;s, next i EndSub,2020/8/7,17,Private Function sum(n%) Dim j% 定义j为动态变量 j=j+n sum=j End Function 思考：如果将Di

8、m j%改为Static j%，结果如何？为什么？,2020/8/7,18,五、练习1,Function Fun(S As String) As String Dim s1 As String For i = 1 To Len(S) s1 = UCase(Mid(S, i, 1) + s1 Next i Fun = s1 End Function Private Sub Command1_Click() Dim Str1 As String, Str2 As String Str1 = InputBox(请输入一个字符串) Str2 = Fun(Str1) Print Str2 End Sub,2020/8/7,19,五、练习2,Private Sub command1_click