第8章 VBA编程语言.ppt

《第8章 VBA编程语言.ppt》由会员分享，可在线阅读，更多相关《第8章 VBA编程语言.ppt（109页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、ACCESSACCESS数据库应用数据库应用第8章 VBA编程语言全体编者全体编者Compute Center,Qiqihar University ACCESSACCESS数据库应用数据库应用本章内容提要：VBA概述概述VBA编程基础编程基础VBA基本控制结构基本控制结构VBA模块模块面向对象程序设计面向对象程序设计ACCESSACCESS数据库应用数据库应用一、VBA概述1 1、VBAVBA介绍介绍 VBAVBAVBAVBA是（是（是（是（Visual Basic for ApplicationVisual Basic for ApplicationVisual Basic for App

2、licationVisual Basic for Application）是）是）是）是Microsoft Microsoft Microsoft Microsoft OfficeOfficeOfficeOffice系列软件的内置编程语言。系列软件的内置编程语言。系列软件的内置编程语言。系列软件的内置编程语言。Basic语言语言Visual可视化的程序设计可视化的程序设计2 2、与宏的比较、与宏的比较在在在在AccessAccessAccessAccess中，中，中，中，VBAVBAVBAVBA与宏的作用类似，只是宏由系统给与宏的作用类似，只是宏由系统给与宏的作用类似，只是宏由系统给与宏的作用

3、类似，只是宏由系统给定，而定，而定，而定，而VBAVBAVBAVBA是需要用户自己编写程序。但在完成下是需要用户自己编写程序。但在完成下是需要用户自己编写程序。但在完成下是需要用户自己编写程序。但在完成下列操作时，必须使用列操作时，必须使用列操作时，必须使用列操作时，必须使用VBAVBAVBAVBA。数据库的移植数据库的移植建立用户自定义函数建立用户自定义函数ACCESSACCESS数据库应用数据库应用3.VBA编程环境VBE（Visual Basic Editor）打开打开VBE窗口的方法：窗口的方法：独立程序模块独立程序模块“数据库数据库”窗口窗口“模块模块”对象选项对象选项“新建新建”按

4、钮按钮菜单栏菜单栏“工具工具”“宏宏”“Visual Basic编辑器编辑器”命令项命令项绑定型程序模块绑定型程序模块VBE窗口的组成窗口的组成标准工具栏、工程窗口、属性窗口标准工具栏、工程窗口、属性窗口代码窗口代码窗口操作演示ACCESSACCESS数据库应用数据库应用 3.VBA编程环境设计人员可以在代码窗设计人员可以在代码窗口中进行代码编写、修口中进行代码编写、修改与调试等处理。改与调试等处理。“视图视图”菜单：菜单：对象浏览器对象浏览器立即窗口立即窗口本地窗口本地窗口监视窗口监视窗口在标准模块中调试程序在标准模块中调试程序示例示例ACCESSACCESS数据库应用数据库应用二、VBA编

5、程基础数据类型数据类型常量和变量常量和变量 运算符与表达式运算符与表达式 常用内置函数的使用方法常用内置函数的使用方法数组数组ACCESSACCESS数据库应用数据库应用1.数据类型VBA提供的基本数据类型主要有提供的基本数据类型主要有字符串型字符串型数据数据和和数值型数值型数据，此外还提供了货币、对象、数据，此外还提供了货币、对象、变体等数据类型。变体等数据类型。VBA共有共有1212种数据类型种数据类型。此。此外用户还可以根据以下类型用外用户还可以根据以下类型用TypeType自定义数自定义数据类型。据类型。有效使用数据类型，应该尽量明确变量的具有效使用数据类型，应该尽量明确变量的具体数据

6、类型。如：体数据类型。如：Dim X As IntegerACCESSACCESS数据库应用数据库应用VBA基本数据类型基本数据类型 数据类型说明数据类型说明数据类型数据类型类型标识符类型标识符占用字节占用字节字符串型字符串型字符串型字符串型String String String String$字符长度字符长度字符长度字符长度(0-65400)(0-65400)(0-65400)(0-65400)字节型字节型字节型字节型ByteByteByteByte无无无无1 1 1 1布尔型布尔型布尔型布尔型BooleanBooleanBooleanBoolean无无无无2 2 2 2整数型整数型整数型

7、整数型IntegerIntegerIntegerInteger%2 2 2 2长整数型长整数型长整数型长整数型LongLongLongLong&4 4 4 4单精度型单精度型单精度型单精度型SingleSingleSingleSingle!4 4 4 4双精度型双精度型双精度型双精度型DoubleDoubleDoubleDouble#8 8 8 8小数点型小数点型小数点型小数点型DecimalDecimalDecimalDecimal无无无无14141414日期型日期型日期型日期型DateDateDateDate无无无无8 8 8 8货币型货币型货币型货币型CurrencyCurrencyCu

8、rrencyCurrency 8 8 8 8变体型变体型变体型变体型VariantVariantVariantVariant无无无无以上任意类型，可变以上任意类型，可变以上任意类型，可变以上任意类型，可变对象型对象型对象型对象型ObjectObjectObjectObject无无无无4 4 4 4自定义类型自定义类型自定义类型自定义类型TypeEnd TypeTypeEnd Type无无无无由定义内容决定由定义内容决定由定义内容决定由定义内容决定ACCESSACCESS数据库应用数据库应用2.常量和变量 常量：在程序运行过程中保持不变的量。常量：在程序运行过程中保持不变的量。常量的种类：常量的

9、种类：直接直接常量常量，如：，如：344、3.14159、-23等；等；符号常量，如：符号常量，如：const pi=3.14；固有常量，如：固有常量，如：acForm、adAddNew、vbCuruency等；等；系统定义常量，如系统定义常量，如True、False、Null等。等。常量的数据类型参考常量的数据类型参考-VBA基本数据类型基本数据类型 符号常量的声明和使用：符号常量的声明和使用：const 符号常量名符号常量名=常数常数ACCESSACCESS数据库应用数据库应用2.常量和变量变量：程序运行过程中，值可以改变的量。变量：程序运行过程中，值可以改变的量。变量的类型参考变量的类型

10、参考-VBA基本数据类型。基本数据类型。变量的定义：变量的定义：使用类型符定义，如：使用类型符定义，如：BookNumber%=1234 【例例8.6】使用使用Dim语句定义，如：语句定义，如：Dim I As integer 【例例8.7】使用使用DefType语句，如：语句，如：DefInt a,b,c,e-h 【例例8.8】变量的命名同标识符的命名变量的命名同标识符的命名思考思考：变量与常量的区别？变量与常量的区别？Sub ConstSample()Const PI As Single=3.1415926 PI=3.14 错误，PI的值不能改变 r%=5 S!=PI*r2End SubA

11、CCESSACCESS数据库应用数据库应用3.运算符与表达式VBAVBA中基本的运算符有五种：算术运算符、中基本的运算符有五种：算术运算符、关系运算符、逻辑运算符、字符串运算符、关系运算符、逻辑运算符、字符串运算符、对象运算符。对象运算符。表达式是由运算符、函数和数据等内容组合表达式是由运算符、函数和数据等内容组合而成。而成。根据运算符的不同，可以将表达式分成以下根据运算符的不同，可以将表达式分成以下几类：算术表达式、关系表达式、逻辑表达几类：算术表达式、关系表达式、逻辑表达式、字符串表达式和对象表达式。式、字符串表达式和对象表达式。ACCESSACCESS数据库应用数据库应用算术运算符与表达

12、式算术运算符算术运算符算术运算符算术运算符+加、加、-减减 、*乘乘 、/除除 整除、整除、MOD求余求余、乘方乘方例如：例如：3+5、5-4、5*4、4/643=1、7 MOD 4=3 、23=8运算符的优先级：运算符的优先级：运算符的优先级：运算符的优先级：括号括号括号括号 取负取负取负取负 乘方乘方乘方乘方 */MODMODMODMOD +-算术表达式算术表达式算术表达式算术表达式-4+3*6 MOD 5(24)ACCESSACCESS数据库应用数据库应用关系运算符和表达式关系运算符：关系运算符：大于、大于、小于、小于、=等于、等于、不等于不等于=大于等于、大于等于、6 （true 或或

13、 1）4-2AndOrNotAndOr逻辑运算的运算规则是：逻辑运算的运算规则是：ACCESSACCESS数据库应用数据库应用逻辑运算的运算规则例如：例如：2+34 And 622+34 And 622-492-49Not 4+510Not 4+510AndTrue falseTrue falseTrue falseFalse falseOrTrue falseTrue falseTrue TrueTrue falseNotTrue falseFalse TrueACCESSACCESS数据库应用数据库应用字符连接符与表达式字符连接符：字符连接符：+：连接字符串：连接字符串&：可以将不同类型变

14、量连接成字符串：可以将不同类型变量连接成字符串 例如：例如：a$=“123”：b$=“abc”c$=a$+b$(或或c$=a$&b$)则则C$的值为的值为“123abc”思考：思考：C&1C&1和和C+1C+1是否正确？是否正确？ACCESSACCESS数据库应用数据库应用对象运算符与表达式对象运算符：对象运算符：!对象引用符对象引用符.对象属性引用符对象属性引用符例如：例如：Forms!学生成绩单学生成绩单 打开学生成绩单窗体打开学生成绩单窗体Command1.Caption引用命令按钮引用命令按钮Command1的的Caption属性属性ACCESSACCESS数据库应用数据库应用例：表达

15、式书写规则其其VBAVBA表达式为：表达式为：(-b+Sqr(b2-4*a*c)/(2*a)书写规则说明：书写规则说明：括号要匹配括号要匹配乘号不能省略乘号不能省略表达式从左到右书写表达式从左到右书写 使用表达式生成器创建表达式使用表达式生成器创建表达式 操作演示ACCESSACCESS数据库应用数据库应用如何使用表达式 表达式及其说明 表达式表达式表达式表达式说明说明说明说明=数学成绩数学成绩数学成绩数学成绩+英语成绩英语成绩英语成绩英语成绩 计算报表上两个文本框控件中的值之计算报表上两个文本框控件中的值之计算报表上两个文本框控件中的值之计算报表上两个文本框控件中的值之和和和和Date()D

16、ate()将表中字段的默认值设置为当前日期将表中字段的默认值设置为当前日期将表中字段的默认值设置为当前日期将表中字段的默认值设置为当前日期总价总价总价总价:订单订单订单订单.单价单价单价单价*数量数量数量数量 创建查询中的计算字段创建查询中的计算字段创建查询中的计算字段创建查询中的计算字段Between#1/1/2005#And Between#1/1/2005#And#12/31/2005#12/31/2005#用于输入查询中用于输入查询中用于输入查询中用于输入查询中“日期日期日期日期/时间时间时间时间”字段字段字段字段的条件的条件的条件的条件=订单订单订单订单!小计小计小计小计返回返回返回

17、返回“订单订单订单订单”窗体的窗体的窗体的窗体的“小计小计小计小计”控件的控件的控件的控件的值值值值 0 0设置表中数值字段的有效性规则设置表中数值字段的有效性规则设置表中数值字段的有效性规则设置表中数值字段的有效性规则ACCESSACCESS数据库应用数据库应用4.常用内置函数的使用方法 内置函数的调用格式：函数名内置函数的调用格式：函数名(参数参数)例如：求例如：求Sin(30)VBA表达式为：表达式为：Sin(3.14*30/180)根据函数返回值的类型，可以将函数分为：根据函数返回值的类型，可以将函数分为：数值型函数数值型函数字符串函数字符串函数日期日期/时间函数时间函数类型转换函数类

18、型转换函数ACCESSACCESS数据库应用数据库应用5.数组数组是由一组具有相同数据类型的变量构成数组是由一组具有相同数据类型的变量构成的集合。的集合。数组定义格式为：数组定义格式为：Dim 数组名数组名(下标下界下标下界 to 下标上界限下标上界限，下标下界下标下界 to 下标上界限下标上界限)As 数据类型数据类型例如例如【例例8.9】Dim A(3)as IntegerDim B(3,3)as Integer注意：注意：Option Base n 的作用的作用A(0)A(1)A(2)0 1 20 1 201 2B(0,1)ACCESSACCESS数据库应用数据库应用数组的类型按数组元素

19、个数是否可变分为：按数组元素个数是否可变分为：固定数组固定数组动态数组动态数组动态数组的定义方法：动态数组的定义方法：先使用先使用DimDim来声明数组来声明数组再用再用ReDimReDim来指定数组元素个数来指定数组元素个数加保留字加保留字PreservePreserve 来保留以前的值来保留以前的值否则，使用否则，使用ReDim后，数组元素的值会被重新初始化为默后，数组元素的值会被重新初始化为默认值。认值。ACCESSACCESS数据库应用数据库应用数组的使用数组的赋值数组的赋值例：定义动态数组，并求各元素的和。例：定义动态数组，并求各元素的和。Private sub Private su

20、b SumArraySumArray()()Dim S,A()as integer Dim S,A()as integer RedimRedim A(2)A(2)A(0)=1:A(1)=2 A(0)=1:A(1)=2 RedimRedim preserve A(3)preserve A(3)A(2)=3 A(2)=3 S=A(0)+A(1)+A(2)S=A(0)+A(1)+A(2)End SubEnd Sub如果去掉如果去掉preservepreserve关键词结果会如何关键词结果会如何ACCESSACCESS数据库应用数据库应用小结本部分主要介绍了本部分主要介绍了VBA及其编程环境、及其编程

21、环境、VBA的基本数据类型、常量和变量、运算符与表的基本数据类型、常量和变量、运算符与表达式达式、常用内置函数的使用方法和数组的基、常用内置函数的使用方法和数组的基本概念。本概念。其中，重点内容是其中，重点内容是VBA的基本数据类型和运的基本数据类型和运算符与表达式算符与表达式；难点内容是常用内置函数的；难点内容是常用内置函数的使用方法和数组的基本概念。使用方法和数组的基本概念。ACCESSACCESS数据库应用数据库应用课堂练习课堂练习课堂练习1、VBE窗口的基本组成及其打开方法？窗口的基本组成及其打开方法？2、常量与变量的区别？、常量与变量的区别？3、利用、利用VBA语法书写表达式？语法书

22、写表达式？ACCESSACCESS数据库应用数据库应用三、VBA基本控制结构程序语句程序语句程序语句的书写格式程序语句的书写格式程序的基本语句程序的基本语句VBAVBA程序的基本控制结构有三种：程序的基本控制结构有三种：顺序结构顺序结构选择结构选择结构循环结构循环结构ACCESSACCESS数据库应用数据库应用1.程序语句的书写格式 VBA程序语句有自己的书写格式，主要规定如下：程序语句有自己的书写格式，主要规定如下：不区分字母的大小写。不区分字母的大小写。在书写标点符号和括号时，要用西文格式。在书写标点符号和括号时，要用西文格式。在语句中的关键字的首字母均转换成大写，其余字母转换在语句中的关

23、键字的首字母均转换成大写，其余字母转换成小写。成小写。自定义的变量和过程名，以第一次定义的格式为准。自定义的变量和过程名，以第一次定义的格式为准。续行的行尾加上续行符（空格续行的行尾加上续行符（空格+下划线下划线“_ _”）。）。在一行上写多条语句，语句间用冒号在一行上写多条语句，语句间用冒号“:”分隔。分隔。输入一行语句并按输入一行语句并按EnterEnter键，键，VBAVBA会自动进行语法检查，如会自动进行语法检查，如果语句存在错误，该行代码以红色提示（或伴有错误信息果语句存在错误，该行代码以红色提示（或伴有错误信息提示）。提示）。ACCESSACCESS数据库应用数据库应用2.程序的基

24、本语句 程序的功能是靠执行语句来实现的程序的功能是靠执行语句来实现的VBA中的几个常用的基本语句中的几个常用的基本语句注释语句注释语句 声明语句声明语句 Option语句语句 赋值语句赋值语句 With语句语句 On Error语句语句 ACCESSACCESS数据库应用数据库应用注释语句注释语句、声明语句和option语句注释语句注释语句 使用使用Rem语句或用单引号语句或用单引号“”实现实现声明语句声明语句声明语句用于命名和定义过程、变量、数组或常量声明语句用于命名和定义过程、变量、数组或常量例如，例如，dim a as integeroption语句语句Option语句在模块的开始部分使

25、用，用于对环境状态进行语句在模块的开始部分使用，用于对环境状态进行设置。设置。Option ExplicitOption Base 0|1例如：例如：Str1=图书馆借阅管理系统图书馆借阅管理系统 Str1变量记下图书馆借阅管理系统的名称变量记下图书馆借阅管理系统的名称Str2=Access数据库基础教程数据库基础教程 Rem Str2变量记下变量记下Access数据库基础教程数据库基础教程字符串字符串ACCESSACCESS数据库应用数据库应用赋值语句赋值语句 功能：给变量或常量指定一个值或表达式。功能：给变量或常量指定一个值或表达式。格式：格式：let 变量名变量名=表达式表达式对象名对象

26、名.属性名属性名=表达式（若对象名省略，则默认对象为表达式（若对象名省略，则默认对象为当前窗体或报表）当前窗体或报表）【例例8.15】赋值语句举例赋值语句举例Sub program_clause()BookName=Access数据库基础教程 BookPrice=23.40 Let BookNumber=1200 BookTotalPrice=BookNumber*BookPrice Form1.Caption=图书馆借阅管理系统 Text1.text=Text2.textEnd SubACCESSACCESS数据库应用数据库应用With语句With语句对象执行一系列的语句，而不用重复指出对象

27、的名称。对象执行一系列的语句，而不用重复指出对象的名称。格式：格式：With 对象对象.语句语句End With【例例8.16】改变改变Command1按钮的属性。按钮的属性。Sub program2()With Command1.Caption=确定.Top=500.Enabled=True.FontSize=14 End WithEnd SubACCESSACCESS数据库应用数据库应用On Error语句语句常见的错误主要发生在以下常见的错误主要发生在以下3个方面：个方面：语法错误语法错误运行错误运行错误逻辑错误逻辑错误构造错误陷阱的常用语句：构造错误陷阱的常用语句：On Error G

28、oToOn Error GoTo 标号标号On Error Resume NextOn Error GoTo 0Err对象对象Error()函数和函数和Error语句语句【例8.17】错误捕捉与处理举例。Private Sub Myproc()On Error GoTo ErrlabelErrlabel：End SubACCESSACCESS数据库应用数据库应用3.顺序结构常用的几个输入输出方法：常用的几个输入输出方法：常用的几个输入输出方法：常用的几个输入输出方法：输入：输入：输入：输入：使用文本框使用文本框使用函数使用函数InputBox格式：格式：格式：格式：InputBoxInputB

29、oxInputBoxInputBox(提示信息提示信息提示信息提示信息,标题标题标题标题,默认值默认值默认值默认值,对话框对话框对话框对话框水平位置水平位置水平位置水平位置,对话框垂直位置对话框垂直位置对话框垂直位置对话框垂直位置)输出：输出：输出：输出：使用文本框使用文本框使用函数使用函数MsgBox格式：格式：格式：格式：MsgBoxMsgBoxMsgBoxMsgBox(显示的信息显示的信息显示的信息显示的信息,规定显示按钮数量规定显示按钮数量规定显示按钮数量规定显示按钮数量 ,标题标题标题标题)ACCESSACCESS数据库应用数据库应用例：摄氏温度转换为华氏温度例：摄氏温度转换为华氏温

30、度程序代码如下：程序代码如下：程序代码如下：程序代码如下：Sub Sub Sub Sub CtoFCtoFCtoFCtoF()()()()Dim C as integer,F as integer Dim C as integer,F as integer Dim C as integer,F as integer Dim C as integer,F as integer C=inputboxC=inputboxC=inputboxC=inputbox(“请输入摄氏温度请输入摄氏温度请输入摄氏温度请输入摄氏温度”)F=9/5*C+32 F=9/5*C+32 F=9/5*C+32 F=9/5*

31、C+32 MsgboxMsgboxMsgboxMsgbox(f)(f)(f)(f)End subEnd subEnd subEnd sub操作演示ACCESSACCESS数据库应用数据库应用4.选择结构（1 1）行）行if if语句语句格式：格式：if if then then 1条件：是关系表达式或逻辑表条件：是关系表达式或逻辑表达式。达式。语句：是可以执行的任何操作。语句：是可以执行的任何操作。功能：如果条件成立，执行功能：如果条件成立，执行 1，如果条件不成立，且，如果条件不成立，且elseelse子句没有省略，则执行子句没有省略，则执行 2。表达式语句非0=0ACCESSACCESS数

32、据库应用数据库应用例：计算表达式测试程序1程序代码如下：程序代码如下：程序代码如下：程序代码如下：Sub test()Sub test()Dim x,y As Single Dim x,y As Single x=InputBoxx=InputBox(“请输入数据：请输入数据：”)If x0 then y=x2+x+1 else y=x2+5*x-1If x0 then y=x2+x+1 else y=x2+5*x-1 Debug.printDebug.print y yEnd SubEnd Sub操作演示ACCESSACCESS数据库应用数据库应用例：使用控件编程Private Sub Pr

33、ivate Sub 命令命令1_Click()1_Click()单击确定按钮单击确定按钮 Dim x As SingleDim x As SingleDim x As SingleDim x As Single 文本文本文本文本0.SetFocus:x=0.SetFocus:x=0.SetFocus:x=0.SetFocus:x=文本文本文本文本0.Text0.Text0.Text0.Text If x0 Then If x0 Then If x0 Then If x0 Then 文本文本文本文本0.Text=x2+x+1 Else 0.Text=x2+x+1 Else 0.Text=x2+x

34、+1 Else 0.Text=x2+x+1 Else 文本文本文本文本0.Text=x2+x0.Text=x2+x0.Text=x2+x0.Text=x2+x1 1 1 1End SubEnd SubPrivate Sub Private Sub 命令命令2_Click()2_Click()单击重新输入按钮单击重新输入按钮 文本文本文本文本0.SetFocus:0.SetFocus:0.SetFocus:0.SetFocus:文本文本文本文本0.Text=0.Text=0.Text=0.Text=End SubEnd Sub操作演示ACCESSACCESS数据库应用数据库应用（2）块 if 语

35、句格式：格式：if if thenthen 1 elseelse 2 end ifend if表达式语句组1语句组2非0=0ACCESSACCESS数据库应用数据库应用用块if语句改写上例程序1Sub test()Sub test()Sub test()Sub test()Dim x,y As Single Dim x,y As Single Dim x,y As Single Dim x,y As Single x=InputBoxx=InputBoxx=InputBoxx=InputBox(“请输入数据：请输入数据：请输入数据：请输入数据：”)If x 0 Then If x 0 Then

36、 If x 0 Then If x 0 Then y=x 2+x+1 y=x 2+x+1 y=x 2+x+1 y=x 2+x+1 Else Else Else Else y=x 2+x y=x 2+x y=x 2+x y=x 2+x 1 1 1 1 End if End if End if End if Debug.printDebug.printDebug.printDebug.print y y y yEnd subEnd subEnd subEnd sub操作演示ACCESSACCESS数据库应用数据库应用用块if语句改写上例程序2Private Sub Private Sub Priv

37、ate Sub Private Sub 命令命令命令命令0_Click()0_Click()0_Click()0_Click()单击确定按钮单击确定按钮单击确定按钮单击确定按钮 Dim x As SingleDim x As SingleDim x As SingleDim x As Single 文本文本文本文本0.SetFocus0.SetFocus0.SetFocus0.SetFocus x=x=x=x=文本文本文本文本0.Text0.Text0.Text0.Text If x 0 Then If x 0 Then If x 0 Then If x 0 Then 文本文本文本文本0.Te

38、xt=x 2+x+1 0.Text=x 2+x+1 0.Text=x 2+x+1 0.Text=x 2+x+1 Else Else Else Else 文本文本文本文本.Text=x 2+x.Text=x 2+x.Text=x 2+x.Text=x 2+x 1 1 1 1 End if End if End if End ifEnd SubEnd SubEnd SubEnd Sub操作演示ACCESSACCESS数据库应用数据库应用例：输入三个数，按由小到大顺序排序，输出排序后的数。测试编程：测试编程：利用模块的过程，输入三个数，按由小到大顺序排序，输利用模块的过程，输入三个数，按由小到大顺序

39、排序，输出显示排序后的数。出显示排序后的数。事件驱动编程：事件驱动编程：将三个数分别输入到三个文本框中，单击将三个数分别输入到三个文本框中，单击“排序排序”按钮后，按钮后，三个数按由大到小的顺序排序；单击三个数按由大到小的顺序排序；单击“重新输入重新输入”按钮后，按钮后，清空文本框，以便重新输入。清空文本框，以便重新输入。完成步骤：完成步骤：创建界面创建界面设置控件属性设置控件属性编写代码编写代码操作演示ACCESSACCESS数据库应用数据库应用利用模块的过程编程：Sub Sort()Sub Sort()Sub Sort()Sub Sort()Dim a,b,c,t As Single Di

40、m a,b,c,t As Single Dim a,b,c,t As Single Dim a,b,c,t As Single a=Val(a=Val(a=Val(a=Val(InputBoxInputBoxInputBoxInputBox(请输入数据请输入数据请输入数据请输入数据a a a a：)b=Val(b=Val(b=Val(b=Val(InputBoxInputBoxInputBoxInputBox(请输入数据请输入数据请输入数据请输入数据b b b b：)c=Val(c=Val(c=Val(c=Val(InputBoxInputBoxInputBoxInputBox(请输入数据请输

41、入数据请输入数据请输入数据c c c c：)If a b Then If a b Then If a b Then If a b Then t=a:a=b:b=t t=a:a=b:b=t t=a:a=b:b=t t=a:a=b:b=t End If End If End If End If If a c Then If a c Then If a c Then If a c Then t=a:a=c:c=t t=a:a=c:c=t t=a:a=c:c=t t=a:a=c:c=t End If End If End If End If If b c Then If b c Then If b c

42、 Then If b c Then t=b:b=c:c=t t=b:b=c:c=t t=b:b=c:c=t t=b:b=c:c=t End If End If End If End If MsgBoxMsgBoxMsgBoxMsgBox a&,&b&,&c a&,&b&,&c a&,&b&,&c a&,&b&,&cEnd SubEnd SubEnd SubEnd SubACCESSACCESS数据库应用数据库应用利用事件驱动编程：第一步创建界面：创建界面：ACCESSACCESS数据库应用数据库应用利用事件驱动编程：第二步设置控件属性设置控件属性对象名对象名对象名对象名主要属性设置主要属性设置

43、主要属性设置主要属性设置功能说明功能说明功能说明功能说明Text1Text1控件来源控件来源控件来源控件来源=“”=“”接收一个数接收一个数接收一个数接收一个数Text2Text2控件来源控件来源控件来源控件来源=“”=“”接收一个数接收一个数接收一个数接收一个数Text3Text3控件来源控件来源控件来源控件来源=“”“”接收一个数接收一个数接收一个数接收一个数Command1Command1标题标题标题标题=“排序排序排序排序”执行排序功能执行排序功能执行排序功能执行排序功能Command2Command2标题标题标题标题=“重新输入重新输入重新输入重新输入”清空文本框清空文本框清空文本框

44、清空文本框ACCESSACCESS数据库应用数据库应用利用事件驱动编程：第三步编写代码编写代码Command1_Click()事件过程代码事件过程代码接收数据接收数据比较数据并排序比较数据并排序输出数据输出数据Command2_Click()事件过程代码事件过程代码清空文本框清空文本框ACCESSACCESS数据库应用数据库应用Command1_Click()过程代码Dim a,b,c,t As DoubleDim a,b,c,t As DoubleDim a,b,c,t As DoubleDim a,b,c,t As Double 接收数据接收数据接收数据接收数据Text1.SetFocus

45、Text1.SetFocusText1.SetFocusText1.SetFocus：a=Val(Text1.Text)a=Val(Text1.Text)a=Val(Text1.Text)a=Val(Text1.Text)Text2.SetFocusText2.SetFocusText2.SetFocusText2.SetFocus：b=Val(Text2.Text)b=Val(Text2.Text)b=Val(Text2.Text)b=Val(Text2.Text)Text3.SetFocusText3.SetFocusText3.SetFocusText3.SetFocus：c=Val(T

46、ext3.Text)c=Val(Text3.Text)c=Val(Text3.Text)c=Val(Text3.Text)比较数据并排序比较数据并排序比较数据并排序比较数据并排序If a b Then t=If a b Then t=If a b Then t=If a b Then t=a:aa:aa:aa:a=b:b=t=b:b=t=b:b=t=b:b=tIf a c Then t=If a c Then t=If a c Then t=If a c Then t=a:aa:aa:aa:a=c:c=t=c:c=t=c:c=t=c:c=tIf b c Then t=If b c Then t

47、=If b c Then t=If b c Then t=b:bb:bb:bb:b=c:c=t=c:c=t=c:c=t=c:c=t 输出数据输出数据输出数据输出数据Text1.SetFocusText1.SetFocusText1.SetFocusText1.SetFocus：Text1.Text=Text1.Text=Text1.Text=Text1.Text=LTrimLTrimLTrimLTrim(StrStrStrStr(a)(a)(a)(a)Text2.SetFocusText2.SetFocusText2.SetFocusText2.SetFocus：Text2.Text=Text

48、2.Text=Text2.Text=Text2.Text=LTrimLTrimLTrimLTrim(StrStrStrStr(b)(b)(b)(b)Text3.SetFocusText3.SetFocusText3.SetFocusText3.SetFocus：Text3.Text=Text3.Text=Text3.Text=Text3.Text=LTrimLTrimLTrimLTrim(StrStrStrStr(c)(c)(c)(c)ACCESSACCESS数据库应用数据库应用Command2_Click()过程代码 清空文本框清空文本框清空文本框清空文本框Text3.SetFocusTex

49、t3.SetFocusText3.SetFocusText3.SetFocusText3.Text=Text3.Text=Text3.Text=Text3.Text=Text2.SetFocusText2.SetFocusText2.SetFocusText2.SetFocusText2.Text=Text2.Text=Text2.Text=Text2.Text=Text1.SetFocusText1.SetFocusText1.SetFocusText1.SetFocusText1.Text=Text1.Text=Text1.Text=Text1.Text=ACCESSACCESS数据库应用

50、数据库应用（3）select case语句格式：格式：格式：格式：Select Case Select Case Select Case Select Case Case Case Case Case 111 111 Case Case Case Case 222 222 Case Else Case Else Case Else Case Else nnn End Select End Select End Select End Select功能：当测试表达式等于表达式功能：当测试表达式等于表达式功能：当测试表达式等于表达式功能：当测试表达式等于表达式n n n n时，程序就执行该表时，程序