Access的类模块有3种基本形式：窗体类模块、报表类模块和自定义类模块。
标准模块是指可在数据库中公用的模块，模块中包含的主要是公共过程和常用过程，这些公用过程不与任何对象相关联，可以被数据库的任何对象使用，可以在数据库的任何位置执行。常用过程是类对象经常要使用的过程，需要多次调用的过程。一般情况下，Access中所说的模块是指标准模块。
类模块一般用于定义窗体、报表中某个控件事件的响应行为，常通过私有的过程来定义。类模块可以通过对象事件操作直接调用。
标准模块一般用来定义数据库、窗体、报表中多次执行的操作，常通过公有的过程来定义，标准模块通过函数过程名来调用。
2．答：在Access中设计窗体，其中有一个文本框、两个按钮，其中“转换”按钮的单击事件代码如下：
Private Sub cmd_convert_Click() Dim v_result As String '结果变量 v_result = \\
If Not IsNumeric(Text0.Value) Then 獍?硯尠输入的不为数值！ Exit Sub End If
If Len(Text0.Value) <> 3 Then 獍?硯尠输入的不为3位数！ End If For i = 1 To 3
v_result = v_result & Mid(Text0.Value, 3 - i + 1, 1) Next i
獍?硯尠结果： & v_result End Sub
3．答：VBA代码如下： Private Sub Command1_Click()
??湉異?硯尨请输入第一个数x的值?尠请输入需比较的数) max = x
??湉異?硯尨请输入第二个数y的值?尠请输入需比较的数) If y > max Then max = y
??湉異?硯尨请输入第三个数z的值?尠请输入需比较的数) If z > max Then max = z
Me.Text1.Value = Str(x) & , & Str(y) & , & Str(z) Me.Text3.Value = max
. 精品文档
End Sub
4．答：VBA代码如下： Private Sub Form_Load() Me.Text1.Value = \\
End Sub
Private Sub Command5_Click() Me.Text1.Value = \\
╭??灮瑵潂?请输入欲判断季节的月份的值?尠注意：只可为1-12之间的整数) Select Case m Case 2 To 4 ' 春季
敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠春季 Case 5 To 7 '夏季
敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠夏季 Case 8 To 10 '秋季
敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠秋季 Case 11 To 12, 1
敍?扡汥?慃瑰潩??牔浩匨牴洨??尠月份的季节为 敍吮硥?嘮污敵?尠冬季 Case Else '无效的月份
敍吮硥?嘮污敵?尠输入的是无效的月份 End Select End Sub
5．答：VBA代码如下： Private Sub Command1_Click() Dim m As String Me.Text1.Value = \\ m =
For i% = 3 To 99 Step 2 For j% = 2 To i - 1 Lx% = i Mod j If Lx = 0 Then Exit For End If Next
If j > i - 1 Then
m = m + , + Trim(Str(i)) End If Next
Me.Text1.Value = m End Sub
6．答：（1）在教学管理数据库中，添加一条记录的过程如下。
. 精品文档
Sub AddRecord(kc_hao As String, kc_name As String, kc_class As String, kc_score As Integer)
Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection '打开当前连接 rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic rs.AddNew
獲?敩摬?课程号).Value = kc_hao 獲?敩摬?课程名).Value = kc_name 獲?敩摬?课程类别).Value = kc_class 獲?敩摬?学分).Value = kc_score rs.Update Set rs = Nothing Set conn = Nothing End Sub
（2）查找课程名为“数据结构”的记录，并将其学分更新为3。其代码实现如下： Sub ExecSQL()
Dim conn As New ADODB.Connection
Set conn = CurrentProject.Connection '打开当前连接 strsql = %update 课程 set 学分=3 where 课程名='数据结构' conn.Execute (strsql) Set conn = Nothing End Sub
（3）删除课程号为“Z0004”的记录。其实现方法只需将ExecSQL()过程中的SQL语句改为：strsql = delete * from 课程 where 课程号='Z0004'
第9章
一、选择题 1．D 2．C 3．A 4．C 5．A 6．A 二、填空题
1．导入，导出，共享 2．后端数据库，前端数据库 3．商品信息_2013-06-20.accdb 4．独占
5．数据库文档管理器，分析性能，分析表 三、问答题
1．答：导入数据是将数据复制于数据库中，源数据变化将不影响数据库中的数据。链.
精品文档
接数据是将链接至数据库中，源数据变化将影响数据库中的数据，并保持一致。
2．答：数据库的备份有助于保护数据库，以防出现系统故障或误操作而丢失数据。备份数据库时，Access首先会保存并关闭在设计视图中打开的所有对象，然后可以使用指定的名称和位置保存数据库文件的副本。
3．答：在使用数据库文件的过程中，要经常对数据库对象进行创建、修改、删除等操作，这时数据库文件中就可能包含相应的“碎片”，数据库文件可能会迅速增大，影响使用性能，有时也可能被损坏。在Access 2010中，可以使用“压缩和修复数据库”功能来防止或修复这些问题。 4．答：首先“以独占方式打开”数据库文件，然后选择“文件”→“信息”命令，再单击“用密码进行加密”按钮，在弹出的“设置数据库密码”对话框中输入数据库密码。
当不需要密码时，可以对数据库进行解密。以独占方式打开加密的数据库，选择“文件”→“信息”命令，单击“解密数据库”按钮，在“撤消数据库密码”对话框中输入设置的密码，然后单击“确定”按钮。
5．答：使用受信任位置中的数据库有3个步骤：使用信任中心创建受信任位置；将数据库保存或复制到受信任位置；打开并使用数据库。
.