VBA程设计基础.doc

第九章程序设计基础 教学目标： 理解什么是程序 掌握程序设计的基本方法 编写并调试简单的VBA应用程序 编写简单的事件驱动程序 会在VBA应用程序中访问数据库 教学过程： 程序设计概述 做一件事，计算机可以把它分解为一系列的基本操作步骤，通过程序设计语言的基本语句来完成，这就是程序。 程序设计方法主要有两种：面向过程的结构化程序设计方法和面向对象的程序设计方法。前面所学的窗体对象设计就是一种面向对象的设计方法。 在Access中编写程序使用的语言是Visual Basic for Application，简单VBA。首先看一下VBA编写的几个简单程序。 例9-1 在窗体上放置一个命令按钮和一个文本框，单击命令按钮后在文本框中显示“VBA程序设计” 步骤如下：1、打开数据库，切换到“窗体”对象下，双击“在设计视图中创建窗体”， 2、添加文本框，在对应的属性窗口“全部”选项卡的第一行设置名称为“文本1”，添加命令按钮，名称为“命令0”3、打开“按钮”的属性窗口，在“事件”选项卡下的“单击”栏选“事件过程”，单击后面的按钮，进入编辑窗口： 4、在编辑窗口中输入如下程序：（其实窗口中已有，所以我们只要在中间添加一句Private Sub 命令0_Click() 文本1.Value=“VBA程序设计” End Sub 5、关闭程序编辑窗口，切换到窗体视图，则单击命令按钮后，“VBA程序设计”即显示在文本框中。 思考 在上面的窗体中再添加一个按钮，单击则清除文本框中显示的文本，应该怎样操作？ 例9-2 在窗体中有一个命令按钮和两个文本框，用户在第一个文本框中输入一个正整数，当单击该按钮时计算出这个正整数的阶乘，并在第二个文本框中显示计算结果。 步骤： 新建一个窗体，拖入两个文本框和一个命令按钮，名称为文本1、文本2、命令0（这三个控件名称后面程序中要引用，所以一定要命名！） 选中按钮，打开其属性窗口，在“事件”选项下的“单击”一栏，选“事件过程”，单击后面的按钮，输入如下程序： 3、关闭程序编辑窗口，切换到窗体视图，我们输入5，单击“计算”按钮，则会显示120， （实际上，5！=1×2×3×4×5,计算结果是120） 程序的输入输入出语句 （1）InputBox 函数 格式：InputBox 字符串1，[字符串2]，[字符串3] 功能：显示一个输入对话框，等待用户输入信息或按下按钮。在按钮事件发生后返回键盘输入到文本框中的内容，返回值的类型为文本类型， 说明：对话框中的提示信息是字符串1，对话框的标题栏是字符串2，字符串3是输入对话框中的默认值。后两个字符串是可选项，可不选。 例9-3 在窗体的命令按钮中分别加入以下代码，单击按钮后即可看出输入对话框的不同。 Private Sub Command0_Click() InputBox 请输入学号, 学号输入框, 2009 End Sub 改成下面程序后的输入对话框：Private Sub Command0_Click() InputBox 请输入学号, 学号输入框 End Sub 改成下面程序后的输入对话框：Private Sub Command0_Click() InputBox 请输入学号 End Sub （2）MsgBox函数 格式：MsgBox字符串1，[按钮参数]，[字符串2] 功能：出现一个消息框，字符串1为消息框中的提示信息，按钮参数则决定了消息框中按钮的类型（见下面按钮参数表），字符串2为消息框的标题栏上信息。 按钮参数表： 常数 值 按钮类型 vbOKOnly 0 只显示OK按钮 vbOKCancel 1 显示OK及Cancel按钮 vbYesNoCancel 3 显示Yes、No、Cancel按钮 vbQuestion 32 显示Warning Query图标 vbExclamation 48 显示Waring Message图标 vbInformation 64 显示Information Message图标 vbDefaultButton1 0 第一个按钮是缺省值 vbDefaultButton2 256 第二个按钮是缺省值 vbDefaultButton3 512 第三个按钮是缺省值 例9-4 在窗体上添加一个命令按钮，当单击该按钮后，显示一个对话框：（1）提示消息为“您确定要退出吗？”。（2）包含“确定”和“取消”两个命令按钮以及一个询问图标，默认选择“确定”按钮，（3）对话框的标题栏为“确认退出” 分析：生成对话框需要用MsgBox函数，包含“确定”和“取消”按钮，对应参数为1（见上表）；包含一个询问图标，对应参数为32；默认选择是“确定”按钮（这里的第一个就是“确定”按钮），对应参数是0，根据题目要求对应的语句