4.4过程和函数.ppt

1、过程和函数,延迟符,目,录,01 VB应用程序,02 过程,03 函数,延迟符,过程强调的是动作,函数强调的是值的计算,VB应用程序,按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分任务。,延迟符,02 过程,延迟符,输入标题,输入标题,输入标题,可以将程序划分成一个个较小的逻辑单元，每个这样的逻辑单元可以构成一个过程。过程中的代码可以被重复地调用，从而避免了不必要的代码的重复编制，减少了编程的工作量。 过程分为两类：一类是事件过理过程，一类是通用过程。 事件处理过程描述的是，当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件，如鼠标单击Click

2、事件过程，窗体加载Load事件过程等；而通用过程则是一个独立的程序段，不同的事件可能需要使用同一个程序段时，可以把这个程序段单独地建成一个通用过程，供其他事件处理过程或其他通用过程调用。,延迟符,输入标题,输入标题,输入标题,延迟符,规则：对象名_事件,输入标题,输入标题,事件过理过程的一般形式：,延迟符,Sub过程以Sub开头，以End_Sub结束。在Sub与End Sub之间是描述过程操作的语句块，称为子程序体或过程体。过程体可以含有多个Exit Sub的语句，程序执行Exit Sub时提前退出该进程，返回到调用该过程的下一条语句。,【例1】浙江高考小李在设计VB程序时所使用复选框对象的属

3、性窗口如下图所示，他想编制该复选框单击事件的处理过程，则该事件处理过程名是() ACheckBox_Click B加粗_Click CCheck1_Click D复选框_Click,【例1解题】本题要确定单击复选框Check1的事件处理过程名。复选框对象的名称是_，属于_类，该对象的标题栏中显示文本是_。 【答案1】_,check1,checkBox,加粗,C,【例2】浙江高考某Visual Basic 程序如下： Private Sub Text2_KeyPress(KeyAscII As Integer) If KeyAscII13 Then Text1.TextText2.Text En

4、d If End Sub 程序运行时，能触发该事件过程的是() A单击文本框Text1 B单击文本框Text2 C文本框Text1被激活后，用户在键盘上按下某一个键 D文本框Text2被激活后，用户在键盘上按下某一个键,【例2解题】本题考查事件处理过程的执行。题目中显示事件处理过程名为Text2_KeyPress，激活Text2文本框，并在键盘上按下某一个键后，能驱动该程序执行。 【答案2】_,D,【例3】浙江高考某对象的一个事件过程代码如下： Private Sub Obj_Click() ss1 Text.TextStr(s) End Sub 下列说法正确的是() A该过程的过程名为“Ob

5、j” B该事件是一个“单击”事件 C该对象的对象名为“Obj_Click” D该对象的类名为“Sub”,【例3解题】本题考查对事件处理过程代码的理解。事件处理过程名为：对象名_事件。该对象的对象名为_，事件为_，事件处理过程名为：_。这里无法确定该对象的类名。 【答案3】_,Obj,Click,Obj_Click(),B,03 函数,延迟符,延迟符,程序执行Exit Function语句时，就提前退出函数，返回调用点。 函数名的命令规则与变量名的命名规则相同。在函数体内，可以像使用简单变量一样使用函数名。 参数表是对于函数需要的原始数据的类型进行一一地说明。As后的类型名，是说明函数的计算结果

6、，即函数返回值的数据类型。 End Function之前的语句块，描述了函数的计算过程，在这些语句中，至少有一个形如“函数名表达式”的语句，这样，表达式的计算结果才能作为函数的返回值，被VB送到函数的调用点上。 自定义函数的调用比较简单，与内部函数没有什么区别，只不过内部函数由VB提供，而自定义函数由用户自己定义。调用的格式如下： 。,自定义函数名(参数表),举个例子,输入标题,延迟符,比较a、b的大小； 比较a、b、c的大小； 比较a、b、c、d的大小； 比较a、b、c、d、e的大小； 比较a、b、c、d、e的大小；,【例1】浙江高考有如下Visual Basic自定义函数： Functio

7、n f(x As Integer)As Boolean If x Mod 20 Then fTrue Else fFalse End Function 该函数返回值的数据类型是() A整数型 B逻辑型 C日期型 D长整数型,【例1解题】本题考查自定义函数的语法。根据自定义函数格式(Function 函数名(参数表)As类型名)知，函数f的数据类型是Boolean，即_。 【答案1】_,逻辑型,B,【例2】浙江高考下列VB程序用于求2个正整数(均小于10000)的最大公约数： Private Sub Command1_Click() Dim x As Integer，y As Integer，z

8、 As Integer xVal(Text1.Text) 第1个正整数 yVal(Text2.Text) 第2个正整数 调用函数gcd Text3.TextStr(z) End Sub Function gcd(a As Integer，b As Integer)As Integer Do While ab If ab Then aab Else bba Loop gcdb End Function 方框中的正确语句是() Azgcd Bzgcd(a，b) Czgcd(x，y) Dzgcd x，y,【例2解题】本题考查自定义函数的调用。在调用已经定义好的函数时，必须要有与定义函数数量相同，类型

9、相同的参数。本题中定义函数gcd时引用了两个形式参数a、b，在调用函数gcd时，两个实际参数x、y与a、b相对应。 【答案2】_,C,【例3】浙江高考在Visual Basic中，有如下程序： Private Sub Command1_Click() Dim a As Integer，b As Integer，c As Integer Dim d As Integer，z As Integer aVal(Text1.Text)：bVal(Text2.Text)：cVal(Text3.Text) dmax(a，b) zmax(d，c) Text4.TextStr(d) Text5.TextStr(z) End Sub Function max(x As Integer，y As Integer)As Integer If xy Then maxx Else maxy End Function 运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、5、6后，单击命令按钮Command1，文本框Text5中显示的是() A5 B2 C6 D24,【例3解题】本题考查自定义函数的应用。自定义函数max的功能是求两个数中的较大值。调用函数max(a，b)后，变量d的值是a，b两个数中的较大值，即d_，调用函数max(d，c)后，变量z的值是d，c两个数中