国开《数据库基础与应用》第十一章 11-4-3：例11-3

11-4-3：例11-3

编写VBA代码，通过输入对话框输入数据，判断数据是否大于0，之后再根据判断结果打开对话框。

实现过程和步骤说明如下：

1．打开Access的“公司信息管理”数据库，单击“创建”选项卡下的“宏与代码”组中的“模块”命令，打开VBE。

2．在代码编辑区域中输入如下代码：

'简单条件分支结构程序示例

Sub 简单条件分支()

　　Dim NumIn As Integer

　　'通过对话框输入数据

　　NumIn = InputBox("请输入数据：")

　　'判断输入的数据是否大于0

　　 If NumIn > 0 Then

　　　　　'输入的数据大于0时打开下面的对话框

　　　　　MsgBox "输入的数据" & NumIn & "大于0!"

　　Else

　　　　　'输入的数据小于等于0时打开下面的对话框

　　　　　MsgBox "输入的数据" & NumIn & "小于等于0!"

　　End If

End Sub

在代码中建立了一个Sub过程，其名称为“简单条件分支”，没有参数。过程中定义了一个整型变量，然后通过输入对话框接收用户输入的数据存入变量中来进入判断。其中“InputBox”是VBA中的输入对话框，其参数是对话框中的提示信息。“MsgBox”是输出对话框，其参数是输出的信息。

图11-10 简单分支程序执行效果图1

图11-11 简单分支程序执行效果图2