2.5.2过程与函数 (2)

1、Function过程高二计算机专业程序设计一、提出问题，导入新课。（5分钟）1.求1！+3！+5！=？求自然数的每个数的阶乘之和。对于以上问题，我们利用之前学过的知识如何解决？循环结构程序(双重循环）： for i=1 to 5 step 2 t=1 for j=1 to i t=t*j Next j Sum=sum+t Next i Print sum今天我们学完function过程之后，再利用function过程来一起完成这个问题。二、启发引导，获取新知。（25分钟）Function过程是一种函数，也称function函数。与sub过程不同的是，它通过函数名变量返回一个值，通常在表达式中直

2、接调用。本节课主要学习function过程的建立和调用。1.function过程的定义(1)function过程的格式： 【static】【private】【public】function 过程名（【参数列表】）【as 类型】 语句块 【过程名=表达式】 【exit function】 End function(2)【说明】Function过程以function开头，以End function结束，中间是过程体。格式中的static、private、public、“过程名”“参数列表”“Exit function”的含义与sub过程相同。“as类型”是function过程返回值的类型，可以是i

3、nteger、long、single、double、curreny、date或string，如果省略，则为variant。“表达式”的值是过程返回的结果。通过“过程名=表达式”赋给过程名，该值就是function过程返回的值。如果在function过程中没有“过程名=表达式”语句，则该过程返回相应类型的默认值，数值函数过程返回0，字符串函数过程返回空字符串。例：判断一个数的奇偶性的function过程。Function even(x as integer) as Boolean If x mod 2=0 then Even=true Else Even=false End ifEnd func

4、tion2.调用function过程Function过程的调用比较简单，可以像使用Visual Basic内部函数一样来调用function过程。通常情况下，function的调用是通过表达式的形式完成，调用的基本方式是在函数名后跟一对括号，括号内是参数。由于函数也是一种过程，若不需要返回值，也可以使用call语句来调用。看一下：下面例题中的代码如何调用前面定义的判断奇偶性的function过程。【例1】编写程序，用户输入一个整数，判断其奇偶性。程序如下：Private sub command1_click()A=val(inputbox(“请输入一个整数“)If even（a）=true t

5、hen Print”数“& a &“为偶数”Else Print “数“& a &”为奇数“End ifEnd functionFunction even(x as integer) as Boolean If x mod 2=0 thenEven=trueElseEven=falseEnd ifEnd function三、课堂随练，巩固新知。（5分钟）设有如下通用过程：Public Function f(x As Integer)Dim y As IntegerX=20Y=2F=x*yEnd Function在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private

6、 Sub Command1_Click()Static x As IntegerX=10Y=5Y=f(x)Print x;yEnd sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 _。A 10 5 B 20 5 C 20 40 D 10 40 C【例2】求1！+3！+5！=？定义求阶乘的函数过程fact Private sub form_click()Dim sum as doubleSum=sum+fact(1)+fact(3)+fact(5) 调用函数Print “1！+3！+5！=”；sum End sub在按钮的click事件过程中调用函数过程Function fact(n as integer) as doubleDim I as integer,f as doublef=1For i=1 to nf=f*iNext iFact=f 给函数过程名赋值 End function四、课堂总结，知识回顾。（5分钟）Function过程？function过程的格式？调用function过程的方法？五、课堂延伸，知识拓展。（