浙教版选修一4.4 过程和函数 （19张）

4.4 过程与函数 高中信息技术 浙教2003课标版 选修1 算法与程序设计 VB应用程序是按模块化的方式组成的，每个模块完成一部分任务。 程序模块分为过程和函数两种 1、事件处理过程： 事件过理过程的一般形式参考如下： ①Sub过程以Sub开头，以End Sub结束。在Sub与End Sub之间是描述过程操作的语句块。过程体可以含有多个Exit Sub的语句，程序执行Exit Sub时提前退出该进程，返回到调用该过程的下一条语句。 当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件。 过程的分类：事件处理过程和通用过程（不作要求） ②事件处理过程名必须符合的规则是：“对象名_事件”的标准名。 VB常用对象的事件处理过程名有： 窗　体 Form_Load、Form1_Click 文本框 Text1_Click、Text1_KeyPress、Text1_Change、Text1_DblClick 按　钮 Command1_Click 标　签 Label1_Click、Label1_DblClick 图像框 Image1_Click 计时器 Timer1_Timer 备注 其中，Load事件是窗体加载事件，Click是鼠标单击事件，DblClick是鼠标双击事件，KeyPress是按下键盘任意键事件，Timer是计时器事件。 【例1】编写一个过程，计算一个立方体的体积，单击Command1按钮，程序立即进行体积的计算。 【例2】设计一个应用程序，计算一批输入数据的平均值(如图)，要求能显示： 自定义函数 VB有常用的标准函数 ，可以使用这些函数来实现某些数学计算或数据类型的转换 ，但许多应用程序常常需要自己来定义函数 ，以实现某种特定的功能。自定义函数建立过程格式如下： 函数体 自定义函数以Function语句开头，以End Function语句结束。其间是描述过程操作的语句，称为函数体。在函数体内可以含有多个Exit Function语句，程序执行Exit Function语句时，就提前退出函数，返回调用点。 命令规则 函数名的命令规则与变量名的命名规则相同。在函数体内，可以像使用简单变量一样使用函数名。 参数表 参数表是对于函数需要的原始数据的类型进行一一地说明。As后的类型名，是说明函数的计算结果，即函数返回值的数据类型。End Function之前的语句块，语句中，至少有一个形如“函数名＝表达式”的语句，表达式的计算结果才能作为函数的返回值，被VB送到函数的调用点上。 调用 自定义函数的调用比较简单，与内部函数没有什么区别，只不过内部函数由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 Sub 1、.某Visual Basic工程的代码窗口如图所示: ? A.窗口 ... ...