VBA程序设计基础.pdf

--第九章程序设计根底教学目标：理解什么是程序掌握程序设计的根本方法编写并调试简单的VBA应用程序编写简单的事件驱动程序会在VBA应用程序中访问数据库教学过程：一、程序设计概述做一件事，计算机可以把它分解为一系列的根本操作步骤，通过程序设计语言的根本语句来完成，这就是程序。程序设计方法主要有两种：面向过程的构造化程序设计方法和面向对象的程序设计方法。前面所学的窗体对象设计就是一种面向对象的设计方法。在Access中编写程序使用的语言是VisualBasicforApplication，简单VBA。首先看一下VBA编写的几个简单程序。例9-1在窗体上放置一个命令按钮和一个文本框，单击命令按钮后在文本框中显示“VBA程序设计〞步骤如下：1、翻开数据库，切换到“窗体〞对象下，双击“在设计视图中创立窗体〞，2、添加文本框，在对应的属性窗口“全部〞选项卡的第一行设置名称为“文本1〞，添加命令按钮，名称为“命令0〞3、翻开“按钮〞的属性窗口，在“事件〞选项卡下的“单击〞栏选“事件过程〞，单击后面的按钮，进入编辑窗口：单击此按钮，输入程序。4、在编辑窗口-word.zl.--中输入如下程序：〔其实窗口中已有，所以我们只要在中间添加一句PrivateSub命令0_Click()文本1.Value=“VBA程序设计〞EndSub说明：1、程序的开头“PrivateSub〞和完毕“EndSub〞是一个固定搭配，表示这是一个过程，程序中的“命令0_Click()〞表示这个程序在“命令0〞按钮被单击时执行。2、在编辑窗口已有程序的开头和结尾，所以我们只要输入中间的一句：文本1.value=“VBA程序设计〞3、注意程序中引用的“命令0〞，“文本1〞一定要和窗体中的按钮、文本框名称一致。5、关闭程序编辑窗口，切换到窗体视图，那么单击命令按钮后，“VBA程序设计〞即显示在文本框中。思考在上面的窗体中再添加一个按钮，单击那么去除文本框中显示的文本，应该怎样操作？例9-2在窗体中有一个命令按钮和两个文本框，用户在第一个文本框中输入一个正整数，当单击该按钮时计算出这个正整数的阶乘，并在第二个文本框中显示计算结果。步骤：1、新建一个窗体，拖入两个文本框和一个命令按钮，名称为文本1、文本2、命令0〔这三个控件名称后面程序中要引用，所以一定要命名！〕2、选中按钮，翻开其属性窗口，在“事件〞选项下的“单击〞一栏，选“事件过程〞，单击后面的按钮，输入如下程序：-word.zl.--说明：1、程序中变量在使用前要先定义，这里计算阶乘，用到的只能是整数，所以定义a、b、c为整型变量。〔见中间程序局部的第一句：DimaAsInteger〕2、单引号后面的是程序的注释语句，只起说明的作用，程序并不执行它。不输入这些语句，程序照样正常运行。〔见绿色局部〕3、输入程序时可以用小写字母输入单词，但每一个关键词的第一个字母计算时机自动变成大写。〔见程序中蓝色局部〕4、程序一般一句一行，也可多个句子写在一行，中间用冒号隔开；如果一句太长，需要分成多行，可在上一行的最后加下划线“_〞，系统就会把上下两行连在一起做为一个语句。3、关闭程序编辑窗口，切换到窗体视图，我们输入5，单击“计算〞按钮，那么会显示120，〔实际上，5！=1×2×3×4×5,计算结果是120〕-word.zl.--二、程序的输入输入出语句〔1〕InputBox函数格式：InputBox字符串1，[字符串2]，[字符串3]功能：显示一个输入对话框，等待用户输入信息或按下按钮。在按钮事件发生后返回键盘输入到文本框中的容，返回值的类型为文本类型，说明：对话框中的提示信息是字符串1，对话框的标题栏是字符串2，字符串3是输入对话框中的默认值。后两个字符串是可选项，可不选。例9-3在窗体的命令按钮中分别参加以下代码，单击按钮后即可看出输入对话框的不同。PrivateSubmand0_Click()InputBox"请输入学号","学号输入框","2009"EndSub改成下面程序后的输入对话框：PrivateSubmand0_Click()InputBox"请输入学号","学号输入框"EndSub改成下面程序后的输入对话框：PrivateSubmand0_Click()InputBox"请输入学号"EndSub-word.zl.--〔2〕MsgBox函数格式：MsgBox字符串1，[按钮参数]，[字符串2]功能：出现一个消息框，字符串1为消息框中的提示信息，按钮参数那么决定了消息框中按钮的类型〔见下面按钮参数表〕，字符串2为消息框的标题栏上信息。按钮参数表：常数值按钮类型vbOKOnly0只显示OK按钮vbOKCancel1显示OK及Cancel按钮vbYesNoCancel3显示Yes、No、Cancel按钮vbQues