[工学]access2007循序渐进教程第7章

《[工学]access2007循序渐进教程第7章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第7章学习使用VBA“超级货架”——什么是VBA“内部结构”——VBA程序的基本语法与书写格式“增加内涵”——功能模块的创建“兢兢业业”——VBA程序的调试典型实例：给“考勤管理系统”添加功能代码7.1“超级货架”——什么是VBAVBA（VisualBasicforApplication）是MicrosoftOffice系列的内置编程语言，其功能十分强大。在Access2007中，VBA的功能是通过模块来实现的。事实上，在Access2007中，程序设计的核心工作就是编写模块和事件过程。如下图所示为Access2007中VBA程序的编写界面。打开此窗

2、口的方法为在“创建”选项卡中单击“宏”下拉按钮，在打开的列表中选择“模块”项功能模块的事件过程（不同的功能模块，具有不同的事件过程，实际上这里就是所谓的程序源代码）功能模块属性窗格7.2“内部结构”——VBA程序的基本语法与书写格式7.2.1变量和常量在任何编程语言中，都要用到变量和常量，它们都是用来存储数据的。变量存储的是经常需要变动的数据，常量储存的是不用改变的数据（或对象）。1．变量变量在引用之前必须被声明，声明一个变量就是事先将变量的有关信息告诉程序，声明变量要使用Dim语句，其语法格式为：DimStr1AsString'声明一个名为Str1

3、的字符串变量Str1="Hello"'给变量赋值Str1="Goodbye"'改变变量的值Dim变量名[As类型]以上语句中的“As类型”子句是可选的。如果选择了该子句，就可以定义变量的数据类型或对象类型。例如以下语句：2．常量在VBA中，声明常量的语法格式为：Const常量名[As类型]＝表达式在这个表达式中，“常量名”的命名规则同变量一样，语句中的“表达式”是由数值常量和字符串常量以及运算符组成的。例如：PublicConstPI=3.1415926’声明一个在整个程序中都能使用的常量PI7.2.2流程控制语句程序员最基本和最重要的工作就是告诉计

4、算机何时要做出什么样的动作。就像一个交通警察指挥大量的车辆和行人何时该走、何时该停、该向哪边走一样。本节主要介绍If语句、SelectCase语句、Do...Loop语句、For...Next语句、GoTo语句以及With语句等流程控制语句，下面我们分开详细介绍。1．If语句If语句是我们最常用的一种分支语句。它符合人们通常的语言习惯和思维习惯。比如if（如果）绿灯亮是真，then（那么）车就可以通行，else（否则）车辆要等待行人通过。If语句有三种语法形式。1）最简单的形式if<条件>then<该条件产生的结果（过程语句）>2）带有else的形式

5、if<条件>then<过程语句1>else<过程语句2>endifif<条件1>then<过程语句1>elseif<条件2>then<过程语句2>．．．．．．else<过程语句n>endif3）带有多重条件的形式2．SelectCase语句根据表达式的值，来决定执行多组语句中的哪一组，这就是SelectCase语句。它的语法如下：SelectCase表达式[Case表达式列表1[语句陈述1]][Case表达式列表2[语句陈述2]]......[Case表达式列表n[语句陈述n]]EndSelect下面的实例可以使我们进一步了解SelectCase语句

6、的用法。DimScoreAsIntegerSelectCaseScoreCaseIs>=90MsgBox"YougotanAonthetest."Case80To89MsgBox"YougotaBonthetest."Case60To79MsgBox"YougotaConthetest."CaseElseMsgBox"Youfailed."EndSelect在此例子中，Case语句按照先后顺序进行比较，首先执行与第一个Case条件相匹配的代码，若不存在匹配的条件，则执行CaseElse语句，然后程序将执行EndSelect语句后面的代码。3．Do…L

7、oop语句用Do...Loop语句可以定义要多次执行的语句块。我们也可以定义一个条件，当这个条件为假时，就结束这个循环。Do...Loop语句有以下两种形式。第1种：Do[{While

8、Until}<条件>][<过程语句>][ExitDo][<过程语句>]Loop第2种：Do[<过程语句>][ExitDo][<过程语句>]Loop[{While

9、Until}<条件>]上面格式中，<条件>是用来检查真（非零）或假（零或Null）的一个比较谓词或表达式。While子句和Until子句的作用正好相反。如果指定了一个While子句，则当<条件>是真，就继续执

10、行。如果指定了Until子句，则当<条件>为真时，循环执行结束。4．For…Next语句按照指定次数来重复执