4.4过程与函数 课件（19张幻灯片）+1个微课+素材

课件19张PPT。4.4 过程与函数高中信息技术浙教2003课标版选修1 算法与程序设计 VB应用程序是按模块化的方式组成的，每个模块完成一部分任务。 程序模块分为过程和函数两种1、事件处理过程：事件过理过程的一般形式参考如下： ①Sub过程以Sub开头，以End Sub结束。在Sub与End Sub之间是描述过程操作的语句块。过程体可以含有多个Exit Sub的语句，程序执行Exit Sub时提前退出该进程，返回到调用该过程的下一条语句。当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件。过程的分类：事件处理过程和通用过程（不作要求）②事件处理过程名必须符合的规则是：“对象名_事件”的标准名。VB常用对象的事件处理过程名有：【例1】编写一个过程，计算一个立方体的体积，单击Command1按钮，程序立即进行体积的计算。【例2】设计一个应用程序，计算一批输入数据的平均值(如图)，要求能显示：自定义函数VB有常用的标准函数 ，可以使用这些函数来实现某些数学计算或数据类型的转换 ，但许多应用程序常常需要自己来定义函数 ，以实现某种特定的功能。自定义函数建立过程格式如下：求3!+5!+7!+11！=?不使用自定义函数Function Fact(N As Integer) As Double Dim i As Integer, F As Double F = 1 For i = 1 To N F = F * i Next i Fact = F End Function Private Sub command_Click() Dim sum As Double sum = sum + Fact(3)+ Fact(5) + Fact(7) + Fact(11) Print "3! +5!+7!+11!="; sum Endsub使用自定义函数Private Sub command_Click() Dim i As Integer, F1,F2,F3,F4 As Double F 1= 1 :F2=1:F3=1:F4=1 :Sum=0 For i = 1 To 3 F1 = F1 * i Next i ‘ For i = 1 To 5 F2 = F2 * i Next I For i = 1 To 7 F3= F3 * i Next I For i = 1 To 11 F4 = F4 * i Next I sum = F1+F2+F3+F4 Endsub比较两种方法得出什么结论：【例4】 设计一个函 数judge，判断year年是否是闰 年，若是，就返回1，否则，就返回0。 我们先构造一个函 数judge( year) ：‘判断year年是否 是闰年方 法；Function judge(y As Integer) As Integer If y mod 100=0 then If y mod 400=0 then judge=1 Else judge=0 Else If y mod 4=0 then judge=1 Else judge=0 Endif End Function Private Sub Form_Click() Dim a As Integer a=Val(Text1.Text) If judge(a)=1 Then Label1.Caption=”Yes” Else Label1.Caption=”NO” End SubA.窗口中有三个事件处理过程 B.窗口中有三个自定义函数过程 C.窗口中有两个事件处理过程和一个自定义函数过程 D.窗口中有一个事件处理过程和两个自定义函数过程 以下说法正确的是?(　　) 事件处理过程:Sub 事件处理过程名(参数表) 　　　 语句块 End Sub 自定义函数: Function 函数名(参数表) As 类型名 　　　 语句块 End Function Command1_Click和Form_Load是事件处理过程, even是自定义函数的函数名。答案????C课堂练习2、有如下程序: Private Sub Command1_Click() Dim x As Integer x=Val(Text1.Text) Text2.Text=even(x) End Sub Function even(num As Integer) As String 　If num Mod 2=0 Then even=“偶数” Else even=“奇数” End Function 程序中的自定义函数的函数名是?(　　) A.x　　B.even　　C.num　　D.Function答案????B　本题考查自定义函数的语法。 自定义函数:Function 函数名(参数表) As 类型名 　　　　 语句块 　　 End Function 根据自定义函数格式判断,该函数的函数名为even。3、有如下Visual Basic自定义函数： Function f(i As Single) As Boolean If i <＝ 0 Then f ＝ True Else f ＝ False End Function 执行语句s ＝ f(－0.4)后，逻辑型变量s的值是(　　) A．0 B．1 C．True D．False C4、Function f(m, ... ...