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

11-4-4：例11-4

编写VBA代码，通过输入对话框输入一个100以内的正整数，使用循环语句计算这个整数的阶乘，然后输出结果值。

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

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

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

'求输入正整数的阶乘

Sub 阶乘()

　　Dim Num1 As Double

　　Dim Num2 As Double

　　Dim i As Integer

　　'获取正整数

　　Num1 = InputBox("请输入一个正整数（不大于100）： ")

　　Num2 = 1

　　'通过计数循环计算阶乘

　　For i = 1 To Num1

　　　　Num2 = Num2 * i

　　Next i

　　MsgBox Num1 & "的阶乘为：" & Num2

End Sub

在代码中建立了一个Sub过程，其名称为“阶乘”，没有参数。过程中定义了两个双精度变量，然后通过输入对话框接收用户输入的数据存入变量中来进入阶乘计算。其中通过一个“For … Next”循环完成指定数据的阶乘运算。

3．保存模块并命名，按F5键运行代码。运行结果如图11-12所示。

图11-12 阶乘计算程序执行效果图