数据库基础及ACCESS应用教程课后习题(6)

销证件”，该如何设置操作参数？

答：将消息参数设为“请还清图书再撤销证件”。 四、思考题

1．建立宏和宏组的主要步骤是什么？ 答：

（1） 启动宏设计器

（2） 在宏设计视图中显示“宏名”列（若创建宏组） （3） 设置“宏名”、“操作及参数” （4） 保存宏

2．宏的主要作用是什么？ 答：创建需连续执行的操作集合。 3．宏的操作中是否有关于表的操作？ 答：有，如打开表。 4．执行宏的条件是什么？ 答：触发相关事件。

5．在宏中增加操作的条件，如果条件是来自某个窗体的组合框的内容，应用该怎样书写条件？

答：[Forms]![窗体名]！[文本框名] 比较符 表达式。 第七章!

一、选择题

1．下列对象属于ACCESS的根对象的是（A，D）。 A. Debug B. Label C. Click D. Application

2．下列符号中，不属于VBA的合法变量是（A，C）。 A. Integer B. a123 C. 123a D.x_12

3．使用Dim声明变量，若省略“As类型”，则所创建的变量默认为（C）。

A. Integer B. String C. Variant D 不合法变量

4．当一个表达式中有多种不同类型的运算时，运算符的优先次序为（C）。

A. 逻辑运算符>关系运算符>连接运算符>算术运算符 B. 关系运算符>算术运算符>逻辑运算符>连接运算符 C.算术运算符>连接运算符>关系运算符>逻辑运算符 D.连接运算符>逻辑运算符>算术运算符>关系运算符 二、填空题

1．VBA是Micresoft Office系列软件的内置编程语言,其语法与独立运行的VB编程语言相互兼容。

2．在VBA的内置函数中，用于显示输出信息的为Msgbox，接收用户输入数据的为Inputbox。

3．一条语句可以分成若干行书写，但在要续行的行尾加上续行符：空格和下划线。

4．在FOR循环中，步长可以是正数，也可以是负数，默认为1。

5．自定义类型变量与数组的相同之处是，由若干个标准数据类型组成。 三、思考题

1．VBA与VB、ACCESS有什么联系？ 答：

VBA是ACCESS中由VB派生的编程语言。

2．在ACCESS中，既然已经提供了宏操作，为什么还要使用VBA？

答：在ACCESS中宏提供的是常用的一些操作，但未包含所有。用户在表示一些自我需要的特定操作时，仍需使用VBA代码编写其操作。

3．什么是对象？对象的属性和方法有什么区别？

答：对象即被操作者，对象的属性表述的是其特征，而方法表述的对象的行为。

4．在VBE和ACCESS窗体环境中，对象的属性、事件的使用有何区别？

答：对象属性的使用是为了设置该对象应用时所具有的特征，而事件的使用是为了表述用户及系统对该对象发出某操作动作（如鼠标单击）时其响应的事件代码即操作是什么。

5．利用对象对数据库进行管理的操作时，应注意哪些事项？ 答：数据库需事先建立；先启动后应用；内存中正在使用不得删

除及移动等。

6．如何在窗体上运行VBA代码？ 答：通过触发窗体中某对象的相关事件。

7．为什么要声明变量？未经声明而直接使用的变量是什么类型？

答：为提高内存的使用效率而声明变量。未声明变量的数据类型为“变体型”

8．利用IF语句求3个数X、Y、Z中的最大数，并将其放入MAX变量中。

答：请参看相关“教学管理”数据库窗体中的VBA代码。 Private Sub Command5_Click()

x = InputBox(\请输入第一个数x的值\请输入需比较的数\ max = x

y = InputBox(\请输入第二个数y的值\请输入需比较的数\

If y > max Then max = y

z = InputBox(\请输入第三个数z的值\请输入需比较的数\

If z > max Then max = z

Me.Text1.Value = Str(x) & \Me.Text3.Value = max

End Sub

9.编写求解一元二次方程根的程序代码。

答：请参看相关“教学管理”数据库窗体中的VBA代码。 Private Sub Command5_Click() Dim a%, b%, c%

Dim x1 As Single, x2 As Single, p As Single

a = InputBox(\请输入二次项系数的值\输入一元二次方程各系数，注意：只可为整数\

b = InputBox(\请输入一次项系数的值\输入一元二次方程各系数，注意：只可为整数\

c = InputBox(\请输入常数项的值\输入一元二次方程各系数，注意：只可为整数\p = b ^ 2 - 4 * a * c Select Case p Case Is < 0 '无实根 Me.Text1.Value = \无实根\Me.Text3.Value = \无实根\Case Is = 0 '有相同的二个实根 If a = 0 Then

Me.Text1.Value = -c / b Me.Text3.Value = Me.Text1.Value Else

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库数据库基础及ACCESS应用教程课后习题(6)在线全文阅读。