VB子过程子函数.ppt

子过程与函数过程之间的区别-1 例4-2-7：分别用子过程和函数过程编写计算求前n项和的程序。公式如下： progression= 当 0.00001时，结束计算。 共 74 页 * 子过程与函数过程之间的区别-2 在代码窗口的窗体模块声明段中定义子过程： 共 74 页 * Public Sub progression (ByRef sum#, ByVal x!, ByVal esp#) Dim n%, t# n = 2: sum = 1: t = 1 Do While (Math.Abs(t) = esp) t = t*x^2/((n-1)*n) sum=sum+ t n = n + 2 Loop End Sub 子过程与函数过程之间的区别-3 定义为函数过程 共 74 页 * Public Function progression2 (ByVal x!, ByVal esp#) As Double Dim n%, s#, t# n = 2: s = 1: t = 1 Do While (Math.Abs(t) = esp) t = t*x^2/((n-1)*n) s=s + t n = n + 2 Loop Progression2 = s End Function 子过程与函数过程之间的区别-4 注意： 与子过程progresssion相比，函数过程少一个形参 不是所有的子过程都可以用函数过程定义的，但所有的函数过程均可用子过程定义。 共 74 页 * 子过程与函数过程之间的区别-5 提示： 函数过程有返回值，因此函数过程要定义类型。另外，还必须在函数过程体中给函数过程名赋值 因为子过程没有值，所以子过程名也就不需要定义类型，也不能在过程体中给子过程名赋值。 调用函数过程有返回值，因此象内部函数一样只能出现在表达式或语句中，不能单独出现。子过程的调用相当于一个语句。 共 74 页 * 编程实现-1 活动二 在学习支持中已将活动二排序程序定义为一个子过程。在程序中评委亮分后，需要调用该子过程，以完成活动二的要求。 在代码窗口的窗体模块声明段中声明存放分数的数组c。 单击“评委亮分”按钮的事件过程： 共 74 页 * Dim c(9) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i As Integer For i = 0 To 9 c(i) = Int(Rnd() * 100) ‘随机产生10个分数 Next i Call sort(c) ‘调用排序子过程 End Sub 编程实现-2 单击“去掉最低分”按钮的事件过程： 单击“去掉最高分”按钮的事件过程： 共 74 页 * Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Label3.Text = CStr(c(0)) ’显示去掉的最低分 End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Label4.Text = CStr(c(9)) ’显示去掉的最高分 End Sub 编程实现-3 单击“选手得分”按钮的事件过程： 共 74 页 * Private Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click Dim i As Integer, s As Integer For i = 1 To 8 ’去