国开《数据库基础与应用》第十一章 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』不迷路哦~

相关文章

国开《数据库基础与应用》第五章 5-1-2:概念设计阶段

国开《数据库基础与应用》第五章 5-1-2:概念设计阶段

5-1-2:概念设计阶段概念设计阶段的主要任务和目标是:根据需求分析的结果找出所有数据实体,包括一般实体和联系实体,画出相应的实体联系图,也就是ER图。概念设计也要贯彻概念单一化原则,即一个实体只能用...

国开《数据库基础与应用》第三章 3-1-1:函数依赖的概念

国开《数据库基础与应用》第三章 3-1-1:函数依赖的概念

3-1-1:函数依赖的概念函数依赖就是讨论一个关系中属性值之间所存在的函数关系。在一个关系中,属性相当于数学上的变量,属性的域相当于变量的取值范围,属性在一个元组上的取值相当于属性变量的当前值。例如:...

国开《数据库基础与应用》第四章 4-2-3:列级完整性约束

国开《数据库基础与应用》第四章 4-2-3:列级完整性约束

4-2-3:列级完整性约束在定义一个基本表中,在每个列的列名及数据类型定义的后面,还有时需要给出该列的完整性约束的定义,称此为列级完整性约束。列级完整性约束被分为以下6种情况。(1)默认值约束。表示为...

国开《数据库基础与应用》第四章 4-5-6:INTO选项

国开《数据库基础与应用》第四章 4-5-6:INTO选项

4-5-6:INTO选项INTO选项的语法格式如下:INTO <基本表名> <逻辑表达式>此选项能够根据查询结果自动建立一个基本表。例7:从教学库中查询出每个学生的记录信息,以...

国开《数据库基础与应用》第九章 9-4-4:例9-4

国开《数据库基础与应用》第九章 9-4-4:例9-4

9-4-4:例9-4在“公司信息管理”数据库中,通过设计视图以“类别”表为源表创建窗体。具体操作步骤如下:1.在Access 2010中打开“公司信息管理”数据库。2.单击选择“创建”选项卡,在其功能...

国开《数据库基础与应用》第九章 9-3-1:选项组控件的使用

国开《数据库基础与应用》第九章 9-3-1:选项组控件的使用

9-3-1:选项组控件的使用选项组控件是一个组合型控件,它其中可以包含多个表示是/非值类型的控件。表示是/非值类型的控件有3种:复选框、选项按钮、以及切换按钮。复选框用矩形框内是否有对号√来表示是和非...

国开《数据库基础与应用》第九章 9-1-2:使用一条命令法

国开《数据库基础与应用》第九章 9-1-2:使用一条命令法

9-1-2:使用一条命令法窗体命令、数据表命令、多个项目命令、分割窗体命令。使用这些命令的特点:只能在一个表或查询上建立窗体,不能在多个表或查询上建立窗体,并且必须在使用命令前,使这个表或查询成为当前...

国开《数据库基础与应用》第二章 2-2-2:参照完整性

国开《数据库基础与应用》第二章 2-2-2:参照完整性

2-2-2:参照完整性若一个关系R1中的外码,对应另一个关系R2中的主码,R1中的外码和R2中的主码不但要定义在同一个域上,而且要求外码的取值不能超出对应主码的已有取值范围,否则将为非法数据,不允许被...

发表评论    

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