2010程序設计部分__access__编程.docVIP

2010 1. 考生文件夹下有一个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 Integer x = text1 y = text2 sum = 0 For i = x To y If i Mod 2 = 0 Then sum = sum + i End If Next i text3 = sum End Sub Private Sub cmd2_Click() Quit End Sub 2. 考生文件夹下有一个Sample4.mdb数据库，已经设计“求和”窗体。窗体样式如下图所示。 请按以下要求设计相关程序： 1、在txtA和txtB两个文本框中分别输入一个整数，单击“计算”按钮，在txtC文本框中显示这两个整数之间的所有数字之和； 2、单击“退出”按钮，退出Access。 解答：Private Sub btnC_Click() Dim x As Integer, y As Integer, i As Integer, sum As Integer x = txtA y = txtB sum = 0 For i = x To y sum = sum + i Next i txtC = sum End Sub Private Sub btnQ_Click() Quit End Sub 3. 考生文件夹下有一个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) Then MsgBox 谢谢您的投票 ElseIf check1 = 0 And check2 = 0 And Check3 = 0 And Check4 = 0 And Check5 = 0 And Check6 = 0 Then MsgBox 请选择一个最佳场馆 Else MsgBox 最佳场馆只能有一个，请重新选择 End If End Sub Private Sub cmd2_Click() Quit End Sub Private Sub Form_Load() Me.check1.Value = 0 Me.check2.Value = 0 Me.Check3.Value = 0 Me.Check4.Value = 0 Me.Check5.Value = 0 Me.Check6.Value = 0 End Sub 4. 考生文件夹下有一个Sample4