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

延迟符
01
VB应用程序
02
过程
03
函数
延迟符
01
VB应用程序
过程强调的是动作
函数强调的是值的计算
VB应用程序
按模块化的方式组成的，一个程序模块是程序的一部分，每个模块负责解决整个应用问题的一部分任务。
延迟符
02
过程
延迟符
输入标题
输入标题
输入标题
可以将程序划分成一个个较小的逻辑单元，每个这样的逻辑单元可以构成一个过程。过程中的代码可以被重复地调用，从而避免了不必要的代码的重复编制，减少了编程的工作量。
过程分为两类：一类是事件过理过程，一类是通用过程。
事件处理过程描述的是，当对象X上发生某个事件Y时，需要执行一段程序来响应这个事件，如鼠标单击Click事件过程，窗体加载Load事件过程等；而通用过程则是一个独立的程序段，不同的事件可能需要使用同一个程序段时，可以把这个程序段单独地建成一个通用过程，供其他事件处理过程或其他通用过程调用。
02
过程
延迟符
输入标题
输入标题
输入标题
02
过程
延迟符
窗　体
Form_Load、Form1_Click
文本框
Text1_Click、Text1_KeyPress、Text1_Change、Text1_DblClick
按　钮
Command1_Click
标　签
Label1_Click、Label1_DblClick
图像框
Image1_Click
计时器
Timer1_Timer
规则：对象名_事件
输入标题
输入标题
事件过理过程的一般形式：
02
过程
延迟符
Sub过程以Sub开头，以End_Sub结束。在Sub与End
Sub之间是描述过程操作的语句块，称为子程序体或过程体。过程体可以含有多个Exit
Sub的语句，程序执行Exit
Sub时提前退出该进程，返回到调用该过程的下一条语句。
【例1】　　[浙江高考]小李在设计VB程序时所使用复选框对象的属性窗口如下图所示，他想编制该复选框单击事件的处理过程，则该事件处理过程名是(　　)
A．CheckBox_Click
B．加粗_Click
C．Check1_Click
D．复选框_Click
【例1解题】　本题要确定单击复选框Check1的事件处理过程名。复选框对象的名称是________，属于________类，该对象的标题栏中显示文本是________。
【答案1】　________
check1
checkBox
加粗
C
【例2】　[浙江高考]某Visual
Basic
程序如下：
Private
Sub
Text2_KeyPress(KeyAscII
As
Integer)
　If
KeyAscII＝13
Then
Text1.Text＝Text2.Text
　End
If
End
Sub
程序运行时，能触发该事件过程的是(　　)
A．单击文本框Text1
B．单击文本框Text2
C．文本框Text1被激活后，用户在键盘上按下某一个键
D．文本框Text2被激活后，用户在键盘上按下某一个键
【例2解题】　本题考查事件处理过程的执行。题目中显示事件处理过程名为Text2_KeyPress，激活Text2文本框，并在键盘上按下某一个键后，能驱动该程序执行。
【答案2】　________
D
【例3】[浙江高考]某对象的一个事件过程代码如下：
Private
Sub
Obj_Click()
　s＝s＋1
　Text.Text＝Str(s)
End
Sub
下列说法正确的是(　　)
A．该过程的过程名为“Obj”
B．该事件是一个“单击”事件
C．该对象的对象名为“Obj_Click”
D．该对象的类名为“Sub”
【例3解题】　本题考查对事件处理过程代码的理解。事件处理过程名为：对象名_事件。该对象的对象名为________，事件为________，事件处理过程名为：________。这里无法确定该对象的类名。
【答案3】　________
Obj
Click
Obj_Click()
B
03
函数
延迟符
03
函数
延迟符
?程序执行Exit
Function语句时，就提前退出函数，返回调用点。
?函数名的命令规则与变量名的命名规则相同。在函数体内，可以像使用简单变量一样使用函数名。
?参数表是对于函数需要的原始数据的类型进行一一地说明。As后的类型名，是说明函数的计算结果，即函数返回值的数据类型。
End
Function之前的语句块，描述了函数的计算过程，在这些语句中，至少有一个形如“函数名＝表达式”的语句，这样，表达式的计算结果才能作为函数的返回值，被VB送到函数的调用点上。
?自定义函数的调用比较简单，与内部函数没有什么区别，只不过内部函数由VB提供，而自定义函数由用户自己定义。调用的格式如下：
。
自定义函数名(参数表)
举个例子
输入标题
03
函数
延迟符
比较a、b的大小；
比较a、b、c的大小；
比较a、b、c、d的大小；
比较a、b、c、d、e的大小；
比较a、b、c、d、e……的大小；
【例1】　　[浙江高考]有如下Visual
Basic自定义函数：
Function
f(x
As
Integer)As
Boolean
　If
x
Mod
2＝0
Then
f＝True
Else
f＝False
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
As
Integer
　x＝Val(Text1.Text)　　
　　'第1个正整数
　y＝Val(Text2.Text)　　
'第2个正整数
　　　　　　　　
'调用函数gcd
　Text3.Text＝Str(z)
End
Sub
Function
gcd(a
As
Integer，b
As
Integer)As
Integer
　Do
While
a＜＞b
If
a＞b
Then
a＝a—b
Else
b＝b－a
　Loop
　gcd＝b
End
Function
方框中的正确语句是(　　)
A．z＝gcd
B．z＝gcd(a，b)
C．z＝gcd(x，y)
D．z＝gcd
x，y
【例2解题】　本题考查自定义函数的调用。在调用已经定义好的函数时，必须要有与定义函数数量相同，类型相同的参数。本题中定义函数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
　a＝Val(Text1.Text)：b＝Val(Text2.Text)：c＝Val(Text3.Text)
　d＝max(a，b)
　z＝max(d，c)
　Text4.Text＝Str(d)
　Text5.Text＝Str(z)
End
Sub
Function
max(x
As
Integer，y
As
Integer)As
Integer
　If
x＞y
Then
max＝x
Else
max＝y
End
Function
运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、—5、6后，单击命令按钮Command1，文本框Text5中显示的是(　　)
A．－5
B．2
C．6
D．24
【例3解题】　本题考查自定义函数的应用。自定义函数max的功能是求两个数中的较大值。调用函数max(a，b)后，变量d的值是a，b两个数中的较大值，即d＝____，调用函数max(d，c)后，变量z的值是d，c两个数中的较大值，即z＝____。
【答案3】　________
2
6
C
谢谢
延迟符
PPT模板下载：www./moban/
行业PPT模板：www./hangye/
节日PPT模板：www./jieri/
PPT素材下载：www./sucai/
PPT背景图片：www./beijing/
PPT图表下载：www./tubiao/
优秀PPT下载：www./xiazai/
PPT教程：
www./powerpoint/
Word教程：
www./word/
Excel教程：www./excel/
资料下载：www./ziliao/
PPT课件下载：www./kejian/
范文下载：www./fanwen/
试卷下载：www./shiti/
教案下载：www./jiaoan/
PPT论坛：www.