国开《数据库基础与应用》第十一章 11-1-4：建立模块应用举例

国开答案国开学习资料其他科目标签: 数据库基础与应用

搜答案方法：电脑端按「Ctrl+F」、手机端用「页面查找」功能输入关键词查找。

11-1-4：建立模块应用举例

一个模块中，可以定义出一个或若干个过程，以Sub关键字为过程标记的称为普通过程，以Function为过程标记的称为函数过程，Sub过程在执行后不需要返回值，而Function过程在执行后需要返回一个值。

教材中11.2节简要地介绍了VBA语言中的基本语法知识，希望同学们自行学习。

下面通过在Access中建立、保存和运行一个模块，来了解一个标准模块对象的使用方法。

假定，在一个标准模块中编写一个用来计算两个整数相加的运算，根据用户输入的两个加数与求和结果，给出提示计算正确或错误的信息。

首先单击Access主界面上“创建”选项卡中“宏与代码”组内的“模块”图标按钮，打开VBE窗口，即代码生成器窗口，接着向模块代码区中加入一个过程名称为“两个整数相加”的Sub过程，如下图7所示。

图7 在代码生成器中输入和编辑一个模块

当开始打开VBE窗口时，系统自动建立一个名称为“模块1”的新模块，待保存该模块时，可由用户提供一个新的模块名，假定我们在图7窗口中所建立的进行加法求和的模块，当保存时使用的名称为“两个整数相加模块”。一个模块建立并保存后，将自动在主界面左侧的任务导航窗格中的模块对象栏内，添加一个该模块的名称条目，以后双击该名称，将自动打开VBE编辑环境，并把该模块内容显示在代码编辑区域内，以便用户编辑和运行。

在此Sub过程中，包含有5条VBA语句：

Sub 两个整数加法()

Dim Num1 As Integer, Num2 As Integer, Num3 As Integer

Num1 = InputBox("请输入一个整数：")

Num2 = InputBox("请再输入一个整数：")

Num3 = InputBox("请输入" & Num1 & "与" & Num2 & "的和：")

If Num1 + Num2 = Num3 Then

MsgBox ("计算正确！")

Else

MsgBox ("计算值" & Num3 & "错误! " & Chr(10) & Num1 & "+" & Num2 & "

之和的正确答案为 " & Num1 + Num2)

End If

End Sub

此过程输入和修改完成后，单击按钮工具栏中部的带三角箭头符号的运行按钮，可调用执行此Sub过程。在执行过程中首先在屏幕窗口显示出如下图8所示的对话框，假定输入的一个整数为26，按下“确定”按钮后，接着显示出如下图9所示的第2个对话框，假定这次输入的整数位38，按下“确定”按钮后，又显示出如下图10所示的第3个对话框，要求用户输入前两个整数值之和，假定输入整数72，按下“确定”按钮后，显示出如下图11所示的消息提示框，若输入的整数值为64，则显示出如下图12所示的消息提示框。