1章 VBA应用实例.ppt

Access 基础教程（第三版） 第10章 VBA应用实例 第10章 VBA应用实例 10.1 程序流程控制 10.2 文件 10.3 过程调用 10.4 计时器Timer 10.5 ADO数据库编程实例 10.1 程序流程控制 10.1.1 选择结构 例1：窗体中有一名为Command1的命令按钮，其单击事件过程如下所示，试分析单击该命令按钮后消息框中的显示内容。 实例：10_1 Private Sub Command1_Click（） a=75 If a60 Then k=1 ElseIf a70 Then k=2 ElseIf a80 Then k=3 ElseIf a90 Then k=4 End If MsgBox k End Sub 10.1 程序流程控制 例2：窗体中有一名为Command1的命令按钮，其单击事件过程如下所示，试分析单击该命令按钮后消息框中的显示内容。 实例：10_2 Private Sub Command1_Click（） A=75 If A60 Then I=1 If A70 Then I=2 If A80 Then I=3 If A90 Then I=4 MsgBox I End Sub 10.1 程序流程控制 例3：分析如下窗体单击事件过程的显示结果。 实例：10_3 Private Sub Form_Click（） a=1 For i=3 To 1 Step -1 Select Case i Case 1,3 a=a+1 Case 2,4 a=a+2 End Select Next i MsgBox a End Sub 10.1 程序流程控制 例4：试用If…Then…End If选择结构实现三个数由大到小的顺序排列。要求在如图10.1所示的“排序”窗体中名为“text1”、“text2”和“text3”的三个文本框中输入三个数，单击“排序”（名为Command1）按钮后，三个数按由大到小的顺序排列；单击“重新输入”（Command2）按钮后，清空文本框，以便于重新输入。结果如图10.2所示。 图10.1-10.2 实例：10_4 解题思路：要想将三个数进行排序，首先要将这三个数中任意两个数进行比较，如果比较过程中较大数在较小数之前，则不需要改变它们的顺序，否则需要将两个数的位置进行交换。对于三个数排序要进行（3×2）/（2×1）次比较。 本例中使用了去掉前导空格函数LTrim（）、类型转换函数Val（）和Str（）及对象获得焦点的方法SetFocus；同时在做较大数和较小数的置换过程使用了中间变量t，这是本例中需要注意的。三个If…Then…End If之间是顺序结构，实现了三次比较的过程。 10.1 程序流程控制 例5：试用Select Case选择结构实现一个收取货物运费的程序。要求：在固定两地之间，收取货物运费的原则是：10吨以内（不含10吨）的货物，每吨收取运费100元；10吨至50吨（不含50吨）的货物，每吨收取运费70元；50吨以上的货物，每吨收取运费50元。在如图10.3所示的“计算运输费用”窗体中“Weight”文本框（关联标签为“货物重量”）内输入货物重量后，单击Command1（标题为“计算”）按钮，在“Cost”文本框（关联标签为“运输费用”）中显示出运输费用；单击Command2（标题为“清除”）按钮，清空两个文本框。结果如图10.4所示。 图10.3-10.4 实例：10_5 解题思路：这是一个最为简单的多路分支选择结构实例，只需要根据货物重量的不同，选择不同运费计算公式即可。 本例中使用了去掉前导空格函数LTrim（）、类型转换函数Val（）和Str（）及对象获得焦点的方法SetFocus；同时在显示计算结果的过程中使用了连接运算符“+”（实现字符串的连接），这是本例中需要注意的。Select Case选择结构的执行过程是在找到满足条件的第一分支并执行其后的语句组，然后End Select。 10.1 程序流程控制 10.1.2 循环结构 例6：窗体中有一名为Command1的命令按钮，其单击事件过程