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

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

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-4-4:例11-4

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


「国开学习吧」:用户COOKIE有效时间30天,收藏网址『guokaixuexi.com』不迷路哦~

相关文章

国开《数据库基础与应用》第十一章 11-1-1:创建宏和模块的命令

国开《数据库基础与应用》第十一章 11-1-1:创建宏和模块的命令

11-1-1:创建宏和模块的命令如下图1所示,在其最右面的“宏与代码”命令组中,存在着4个命令按钮,分别为宏、模块、类模块、Visual Basic。单击“宏”按钮,将自动打开创建一个宏的生成器窗口,...

国开《数据库基础与应用》第十章 10-1-3:报表向导命令

国开《数据库基础与应用》第十章 10-1-3:报表向导命令

10-1-3:报表向导命令用户通过使用“报表向导”命令建立报表时,不需要在当前数据库中事先打开表或查询。系统在执行报表向导命令的过程中,将由用户向报表中添加来自一个表或多个表(查询)中的字段。例如:我...

国开《数据库基础与应用》第六章 6-2-1:数据库的打开、保存和关闭

国开《数据库基础与应用》第六章 6-2-1:数据库的打开、保存和关闭

6-2-1:数据库的打开、保存和关闭数据库文件的打开可以有不同的方法,一种是在启动Access数据库软件,得到初始操作界面窗口后,单击文件菜单下的“打开”命令,从自动打开的操作窗口中选择要打开的数据库...

国开《数据库基础与应用》第四章 4-6-1:WHERE选项格式

国开《数据库基础与应用》第四章 4-6-1:WHERE选项格式

4-6-1:WHERE选项格式WHERE <逻辑表达式>此逻辑表达式用来指定不同源表之间记录的连接条件,以及从连接后的中间表中选取记录的筛选条件(或者叫选择条件),它们之间通过逻辑与(AN...

国开《数据库基础与应用》第十章 报表

国开《数据库基础与应用》第十章 报表

本章导读在上一章介绍了窗体的创建和管理,窗体主要用于表和查询中数据的编辑和查看。如果需要将数据以一定的形式汇总统计后打印输出就需要使用报表。在这一章我们会介绍报表的作用,报表的各种视图与报表的构成。使...

国开《数据库基础与应用》第十章 10-2-1:空报表命令

国开《数据库基础与应用》第十章 10-2-1:空报表命令

10-2-1:空报表命令在当前公司信息管理数据库中,单击“创建”选项卡上的“空报表”命令后,将自动打开一个处于布局视图状态的空报表,同时显示出一个“字段属性”窗口,供用户从中选取表中需要利用报表输出的...

国开《数据库基础与应用》第七章 表

国开《数据库基础与应用》第七章 表

本章导读在上一章我们学会了在Access中建立空白数据库和利用样本模板建立非空白数据库。数据库建立之后最重要的工作是建立表对象并且进行添加和编辑数据的操作。在这一章,我们将介绍Access数据表的定义...

国开《数据库基础与应用》第四章 4-2-6:修改和删除表结构

国开《数据库基础与应用》第四章 4-2-6:修改和删除表结构

4-2-6:修改和删除表结构建立表结构使用的是CREATE TABLE命令。当建立一个表之后,就可以向其输入数据。SQL语言提供了修改表结构的命令,这就是教材中给出的ALTER TABLE命令。SQL...

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。