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