过程(学时理论+学时上机).pptVIP

第六章 过 程 6.1 函数过程的定义和调用 6.2 子过程的定义和调用 6.3 参数传递 6.4 过程的嵌套和递归调用(不要求) 6.5 变量的作用域 6.6 综合应用 过程的引入: 使同类的操作不重复编写，写一次多次用 把一项复杂的工作分成简单的功能块,分而治之 过程: 完成一段独立功能，可供其他过程使用(调用)。 调用过程: 调用其他过程的过程 常用过程分类: 6.1 函数过程的定义和调用 Private Sub Form_Click() Dim a!, b!, c!, d!, e!, f!, g!, x!, y!, z!, s1!, s2!, s3! a = InputBox(输入a): b = InputBox(输入b) c = InputBox(输入c): d = InputBox(输入d) e = InputBox(输入e): f = InputBox(输入f) g = InputBox(输入g) x = (a + b + c) / 2 s1 = Sqr(x * (x - a) * (x - b) * (x - c)) y = (c + d + e) / 2 s2 = Sqr(y * (y - c) * (y - d) * (y - e)) z = (e + f + g) / 2 s3 = Sqr(z * (z - e) * (z - f) * (z - g)) MsgBox (多边形面积= s1 + s2 + s3) End Sub 6.1.2 函数过程的定义 使用函数解决引例6.1 第五章 课后习题讲解 n=12 Dim a(1 to n) as integer Dim b%() n=11 Redim b(n) Dim c%[2,3] Dim d(1,1,2) as integer 实验Ｃ2 Private Sub Command1_Click() Dim x! x = Val(Text1) If x 10 Then y=30 ElseIf x = 10 And x 50 Then y=2.5 * x ElseIf x = 50 Then y=2 * x if y150 then y=150 End If print y End Sub 实验E3 Dim mark(1 To 20) As Integer 也可写成mark%(1 To 20) Private Sub Command1_Click() For i = 1 To 20 mark(i) = Int(Rnd * 101) If i Mod 4 = 0 Then Picture1.Print mark(i) Else Picture1.Print mark(i); End If Next i End Sub 6.1.2 函数过程的定义 6.1.3 函数过程的调用 6.2 子过程的定义和调用 6.2.2 子过程的定义 子过程与函数过程的区别 6.2.3 子过程的调用 Function FuncThe (ByVal s$) Dim Count%, i%, st$ Count = 0 st = Trim(s) i = InStr(st, the ) Do While i 0 当i0说明找到 Count = Count + 1 统计个数加1 st = Mid(st, i + 1) 为找下一个准备 i = InStr(st, the ) Loop FuncThe = Count End Function Private Sub Command1_Click() 调用函数过程 Label3 = FuncThe(Text1) End Sub 6.3 参数传递 6.3.2 传地址(ByRef)与传值(ByVal) 例6.6 传地址与传值 Sub Swap1 ( ByVal x%, ByVal y%) Dim t% t = x : x = y : y = t End Sub Sub Swap2 ( x%, y%) Dim t% t = x : x = y : y = t End Sub Sub Command1_Click() Dim a%, b% a = 10 : b =