ACCESS编程练习1.考生文件夹下有一个Sample4.mdb数据库，已经设计“计算偶数和”窗体。窗体样式如下图所示。（得分20）请按以下要求设计相关程序：1、在Text1文本框中输入一个较小的整数，在Text2中输入一个较大的整数，单击“计算”按钮，在Text3中显示介于这两个数（包括这两个数）之间的所有偶数之和；2、单击“退出”按钮，退出Access。解答：PrivateSubcmd1_Click()DimxAsInteger,yAsInteger,iAsInteger,sumAsIntegerx=text1y=text2sum=0Fori=xToyIfiMod2=0Thensum=sum+iEndIfNextitext3=sumEndSubPrivateSubcmd2_Click()QuitEndSub2.考生文件夹下有一个Sample4.mdb数据库，已经设计“求和”窗体。窗体样式如下图所示。请按以下要求设计相关程序：1、在txtA和txtB两个文本框中分别输入一个整数，单击“计算”按钮，在txtC文本框中显示这两个整数之间的所有数字之和；2、单击“退出”按钮，退出Access。解答：PrivateSubbtnC_Click()DimxAsInteger,yAsInteger,iAsInteger,sumAsIntegerx=txtAy=txtBsum=0Fori=xToysum=sum+iNextitxtC=sumEndSubPrivateSubbtnQ_Click()QuitEndSub3.考生文件夹下有一个Sample4.mdb数据库，已经设计“评选最佳场馆”窗体。窗体样式如下图所示：请按以下要求设计相关程序：1、如果只选中一个场馆选项，单击“投票”按钮，则显示“谢谢您的投票”；2、如果选中多个场馆选项，单击“投票”按钮，则显示“最佳场馆只能有一个，请重新选择”；3、如果没有选择,单击“投票”按钮，则显示“请选择一个最佳场馆”；4、单击“关闭”按钮，退出Access。注：可以使用MsgBox函数显示相关文本信息。解答：PrivateSubcmd1_Click()If(check1=-1Andcheck2=0AndCheck3=0AndCheck4=0AndCheck5=0AndCheck6=0)Or(check1=0Andcheck2=-1AndCheck3=0AndCheck4=0AndCheck5=0AndCheck6=0)Or(check1=0Andcheck2=0AndCheck3=-1AndCheck4=0AndCheck5=0AndCheck6=0)Or(check1=0Andcheck2=0AndCheck3=0AndCheck4=-1AndCheck5=0AndCheck6=0)Or(check1=0Andcheck2=0AndCheck3=0AndCheck4=0AndCheck5=-1AndCheck6=0)Or(check1=0Andcheck2=0AndCheck3=0AndCheck4=0AndCheck5=0AndCheck6=-1)ThenMsgBox"谢谢您的投票"ElseIfcheck1=0Andcheck2=0AndCheck3=0AndCheck4=0AndCheck5=0AndCheck6=0ThenMsgBox"请选择一个最佳场馆"ElseMsgBox"最佳场馆只能有一个，请重新选择"EndIfEndSubPrivateSubcmd2_Click()QuitEndSubPrivateSubForm_Load()Me.check1.Value=0Me.check2.Value=0Me.Check3.Value=0Me.Check4.Value=0Me.Check5.Value=0Me.Check6.Value=0EndSub4.考生文件夹下有一个Sample4.mdb数据库，已经设计“计算奇数和”窗体。窗体样式如下图所示。请按以下要求设计相关程序：1、在txtIn文本框中输入一个正数，单击“计算”按钮，则计算出小于等于这个数字的所有奇数的和，并将计算结果显示在txtOut文本框中；2、单击“退出”按钮，退出Access。解答：PrivateSubbtnC_Click()DimxAsInteger,sumAsInteger,iAsIntegerx=txtInsum=0Fori=1ToxIfiMod2<>0Thensum=sum+iEndIfNexttxtOut=sumEndSubPrivateSu