2010程序设计部分__access__编程.doc

20101. 考生文件夹下有一个Sample4.mdb数据库，已经设计“计算偶数和”窗体。窗体样式如下图所示。（得分20） 请按以下要求设计相关程序：1、在Text1文本框中输入一个较小的整数，在Text2中输入一个较大的整数，单击“计算”按钮，在Text3中显示介于这两个数（包括这两个数）之间的所有偶数之和；2、单击“退出”按钮，退出Access。解答：Private Sub cmd1_Click()Dim x As Integer, y As Integer, i As Integer, sum As Integerx = text1y = text2sum = 0For i = x To yIf i Mod 2 = 0 Thensum = sum + iEnd IfNext itext3 = sumEnd SubPrivate Sub cmd2_Click()QuitEnd Sub2. 考生文件夹下有一个Sample4.mdb数据库，已经设计“求和”窗体。窗体样式如下图所示。 请按以下要求设计相关程序：1、在txtA和txtB两个文本框中分别输入一个整数，单击“计算”按钮，在txtC文本框中显示这两个整数之间的所有数字之和；2、单击“退出”按钮，退出Access。解答：Private Sub btnC_Click()Dim x As Integer, y As Integer, i As Integer, sum As Integerx = txtAy = txtBsum = 0For i = x To ysum = sum + iNext itxtC = sumEnd SubPrivate Sub btnQ_Click()QuitEnd Sub3. 考生文件夹下有一个Sample4.mdb数据库，已经设计“评选最佳场馆”窗体。窗体样式如下图所示： 请按以下要求设计相关程序：1、如果只选中一个场馆选项，单击“投票”按钮，则显示“谢谢您的投票”；2、如果选中多个场馆选项，单击“投票”按钮，则显示“最佳场馆只能有一个，请重新选择”；3、如果没有选择,单击“投票”按钮，则显示“请选择一个最佳场馆”；4、单击“关闭”按钮，退出Access。注：可以使用MsgBox函数显示相关文本信息。解答：Private Sub cmd1_Click()If (check1=-1 And check2 = 0 And Check3 = 0 And Check4 = 0 And Check5 = 0 And Check6 = 0) Or (check1 = 0 And check2=-1 And Check3 = 0 And Check4 = 0 And Check5 = 0 And Check6 = 0) Or (check1 = 0 And check2 = 0 And Check3 =-1 And Check4 = 0 And Check5 = 0 And Check6 = 0) Or (check1 = 0 And check2 = 0 And Check3 = 0 And Check4=-1 And Check5 = 0 And Check6 = 0) Or (check1 = 0 And check2 = 0 And Check3 = 0 And Check4 = 0 And Check5=-1 And Check6 = 0) Or (check1 = 0 And check2 = 0 And Check3 = 0 And Check4 = 0 And Check5 = 0 And Check6=-1) ThenMsgBox 谢谢您的投票ElseIf check1 = 0 And check2 = 0 And Check3 = 0 And Check4 = 0 And Check5 = 0 And Check6 = 0 ThenMsgBox 请选择一个最佳场馆ElseMsgBox 最佳场馆只能有一个，请重新选择End IfEnd SubPrivate Sub cmd2_Click()QuitEnd SubPrivate Sub Form_Load()Me.check1.Value = 0Me.check2.Value = 0Me.Check3.Value = 0Me.Check4.Value = 0Me.Check5.Value = 0Me.Check6.Value = 0End Sub4. 考生文件夹下有一个Sample4.mdb数据库，已经设计“计算奇数和”窗体。窗体样式如下图所示。 请按以下要求设计相关程序：1、在txtIn文本框中输入一个正数，单击“计算”按钮，则计算出小于等于这个数字的所有奇数的和，并将计算结果显示在txtOut文本框中；2、单击“退出”按钮，退出Access。解答：Private Sub btnC_Click()Dim x As Integer, sum As Integer, i As Integerx = txtInsum = 0For i = 1 To xIf i Mod 2 0 Thensum = sum + iEnd IfNexttxtOut = sumEnd SubPrivate Sub btnQ_Click()QuitEnd Sub5. 考生文件夹下有一个Sample4.mdb数据库，已经设计“计算三角形面积”窗体。窗体样式如下图所示。 请按以下要求设计相关程序：1、分别在Text1、Text2、Text3中输入三个正数。单击“计算”按钮，判断这三个数能否构成三角形，若能构成三角形，则利用海伦公式计算三角形面积，并在Text4中显示结果；若不能构成三角形，在Text4中显示“不能构成三角形”； 提示：在VBA中可以使用SQR()函数计算正数的平方根。2、单击“退出”按钮，退出Access。6. 考生文件夹下有一个Sample4.mdb数据库，已经设计“教师”表和“职称信息统”。如下图所示： “教师”表 “职称信息统计”窗体 请按以下要求设计相关程序：1、当单击窗体中的统计按钮时，则从教师表中统计出各类职称人数，然后将统计结果分别填入文本框中；2、单击“退出”按钮，退出Access。注：统计按钮的事件中已经给出部分代码，将其补充完整即可。解答：Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 连接对象 Dim rs As New ADODB.Recordset 记录集对象 Dim ZhiCheng As ADODB.Field 职称字段 Dim I_JiaoShou As Integer, I_FuJiaoShou As Integer, I_JiangShi As Integer, I_ZhuJiao As Integer 定义存放各类职称人数的变量 Set cn = CurrentProject.Connection rs.Open 教师, cn, adOpenDynamic, adLockOptimistic, adCmdTable Set ZhiCheng = rs.Fields(职称) 初始化存放各类职称人数的变量 I_JiaoShou = 0 I_FuJiaoShou = 0 I_JiangShi = 0 I_ZhuJiao = 0 rs.MoveFirst Do While Not rs.EOF 遍历教师表 If ZhiCheng = 教授 Then I_JiaoShou = I_JiaoShou + 1 End If If ZhiCheng = 副教授 Then I_FuJiaoShou = I_FuJiaoShou + 1 End If If ZhiCheng = 讲师 Then I_JiangShi = I_JiangShi + 1 End If If ZhiCheng = 助教 Then I_ZhuJiao = I_ZhuJiao + 1 End If rs.MoveNext 记录指针向下移动 Loop 将各类职称人数的数据填入文本框中 Text_jiaoshou = I_JiaoShou Text_fujiaoshou = I_FuJiaoShou Text_jiangshi = I_JiangShi Text_zhujiao = I_ZhuJiao rs.Close cn.Close Set rs = Nothing Set cn = NothingEnd SubPrivate Sub Cmd2_Click()QuitEnd Sub7. 考生文件夹下有一个Sample4.mdb数据库，已经设计“学生”表和“信息统计”窗体。如下图所示： “学生”表 信息统计窗体 请按以下要求设计相关程序：1、当单击窗体中的统计按钮时，则从学生表中统计出男、女生人数，然后将统计结果分别填入文本框中；2、单击“退出”按钮，退出Access。注：统计按钮的事件中已经给出部分代码，将其补充完整即可。解答：Private Sub Cmd1_Click() Dim cn As New ADODB.Connection 连接对象 Dim rs As New ADODB.Recordset 记录集对象 Dim SEX As ADODB.Field 性别字段 Dim I_NanSheng As Integer, I_NvSheng As Integer 定义存放男、女生人数的变量 Set cn = CurrentProject.Connection rs.Open 学生, cn, adOpenDynamic, adLockOptimistic, adCmdTable Set SEX = rs.Fields(性别) 初始化存放男、女生人数的变量 I_NanSheng = 0 I_NvSheng = 0 rs.MoveFirst 遍历学生表前，应定位到第一条记录上 Do While Not rs.EOF 遍历学生表 If SEX = 男 Then 统计男生人数 I_NanSheng = I_NanSheng + End If If SEX = 女 Then 统计女生人数 I_NvSheng = I_NvSheng + 1 End If rs.MoveNext 记录指针向下移动 Loop 将男、女生人数的数据填入文本框中 Text_NanSheng = I_NanSheng Text_NvSheng = I_NvSheng rs.Close cn.Close Set rs = Nothing Set cn = NothingEnd SubPrivate Sub Cmd2_Click()QuitEnd Sub求阶乘题：Dim a As Integer, b As Integer