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