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

相关文章

国开《数据库基础与应用》第七章 本章小结

国开《数据库基础与应用》第七章 本章小结

本章小结1.Access 2010表中字段允许使用多种数据类型,分别是文本、备注、数字、日期/时间、货币、自动编号、是/否、OLE对象、超链接和附件。2.建立数据表的结构。表的结构由字段列组成,字段列...

国开《数据库基础与应用》第一章 1-2:实体与联系

国开《数据库基础与应用》第一章 1-2:实体与联系

1-2:实体与联系1.实体实体是现实世界中存在的、可以相互区别的事物或活动。由同一类型的实体所组成的集合称为实体集。实体集中所有实体的共有特征构成实体型的定义。如学生的共有特征为姓名、性别、年龄、籍贯...

国开《数据库基础与应用》第八章 8-2-1:例1

国开《数据库基础与应用》第八章 8-2-1:例1

8-2-1:例1通过查询设计视图,在订单表和雇员表的基础上建立一个选择查询。下面就分步介绍此选择查询建立和执行的全过程。第一步:单击Access主界面中“创建”选项卡内的“查询设计”图标,进入查询设计...

国开《数据库基础与应用》第四章 4-4-2:SELECT语句格式

国开《数据库基础与应用》第四章 4-4-2:SELECT语句格式

4-4-2:SELECT语句格式SELECT [ALL | DISTINCT] {<列名1>,<列名2>... | * | <表别名>.* }FROM <表名...

国开《数据库基础与应用》第三章 3-2-5:侯选码应用举例

国开《数据库基础与应用》第三章 3-2-5:侯选码应用举例

3-2-5:侯选码应用举例求关系的侯选码应用举例:例1:设一个教学关系为(教师号,姓名,课程号,课程名,课程学分,专业号,专业名,教学等级分),假定每个教师有一个唯一的教师号,每门课程有一个唯一的课程...

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

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

3-1-2:函数依赖的定义定义:设一个关系为R(U),X和Y为属性集U上的子集,若对于X上的每个值都有Y上的一个唯一值与之对应,则称X和Y之间存在函数依赖,并称X函数决定Y,或称Y函数依赖于X,记作X...

国开《数据库基础与应用》第一章 1-3:ER图中的基本构件

国开《数据库基础与应用》第一章 1-3:ER图中的基本构件

1-3:ER图中的基本构件1.ER图中的基本构件ER图(ER模型)是英文Entity Relationship graph/model的缩写,中文的意思是实体联系图,或者叫实体联系模型。ER图是一种用...

国开《数据库基础与应用》第十一章 11-3-3:窗体中事件过程分析

国开《数据库基础与应用》第十一章 11-3-3:窗体中事件过程分析

11-3-3:窗体中事件过程分析在上面介绍的数据库应用窗体中,共包含有7个命令按钮,在窗体视图状态下,当单击每个命令按钮时将自动完成相应的功能。窗体中的7个命令按钮,定义有7个单击事件的过程,同时还定...

发表评论    

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