第6章 过程(6.5-6.8).ppt

* f’(x)函数： Private Function f2(ByVal x As Single) As Single f2 = 6 * x * x - 8 * x + 3 End Function f(x)函数： Private Function f1(ByVal x As Single) As Single f1 = 2 * x * x * x - 4 * x * x + 3 * x - 6 End Function * 命令按钮的单击事件调用函数： Private Sub cmdNewton_Click() Dim x0!, x1!, fx!, f1x!, k x0 = Val(txtInput) Do k = k + 1 x1 = x0 - f1(x0) / f2(x0) If Abs(x1 - x0) 0.00001 Then Exit Do x0 = x1 Loop txtOutput = Str(x1) txtNum = Str(k) End Sub * 假定数组A(维界为n)中已有n-1个元素，且已按从小到大排好序，若要将x插入A数组中，且使A数组仍保持有序，则主要步骤是： 例6-20 将输入的数插入到一个有序数组中，使数组仍保持有序。 5 8 13 16 18 20 25 28 p 17 x * Public Sub sort(a() As Integer, x As Integer) Dim n As Integer, p As Integer, i As Integer p = 1: n = UBound(a) Do While a(p) = x And p = n - 1 p = p + 1 Loop For i = n - 1 To p Step -1 a(i + 1) = a(i) Next i a(p) = x End Sub ① ② ③ * 1.学会定义Sub子过程、Function函数过程； 2.学会建立递归子过程和递归函数； 3.注意变量和过程的作用域； 4.注意区分按值传递和按地址传递的区别。 小结 课后作业 完成第6章课后习题 P190的1、4、8题，下周交作业 * VB程序设计 * 第六章 过程 6.1 过程与模块的概念 6.2 Sub子过程的定义及其调用 6.3 Function函数过程的定义及其调用 6.4 参数的传递 6.5 变量与过程的作用域 6.6 过程的递归调用 6.7 常用算法举例（三） 6.8 多重窗体的程序设计 回顾上节课内容 过程：事件过程、通用过程 通用过程：Sub子过程、Function函数过程 定义、调用、区别 参数传递：按值传递、按地址传递 * * 6.4.3 数组参数的传递 Function tim( a() As Integer ) Dim t#, i% t = 1 for i = Lbound(a) to Ubound(a) t = t * a(i) next i tim = t End Function 用数组来做形参 形参数组的语法格式： 形参数组名( )[As 类型] 数组按传址方式进行传递； 语法格式中忽略数组维数定义； 圆括号不能省。 * 对应的实参必须是数组，且类型与形参类型对应。 实参数组直接放在实参表中，忽略维数的定义，圆括号可以省略。 调用Function tim(a() As Integer)： t1 = tim(a()) t2 = tim(b) 注意： * 例6-9 累乘问题 Private Sub Form_Click() Dim a%(1 to 5) , b%(4 to 8) , i% , t1# , t2# For i = 1 to 5 a(i) = i Next i For i = 4 to 8 b(i) = i Next i t1 = tim(a()) t2 = tim(b) Print “t1=”, t1, “t2=”, t2 End Sub Function tim(a() As Integer) Dim t#, i% t = 1 For i = LBound(a) to UBound(a) t = t * a(i) Next i tim = t End Function 编一求任意一维数组各元素之积的通用函数过程。并调用它。 * 例6-10 选择法排序（调用排序的子过程） Public Sub sort2(a() As Integer) Dim