VB事件处理过程
- 格式：pptx
- 大小：704.42 KB
- 文档页数：22
下载文档原格式
合集下载
VB常用控件的事件详解
(激活)
当窗体变为活动窗体时发生此事件，此事件比Load事件发生得晚，事件处理过程原形
Private Sub Form_Activate()
End Sub
此事件常用于激活窗体后对窗体进行初始化，比Load事件功能强。
Click
(单击)
当用户单击窗体时发生此事件，事件处理过程原形
Private Sub Form_Click()
Shift 转换键，意义如下：
0 没有转换键按下
1 Shift键按下
2 Ctrl键按下
3 Alt键按下
当多个转换键同时按下时，应把几个键对应的数值相加
KeyPress
(敲击键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户敲击键盘上某个键时发生此事件，事件处理过程原形
Private Sub Form_KeyPress(KeyAscii As Integer)
End Sub
形参的意义：
KeyAscii 按键Ascii码
若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。
KeyUp
(释放键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键后释放时发生此事件，事件处理过程原形
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
KeyDown
(按下键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键时发生此事件，事件处理过程原形
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
当窗体变为活动窗体时发生此事件，此事件比Load事件发生得晚，事件处理过程原形
Private Sub Form_Activate()
End Sub
此事件常用于激活窗体后对窗体进行初始化，比Load事件功能强。
Click
(单击)
当用户单击窗体时发生此事件，事件处理过程原形
Private Sub Form_Click()
Shift 转换键，意义如下：
0 没有转换键按下
1 Shift键按下
2 Ctrl键按下
3 Alt键按下
当多个转换键同时按下时，应把几个键对应的数值相加
KeyPress
(敲击键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户敲击键盘上某个键时发生此事件，事件处理过程原形
Private Sub Form_KeyPress(KeyAscii As Integer)
End Sub
形参的意义：
KeyAscii 按键Ascii码
若改变KeyAscii参数，相当于按下了不同的键，若置此参数为0，则取消按键。
KeyUp
(释放键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键后释放时发生此事件，事件处理过程原形
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
End Sub
KeyDown
(按下键)
当窗体上没有能获得焦点的控件(如文本框控件)时，用户按下键盘上某个键时发生此事件，事件处理过程原形
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
vb6.0编程步骤
Visual Basic 6.0（VB6.0）是一种可视化编程语言，它使用面向对象的编程方式来创建图形用户界面（GUI）和数据库应用程序。
以下是VB6.0编程的一般步骤：
1.启动VB6.0：打开VB6.0的安装目录，找到并双击VB6.exe图标，启动VB6.0。
2.创建新工程：在VB6.0的“新建工程”对话框中选择“Windows 窗体应用程序”，然后
点击“新建”按钮。
3.添加控件：在窗体设计器中，从工具箱中拖动控件到窗体上。
例如，您可以使用按
钮、文本框、标签等控件。
4.设置控件属性：在属性窗口中设置控件的属性，如名称、位置、大小、背景色等。
5.编写事件处理程序：为控件添加事件处理程序，以便在用户与控件交互时执行代
码。
例如，当用户单击按钮时，您可以编写一个事件处理程序来执行特定的操作。
6.调试程序：使用调试器检查程序中的错误并调试代码。
您可以在调试模式下运行程
序，并使用调试器设置断点、单步执行代码等。
7.编译和运行程序：完成编程和调试后，使用“生成”菜单中的选项将程序编译成可执
行文件，并运行程序以测试它是否按预期工作。
8.保存工程：在VB6.0中选择“文件”菜单中的“保存工程”选项，将工程保存到磁盘上
的特定位置。
9.关闭VB6.0：在完成编程后，关闭VB6.0并返回到操作系统。
以上是VB6.0编程的一般步骤，您可以根据具体的应用程序需求进行修改和扩展。
VB期末考试考卷及答案
VB期末考试考卷及答案一、选择题（每题1分，共5分）1. 在VB中，下列哪个函数用于返回字符串的长度？A. Len()B. Length()C. Size()D. Count()A. DimB. IntegerC. IntD. Var3. 在VB中，下列哪个语句用于退出当前循环？A. Exit ForB. BreakC. Exit DoD. ContinueA. OpenB. LoadC. CreateD. Read5. 在VB中，下列哪个事件在窗体加载时发生？A. LoadB. InitializeC. FormLoadD. FormOpen二、判断题（每题1分，共5分）1. VB中的变量必须先声明后使用。
（）2. 在VB中，Sub过程可以返回值。
（）3. VB中的数组下标从1开始。
（）4. 在VB中，可以使用Select Case语句进行多条件判断。
（）5. VB中的字符串可以用单引号(')表示。
（）三、填空题（每题1分，共5分）1. 在VB中，用于声明常量的关键字是______。
2. VB中的逻辑运算符包括______、______和______。
3. 在VB中，要实现两个变量的值交换，可以使用______变量作为中间变量。
4. 在VB中，______方法用于设置文本框的字体。
5. VB中的______事件在用户单击按钮时发生。
四、简答题（每题2分，共10分）1. 简述VB中事件的执行过程。
2. 请列举三种VB中的数据类型。
3. 简述如何使用Select Case语句进行多条件判断。
4. 请说明如何使用VB中的循环结构实现1到100的累加。
5. 简述如何使用VB中的文件操作函数读取文件内容。
五、应用题（每题2分，共10分）1. 编写一个VB程序，计算并输出1到100之间所有偶数的和。
2. 编写一个VB程序，实现用户输入一个字符串，程序将其逆序输出。
3. 编写一个VB程序，使用循环结构输出九九乘法表。
VB事件和事件处理
4 显示“是”和“否”按钮
vbRetryCanel
20
5 显示“重试”和“取消”按钮
MsgBox 函数语法 5-3
• 消息框中“标志和按钮”参数中关于描 述图标样式的值：
图标样式常数 vbCritical vbQuestion vbExclamation vbInformation
值
说明
16 显示临界信息图标。
32 显示警告查询图标。 48 显示警告消息图标。 64 显示信息消息图标。
21
MsgBox 函数语法 5-4
• 消息框中“标志和按钮”参数中关于确定 默认按钮的值：
默认按钮常数 vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4
定的执行路径，而是由操作来决定 • 响应事件时执行的代码称为事件处理程序
4
事件驱动编程的优点
• 可以为用户提供即时反馈 • 使程序设计更贴近用户的操作需要 • 使程序设计的目的性更强 • 减少程序的复杂性
5
Visual Basic 的应用程序事件
Private Sub Command1_Click () ...
‘要执行的语句
不带参数 的事件
...
End Sub
Private Sub Command1_DragDrop (Source As Control,
X As Single, Y As Single)
... ‘要执行的语句
带参数的 事件
...
End Sub
• 可分为用户事件和系统事件
6
用户事件
• 由用户执行的某些操作所触发的事件 称为用户事件。例如，简单的用户操 作：
vbRetryCanel
20
5 显示“重试”和“取消”按钮
MsgBox 函数语法 5-3
• 消息框中“标志和按钮”参数中关于描 述图标样式的值：
图标样式常数 vbCritical vbQuestion vbExclamation vbInformation
值
说明
16 显示临界信息图标。
32 显示警告查询图标。 48 显示警告消息图标。 64 显示信息消息图标。
21
MsgBox 函数语法 5-4
• 消息框中“标志和按钮”参数中关于确定 默认按钮的值：
默认按钮常数 vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4
定的执行路径，而是由操作来决定 • 响应事件时执行的代码称为事件处理程序
4
事件驱动编程的优点
• 可以为用户提供即时反馈 • 使程序设计更贴近用户的操作需要 • 使程序设计的目的性更强 • 减少程序的复杂性
5
Visual Basic 的应用程序事件
Private Sub Command1_Click () ...
‘要执行的语句
不带参数 的事件
...
End Sub
Private Sub Command1_DragDrop (Source As Control,
X As Single, Y As Single)
... ‘要执行的语句
带参数的 事件
...
End Sub
• 可分为用户事件和系统事件
6
用户事件
• 由用户执行的某些操作所触发的事件 称为用户事件。例如，简单的用户操 作：
事件 方法 vb
事件方法vb事件方法是Visual Basic中用于处理事件的过程或函数。
事件方法通常与用户交互或操作相关的事件相关联，例如按钮点击事件、菜单项点击事件等。
当发生与事件相关的动作时，事件方法将被调用并执行特定的代码。
在Visual Basic中，可以通过以下方式创建事件方法：1. 使用事件处理程序向控件添加事件方法。
可以通过双击控件，在代码编辑器中自动生成事件方法的框架代码。
在事件方法中，可以编写与事件相关的代码逻辑。
vbPrivate Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click' 事件相关的代码逻辑End Sub2. 手动编写事件方法。
通过在代码中声明事件方法，并使用事件处理程序将其与事件关联起来。
vbPrivate Sub MyEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)' 事件相关的代码逻辑End Sub' 将事件处理程序与事件关联AddHandler Button1.Click, AddressOf MyEventHandler在事件方法中，可以使用Visual Basic提供的语法和函数来实现特定的功能。
例如，可以在按钮点击事件方法中编写代码来执行某些操作，例如更改文本框的内容、执行计算、显示消息框等。
总之，事件方法是Visual Basic中用于处理事件的过程或函数，通过与事件关联，可以在特定的事件发生时执行相应的代码。
(完整word版)VB常用控件的事件详解
End Sub
形参的意义：
X、Y 鼠标移动过程中的瞬时坐标
其它各参数的意义请参阅MouseDown事件
MouseUp
(释放鼠标）
当鼠标在窗体上，用户释放鼠标键时发生此事件,事件处理过程原形
Private Sub Form_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）
End Sub
形参的意义：
X、Y 鼠标移动释放时的瞬时坐标
其它各参数的意义请参阅MouseDown事件
OLECompleteDrag
当源部件被放到目标部件时发生此事件,并通知源部件拖放操作被执行或取消。事件处理过程原形
Private Sub Form_OLECompleteDrag(Effect As Long)
2.04CoolBar控件的事件
2。05数据组合框(DataCombo）控件的事件
2。06数据型电子表格（DataGrid)控件的事件
2。07数据列表（DataList)控件的事件
2。08DTPicker控件的事件
2.09平面滚动条(FlatScrollBar)控件的事件
2。10图像组合框(ImageCombo）控件的事件
Private Sub Form_DragOver（Source As Control， X As Single， Y As Single， State As Integer）
End Sub
形参的意义：指针在目标窗体或控件中水平（X）和垂直(Y)位置的数字。
Shift 转换键，意义如下：
0 没有转换键按下
1 Shift键按下
2 Ctrl键按下
形参的意义：
X、Y 鼠标移动过程中的瞬时坐标
其它各参数的意义请参阅MouseDown事件
MouseUp
(释放鼠标）
当鼠标在窗体上，用户释放鼠标键时发生此事件,事件处理过程原形
Private Sub Form_MouseUp（Button As Integer, Shift As Integer, X As Single, Y As Single）
End Sub
形参的意义：
X、Y 鼠标移动释放时的瞬时坐标
其它各参数的意义请参阅MouseDown事件
OLECompleteDrag
当源部件被放到目标部件时发生此事件,并通知源部件拖放操作被执行或取消。事件处理过程原形
Private Sub Form_OLECompleteDrag(Effect As Long)
2.04CoolBar控件的事件
2。05数据组合框(DataCombo）控件的事件
2。06数据型电子表格（DataGrid)控件的事件
2。07数据列表（DataList)控件的事件
2。08DTPicker控件的事件
2.09平面滚动条(FlatScrollBar)控件的事件
2。10图像组合框(ImageCombo）控件的事件
Private Sub Form_DragOver（Source As Control， X As Single， Y As Single， State As Integer）
End Sub
形参的意义：指针在目标窗体或控件中水平（X）和垂直(Y)位置的数字。
Shift 转换键，意义如下：
0 没有转换键按下
1 Shift键按下
2 Ctrl键按下
VB事件大全集
用鼠标左键双击控件。 双击 Style 属性设置为 1(Simple) 的 ComboBox 控件中的项目， 或者在 FileListBox 、 ListBox 、 DataCombo 或 DataList 控 件中的项目。
语法 Private Sub Form_ DblClick ( ) Private Sub object _DblClick ( index As Integer)
一个控件来说，这类事件的发生是当：
用鼠标的左键或右键单击一个控件。对 CheckBox ,
CommandButton
, Listbox 或 OptionButton
控件来说， Click事来自仅当单击鼠标左键时发生。通过按下箭头键或者单击鼠标按钮，对 ComboBox或 ListBox 控件中的
项目进行选择。
PictureBox － 改变 PictureBox 的内容。该事件当一个 DDE 链接更新 数据或通过代码改变 Picture 属性的设置时发生。 TextBox － 改变文本框的内容。 该事件当一个 DDE 链接更新数据、 用户 改变正文或通过代码改变 Text 属性的设置时发生。 语法 Private Sub object _Change( [ index As Integer ] ) Change 事件语法包括下列部分：
如果可能， 应避免为控件编写能改变该控件内容的 Change 事件过程。 如 果编写了那样的过程， 应确保设置一个标志用来防止在当前变化进行中更 进一步的变化。 避免创建两个或两个以上其 Change 事件过程互相影响的控件。 例如，两 个 TextBox 控件在它们的 Change 事件期间互相更新。 避免对 HScrollBar 和 VScrollBar 控件在 Change 事件中使用 MsgBox 函数或语句。
语法 Private Sub Form_ DblClick ( ) Private Sub object _DblClick ( index As Integer)
一个控件来说，这类事件的发生是当：
用鼠标的左键或右键单击一个控件。对 CheckBox ,
CommandButton
, Listbox 或 OptionButton
控件来说， Click事来自仅当单击鼠标左键时发生。通过按下箭头键或者单击鼠标按钮，对 ComboBox或 ListBox 控件中的
项目进行选择。
PictureBox － 改变 PictureBox 的内容。该事件当一个 DDE 链接更新 数据或通过代码改变 Picture 属性的设置时发生。 TextBox － 改变文本框的内容。 该事件当一个 DDE 链接更新数据、 用户 改变正文或通过代码改变 Text 属性的设置时发生。 语法 Private Sub object _Change( [ index As Integer ] ) Change 事件语法包括下列部分：
如果可能， 应避免为控件编写能改变该控件内容的 Change 事件过程。 如 果编写了那样的过程， 应确保设置一个标志用来防止在当前变化进行中更 进一步的变化。 避免创建两个或两个以上其 Change 事件过程互相影响的控件。 例如，两 个 TextBox 控件在它们的 Change 事件期间互相更新。 避免对 HScrollBar 和 VScrollBar 控件在 Change 事件中使用 MsgBox 函数或语句。
【精】VB基础知识
z VB基础知识
z
对象、属性、事件和事件处理的概念
对象 Label1,command1, Text1 List1
Timer1
属性名 .Caption .text .additem(“str”) .enabled .interval
说明 控件上的文字 文本框中的文字 添加列表项
z
对象、属性、事件和事件处理的概念
单精度浮点型 4 -3.4028231038 ～ 3.402823 1038
双精度浮点型 8
-1.7976931348623210308 ～ 1.79769313486232 10308
字符串
用“”括起来
逻辑型
判断的结果，其值为真（True）或假（False）
String字符串类型： Text1.text, Label1.caption, list1.additem(“ “) Str(100), Chr(65), ”100”,
▪ 列表ring)
z 常z用对象及其主要属性
▪ 命令按钮command1对象 ▪ 属性名：caption，属性值:“command1”
▪ 列表框list1对象 ▪ List1.additem(string)
z z常用对象及其主要属性
▪ 时钟timer1对象 ▪ 属性名：interval，属性值：1000，
事件就是发生在对象上的事情，通常是由用户在对象上激发的一种 动作。
事件 对象名
单击 双击 载入 定时
command1 label1 form1 timer1
事件名
Click（） Dblclick（） Load（） Timer（）
事件处理过程 对象名_事件名 Command1_Click() Label1.DblClick() Form1.Load() Timer1.Timer()
z
对象、属性、事件和事件处理的概念
对象 Label1,command1, Text1 List1
Timer1
属性名 .Caption .text .additem(“str”) .enabled .interval
说明 控件上的文字 文本框中的文字 添加列表项
z
对象、属性、事件和事件处理的概念
单精度浮点型 4 -3.4028231038 ～ 3.402823 1038
双精度浮点型 8
-1.7976931348623210308 ～ 1.79769313486232 10308
字符串
用“”括起来
逻辑型
判断的结果，其值为真（True）或假（False）
String字符串类型： Text1.text, Label1.caption, list1.additem(“ “) Str(100), Chr(65), ”100”,
▪ 列表ring)
z 常z用对象及其主要属性
▪ 命令按钮command1对象 ▪ 属性名：caption，属性值:“command1”
▪ 列表框list1对象 ▪ List1.additem(string)
z z常用对象及其主要属性
▪ 时钟timer1对象 ▪ 属性名：interval，属性值：1000，
事件就是发生在对象上的事情，通常是由用户在对象上激发的一种 动作。
事件 对象名
单击 双击 载入 定时
command1 label1 form1 timer1
事件名
Click（） Dblclick（） Load（） Timer（）
事件处理过程 对象名_事件名 Command1_Click() Label1.DblClick() Form1.Load() Timer1.Timer()
vb程序设计实验报告
vb程序设计实验报告VB程序设计实验报告一、引言在计算机科学与技术领域中，程序设计是一项至关重要的技能。
Visual Basic （VB）作为一种强大的编程语言，被广泛应用于软件开发领域。
本实验报告旨在总结和分析我在VB程序设计实验中的学习和实践经验。
二、实验目的本次实验的主要目的是通过设计和实现一个简单的VB程序，加深对VB语言的理解和掌握。
通过这个实验，我将学习如何使用VB语言进行界面设计、事件处理和数据处理。
三、实验过程1. 界面设计在实验开始时，我首先进行了界面设计。
通过VB的可视化设计环境，我选择了合适的控件，布局了用户界面。
我使用了文本框、标签、按钮等控件，使用户能够输入数据并进行相应的操作。
2. 事件处理在界面设计完成后，我开始编写事件处理程序。
我为按钮添加了点击事件，当用户点击按钮时，程序会执行相应的操作。
例如，当用户点击“计算”按钮时，程序会读取用户输入的数据，并进行计算操作。
通过编写事件处理程序，我学会了如何响应用户的操作，并进行相应的逻辑处理。
3. 数据处理在实验中，我还学习了如何进行数据处理。
我使用了VB的变量和运算符，对用户输入的数据进行计算和处理。
通过编写算法和逻辑，我实现了对用户输入数据的验证和处理，确保程序能够正确运行。
四、实验结果经过一段时间的设计和调试，我成功完成了VB程序的实现。
我的程序可以根据用户输入的数据进行相应的计算，并将结果显示在界面上。
通过这个实验，我不仅巩固了VB语言的基础知识，还提高了自己的编程能力。
五、实验总结通过这次VB程序设计实验，我收获了很多。
首先，我学会了如何使用VB语言进行界面设计，掌握了一些常用的控件和布局方法。
其次，我学习了如何编写事件处理程序，响应用户的操作，并进行相应的逻辑处理。
最后，我还学习了如何进行数据处理，使用变量和运算符对数据进行计算和处理。
在实验过程中，我遇到了一些问题和挑战。
例如，我曾经遇到过界面布局不合理导致用户体验不佳的情况，但通过不断的调整和改进，最终解决了这个问题。
过程与函数
B.Form_Click D.List1_Load
【例2】
【例3】
○ 过程的调用(包括事件处理过程) 可以通过”call 过程名”完成对过程的调用。
1.函数不同于过程之处在于函数执行完成后会返回一个函数值到函数的调用点上,供程序的 后继部分继续进行处理。 2.函数的函数值是通过函数名来返回的。 3.VB函数主要分为标准函数和自定义函数,这里主要介绍自定义函数。
Dim n As Single,y As Single n=Val(Text1.Text)
Label1.Caption=Str(y)
End Sub 则程序中划线处应填入的正确语句是( D )
A.fx(x)
B.fx(n)
C.y=fx(x)
例5、
C C
例6、下列VB程序的功能是:在文本框Text1中输入一个数,在标签Label1上显示该数 的绝对值。 Function fx(x As Integer) As Single
If x>0 Then fx=x
Else fx=-x
End If End Function Private Sub Command1_Click()
一、过程与函数的关系
VB应用程序采用模块化方式组成，每个模块负责解决整个问题的某一部分任务， 各模块之间既相互独立又互相关联。程序模块主要分为两种：过程 和 函数 。
VB常用对象上的常见事件处理过程名有: 文本框TextBox:
Text_Click（）、Text_Change（）、Text_KeyPress（） 命令按钮CommandButton:
Command_Click（） 标签Label:
Label_Click（） 窗体Form:窗体装载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在标签上单击鼠标
3
例题讲解
事件处理过程
例1、设计一个应用程序，计算一个立方体的体积。设用户分别在文本框Text1、Text2、Text3中输入立方体的长、 宽、高，程序的计算结果在文本框Text4中显示。当用户数据输入完后，可单击 字面为“计算”的命令按钮 Command1，程序将立即进行立方体体积的计算。
步骤1：确定需要几个模块
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
步骤2：确定需要哪几个事件
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
End Sub
计算体积
VB中过程是Sub开始，EndSub结尾
解题3步走
1、确定需 要几个模块 题
2、确定需 要哪几个事 件
3、编写相 应的代码
解题3步走
事件处理过程
例2、设计一个应用程序，计算一批输入数据（不超过500个）的平均值。要求能显示： （1）每次输入的数据 （2）已经输入的数据个数 （3）输出计算得到的平均值 （4）输出已经输入的数据的列表
End Sub
Sub shuru_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(shuru.Text) liebiao.AddItem shuru.Text shru.Text = “” jishu.text = Str(nc) End If End If
End Sub
事件处理过程名必须符合原则：对象名_事件的标准名
例如：Text1.Click
对象
事件的标准名
文本框 Text
Click DblClick
KeyPress
命令按钮 Command
标签label
Click KCelicykPress
说明
在文本框内单击鼠标
在文本框内双击鼠标
文本框被激活后，用 户在键盘上按下了某 一个键 在命令按钮上单击鼠 标
nc=nc+1
d(nc)=val(Text1.Text)
List1.AddItem Text1.Text 将数据添加到列表中
Text1.Text = “”
Text2.text = Str(nc)
End If
End If
End Sub
点击计算平均值
Sub Command1_Click()
Dim sum As Double
End Sub
养成给每一个控件独立命名，便于代码二次阅读
感谢观看
4.4.1事件处理过程
步骤3：编写相应的代码
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
用户启动一次新的计算
Sub Text1_Click( )
Text1.Text=“”:Text2.Text=“”:Text3.Text=“”
A
过程
分为事件处理过程(事件触发)和通用过程（自定义），
无返回值
B
函数
也是程序模块，有返回值
2
讲授新知
如果按下下面这个按钮，你会获得10元，而你的某一位朋友会胖1克，你会怎样？
什么？ 面对疾风吧！
按下按钮 按下开关 双击图标
事 件
获得10元 电灯亮起 打开软件
结 果
事件处理过程的结构
Sub 事件处理过程名（参数表） 语句块
V B编程
4.4.1事件处理过程
目 录
1
2
知识回顾
1.VB编程模块化的组成部分
2.过程与函数的区别
3 4
讲授新知
1.事件处理过程的结构 2.各事件的含义
典型例题讲解
1.求立方体体积 2.解题三步走 3.求数列平均值
能力提高及一点码习惯
1
知识回顾
VB程序模块化的组成部分
Dim i As Integer
sum=0
累加器
For i=1 to nc
sum=sum+d(i)
Next I
If nc>0 Then
为什么？
Text3.Text=Str(sum/nc)
Else
Text3.Text=Str(0)
End If
End Sub
4
能力提高及一点经验
能力提高
1、每次单击输入框都会清空数据，如何做到防误触？ 2、精简代码，如何可以不用数组和循环？
一点经验之谈
Sub Text1_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(Text1.Text) List1.AddItem Text1.Text Text1.Text = “” Text2.text = Str(nc) End If End If
事件名 Sub Command1_Click()
Dim a As Double, b As Double, c As Double
获取输入值
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(text3.Text)
Text4.Text = Str(a * b * c)
List1.Clear nc=0
清空列表
End Sub
清空计数器
清空3个输入框
用户输入了数据
获取ASCII码值
Sub Text1_KeyPress(KeyAscii As Integer )
If KeyAscii = 13 Then
回车键的ASCII码为13
If nc<500 Then
如果大于500？
3
例题讲解
事件处理过程
例1、设计一个应用程序，计算一个立方体的体积。设用户分别在文本框Text1、Text2、Text3中输入立方体的长、 宽、高，程序的计算结果在文本框Text4中显示。当用户数据输入完后，可单击 字面为“计算”的命令按钮 Command1，程序将立即进行立方体体积的计算。
步骤1：确定需要几个模块
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
步骤2：确定需要哪几个事件
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
End Sub
计算体积
VB中过程是Sub开始，EndSub结尾
解题3步走
1、确定需 要几个模块 题
2、确定需 要哪几个事 件
3、编写相 应的代码
解题3步走
事件处理过程
例2、设计一个应用程序，计算一批输入数据（不超过500个）的平均值。要求能显示： （1）每次输入的数据 （2）已经输入的数据个数 （3）输出计算得到的平均值 （4）输出已经输入的数据的列表
End Sub
Sub shuru_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(shuru.Text) liebiao.AddItem shuru.Text shru.Text = “” jishu.text = Str(nc) End If End If
End Sub
事件处理过程名必须符合原则：对象名_事件的标准名
例如：Text1.Click
对象
事件的标准名
文本框 Text
Click DblClick
KeyPress
命令按钮 Command
标签label
Click KCelicykPress
说明
在文本框内单击鼠标
在文本框内双击鼠标
文本框被激活后，用 户在键盘上按下了某 一个键 在命令按钮上单击鼠 标
nc=nc+1
d(nc)=val(Text1.Text)
List1.AddItem Text1.Text 将数据添加到列表中
Text1.Text = “”
Text2.text = Str(nc)
End If
End If
End Sub
点击计算平均值
Sub Command1_Click()
Dim sum As Double
End Sub
养成给每一个控件独立命名，便于代码二次阅读
感谢观看
4.4.1事件处理过程
步骤3：编写相应的代码
（1）用户启动一次新的计算：本程序应能进行多次计算，每次新的计算从激活文本框 text1（即鼠标单击Text1）开始 （2）用户输入了数据：每输入一个数字，应按下回车键 （3）用户输入完所有数据，点击计算平均值
用户启动一次新的计算
Sub Text1_Click( )
Text1.Text=“”:Text2.Text=“”:Text3.Text=“”
A
过程
分为事件处理过程(事件触发)和通用过程（自定义），
无返回值
B
函数
也是程序模块，有返回值
2
讲授新知
如果按下下面这个按钮，你会获得10元，而你的某一位朋友会胖1克，你会怎样？
什么？ 面对疾风吧！
按下按钮 按下开关 双击图标
事 件
获得10元 电灯亮起 打开软件
结 果
事件处理过程的结构
Sub 事件处理过程名（参数表） 语句块
V B编程
4.4.1事件处理过程
目 录
1
2
知识回顾
1.VB编程模块化的组成部分
2.过程与函数的区别
3 4
讲授新知
1.事件处理过程的结构 2.各事件的含义
典型例题讲解
1.求立方体体积 2.解题三步走 3.求数列平均值
能力提高及一点码习惯
1
知识回顾
VB程序模块化的组成部分
Dim i As Integer
sum=0
累加器
For i=1 to nc
sum=sum+d(i)
Next I
If nc>0 Then
为什么？
Text3.Text=Str(sum/nc)
Else
Text3.Text=Str(0)
End If
End Sub
4
能力提高及一点经验
能力提高
1、每次单击输入框都会清空数据，如何做到防误触？ 2、精简代码，如何可以不用数组和循环？
一点经验之谈
Sub Text1_KeyPress(KeyAscii As Integer ) If KeyAscii = 13 Then If nc<500 Then nc=nc+1 d(nc)=val(Text1.Text) List1.AddItem Text1.Text Text1.Text = “” Text2.text = Str(nc) End If End If
事件名 Sub Command1_Click()
Dim a As Double, b As Double, c As Double
获取输入值
a = Val(Text1.Text): b = Val(Text2.Text): c = Val(text3.Text)
Text4.Text = Str(a * b * c)
List1.Clear nc=0
清空列表
End Sub
清空计数器
清空3个输入框
用户输入了数据
获取ASCII码值
Sub Text1_KeyPress(KeyAscii As Integer )
If KeyAscii = 13 Then
回车键的ASCII码为13
If nc<500 Then
如果大于500？