End Sub

4．答：VBA代码如下： Private Sub Form_Load() Me.Text1.Value = \ End Sub

Private Sub Command5_Click() Me.Text1.Value = \

m% = InputBox(\请输入欲判断季节的月份的值\注意：只可为1-12之间的整数\ Select Case m Case 2 To 4 ' 春季

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \春季\ Case 5 To 7 '夏季

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \夏季\ Case 8 To 10 '秋季

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \秋季\ Case 11 To 12, 1

Me.Label2.Caption = Trim(Str(m)) & \月份的季节为\ Me.Text1.Value = \冬季\ Case Else '无效的月份

Me.Text1.Value = \输入的是无效的月份\ 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 + \ End If Next

Me.Text1.Value = m End Sub 6．答：（1）在教学管理数据库中，添加一条记录的过程如下。

11

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

rs.Fields(\课程号\ rs.Fields(\课程名\ rs.Fields(\课程类别\ rs.Fields(\学分\ 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 = \课程 set 学分=3 where 课程名='数据结构'\ conn.Execute (strsql) Set conn = Nothing End Sub

（3）删除课程号为“Z0004”的记录。其实现方法只需将ExecSQL()过程中的SQL语句改为：strsql = \课程 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．答：导入数据是将数据复制于数据库中，源数据变化将不影响数据库中的数据。链

12

接数据是将链接至数据库中，源数据变化将影响数据库中的数据，并保持一致。

2．答：数据库的备份有助于保护数据库，以防出现系统故障或误操作而丢失数据。备份数据库时，Access首先会保存并关闭在设计视图中打开的所有对象，然后可以使用指定的名称和位置保存数据库文件的副本。

3．答：在使用数据库文件的过程中，要经常对数据库对象进行创建、修改、删除等操作，这时数据库文件中就可能包含相应的“碎片”，数据库文件可能会迅速增大，影响使用性能，有时也可能被损坏。在Access 2010中，可以使用“压缩和修复数据库”功能来防止或修复这些问题。

4．答：首先“以独占方式打开”数据库文件，然后选择“文件”→“信息”命令，再单击“用密码进行加密”按钮，在弹出的“设置数据库密码”对话框中输入数据库密码。

当不需要密码时，可以对数据库进行解密。以独占方式打开加密的数据库，选择“文件”→“信息”命令，单击“解密数据库”按钮，在“撤消数据库密码”对话框中输入设置的密码，然后单击“确定”按钮。

5．答：使用受信任位置中的数据库有3个步骤：使用信任中心创建受信任位置；将数据库保存或复制到受信任位置；打开并使用数据库。

13