《Access 2010数据库应用技术 习题答案作者 刘卫国 第8章》由会员分享，可在线阅读，更多相关《Access 2010数据库应用技术 习题答案作者 刘卫国 第8章（3页珍藏版）》请在金锄头文库上搜索。
1、第8章一、选择题1B2A3A4C5C6A7C8C9B10D二、填空题1Int(Rnd*61+15) 2243局部变量，模块变量，全局变量455RecordSet6EOF三、问答题1答：类模块是与类对象相关联的模块，所以也称为类对象模块。类模块是可以定义新对象的模块。新建一个类模块，表示新创建了一个对象，通过类模块的过程可定义对象的属性和方法。Access的类模块有3种基本形式：窗体类模块、报表类模块和自定义类模块。标准模块是指可在数据库中公用的模块，模块中包含的主要是公共过程和常用过程，这些公用过程不与任何对象相关联，可以被数据库的任何对象使用，可以在数据库的任何位置执行。常用过程是类对象经常
2、要使用的过程，需要多次调用的过程。一般情况下，Access中所说的模块是指标准模块。类模块一般用于定义窗体、报表中某个控件事件的响应行为，常通过私有的过程来定义。类模块可以通过对象事件操作直接调用。标准模块一般用来定义数据库、窗体、报表中多次执行的操作，常通过公有的过程来定义，标准模块通过函数过程名来调用。2答：在Access中设计窗体，其中有一个文本框、两个按钮，其中“转换”按钮的单击事件代码如下：Private Sub cmd_convert_Click() Dim v_result As String 结果变量 v_result = If Not IsNumeric(Text0.Valu
3、e) Then MsgBox 输入的不为数值！ Exit Sub End If If Len(Text0.Value) 3 Then MsgBox 输入的不为3位数！ End If For i = 1 To 3 v_result = v_result & Mid(Text0.Value, 3 - i + 1, 1) Next i MsgBox 结果： & v_resultEnd Sub3答：VBA代码如下：Private Sub Command1_Click() x = InputBox(请输入第一个数x的值, 请输入需比较的数) max = x y = InputBox(请输入第二个数y的值
4、, 请输入需比较的数) If y max Then max = y z = InputBox(请输入第三个数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 = m% = InputBox(请输入欲判断季节的月
5、份的值, 注意：只可为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
6、= 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 = 2 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
7、+ , + 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.Connecti
8、on 打开当前连接 rs.Open strSQL, conn, adOpenKeyset, adLockOptimistic rs.AddNew rs.Fields(课程号).Value = kc_hao rs.Fields(课程名).Value = kc_name rs.Fields(课程类别).Value = kc_class rs.Fields(学分).Value = kc_score rs.Update Set rs = Nothing Set conn = NothingEnd 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 = NothingEnd Sub（3）删除课程号为“Z0004”的记录。其实现方法只需将ExecSQL()过程中的SQL语句改为：strsql = delete * from 课程 where 课程号=Z00043
