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

相关文章

国开《数据库基础与应用》第四章 4-2-5:基本表定义格式举例

国开《数据库基础与应用》第四章 4-2-5:基本表定义格式举例

4-2-5:基本表定义格式举例(1)定义学生表create table 学生(  学生号 char(7) primary key,  姓名 char(6) not null unique,  性别 c...

国开《数据库基础与应用》第八章 8-1-2:利用查询向导创建不带查询条件的查询对象

国开《数据库基础与应用》第八章 8-1-2:利用查询向导创建不带查询条件的查询对象

8-1-2:利用查询向导创建不带查询条件的查询对象当采用第1种方法,点击“查询向导”图标时,将自动打开一个标题为“新建查询”的对话框,如下图2所示。图2 新建查询对话框通过查询向导可以建立简单查询、交...

国开《数据库基础与应用》第四章 4-6-5:IN格式

国开《数据库基础与应用》第四章 4-6-5:IN格式

4-6-5:IN格式使用IN格式的专门比较式。使用关键字IN的专门比较式的语法格式如下:<列名> [NOT] IN {( <常量表> ) | ( <子查询> )}例...

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

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

4-6-4:LIKE格式使用LIKE格式的专门比较式。使用LIKE的专门比较式的语法格式如下:<字符型列名> [NOT] LIKE <字符表达式>例6:从商品表1中查询出商品代...

国开《数据库基础与应用》第十章 10-3-3:例10-3

国开《数据库基础与应用》第十章 10-3-3:例10-3

10-3-3:例10-3通过上面实例可以看到,制作标签的过程并不复杂,在已经考虑好标签尺寸和标签内容的情况下,按照向导的指引很快就能完成标签的设计。如果设计出来的标签效果不是十分理想,我们还可以在通过...

国开《数据库基础与应用》第四章 4-3-3:删除记录语句

国开《数据库基础与应用》第四章 4-3-3:删除记录语句

4-3-3:删除记录语句删除表中记录的语句为DELETE语句,具体语句格式如下:DELETE [FROM] [<数据库名>.<所有者名>.]<目的表名>  [FRO...

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

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

4-6-6:ANY格式使用ANY格式的专门比较式。使用关键字ANY的专门比较式的语法格式如下:<列名> <比较符> ANY ( <子查询> )此 <比较符&g...

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

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

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

发表评论    

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