国开《数据库基础与应用》第十一章 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-3-2:窗体的布局和结构

国开《数据库基础与应用》第十一章 11-3-2:窗体的布局和结构

11-3-2:窗体的布局和结构在图1所示的窗体中,包含有三个区域:窗体页眉、主体和窗体页脚。在整个主体区域,分为三个子区域:工资查询区域、按照输入值查询人数区域,按照姓名查询雇员记录区域。在最上面的工...

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

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

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

国开《数据库基础与应用》第五章 数据库应用系统设计 本章导学

国开《数据库基础与应用》第五章 数据库应用系统设计 本章导学

导读本章通过两个事例简要介绍了数据库应用系统开发的大致过程,它需要相继经过六个阶段:需求分析、概念设计、逻辑设计、物理设计、机器实现和运行维护。数据库应用系统设计不是一蹴而就的事情,需要设计者具有丰富...

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

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

10-1-2:报表命令能够在当前打开的表或查询对象上自动创建一个报表,该报表以表格方式显示,每行显示一条记录。例如:假定在公司信息管理数据库的雇员表上,通过“报表”命令创建一个报表,首先要打开雇员表,...

国开《数据库基础与应用》第三章 3-4-1:第二范式的定义

国开《数据库基础与应用》第三章 3-4-1:第二范式的定义

3-4-1:第二范式的定义定义:设一个关系为R(U),它是满足第一范式的,若R中不存在非主属性对候选码的部分函数依赖,则称该关系达到第二范式。在一个数据库应用系统中,若每个关系都达到了第二范式,则称该...

国开《数据库基础与应用》第十章 上机实验

国开《数据库基础与应用》第十章 上机实验

上机实验 实验准备:了解和掌握文字教材第10章的全部内容。 实验目的:能够启动和进入Access数据库管理系统操作环境,能够打开一个数据库文件,能够建立用户所需要的各种报表,能够打...

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

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

11-1-4:建立模块应用举例一个模块中,可以定义出一个或若干个过程,以Sub关键字为过程标记的称为普通过程,以Function为过程标记的称为函数过程,Sub过程在执行后不需要返回值,而Functi...

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

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

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

发表评论    

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