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

2010
1.考生文件夹下有一个Sample4.mdb数据库，已经设计“计算偶数和”窗体。窗体样式如下图所示。（得分20）

请按以下要求设计相关程序：
1、在Text1文本框中输入一个较小的整数，在Text2中输入一个较大的整数，单击“计算”按钮，在Text3中显示介于这两个数（包括这两个数）之间的所有偶数之和；
2、单击“退出”按钮，退出Access。
解答：PrivateSubcmd1_Click()
DimxAsInteger,yAsInteger,iAsInteger,sumAsInteger
x=text1
y=text2
sum=0
Fori=xToy
IfiMod2=0Then
sum=sum+i
EndIf
Nexti
text3=sum
EndSub

PrivateSubcmd2_Click()
Quit
EndSub

2.考生文件夹下有一个Sample4.mdb数据库，已经设计“求和”窗体。窗体样式如下图所示。
请按以下要求设计相关程序：
1、在txtA和txtB两个文本框中分别输入一个整数，单击“计算”按钮，在txtC文本框中显示这两个整数之间的所有数字之和；
2、单击“退出”按钮，退出Access。
解答：PrivateSubbtnC_Click()
DimxAsInteger,yAsInteger,iAsInteger,sumAsInteger
x=txtA
y=txtB
sum=0
Fori=xToy
sum=sum+i
Nexti
txtC=sum
EndSub

PrivateSubbtnQ_Click()
Quit
EndSub
3.考生文件夹下有一个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)Then
MsgBox"谢谢您的投票"
ElseIfcheck1=0Andcheck2=0AndCheck3=0AndCheck4=0AndCheck5=0AndCheck6=0Then
MsgBox"请选择一个最佳场馆"
Else
MsgBox"最佳场馆只能有一个，请重新选择"
EndIf
EndSub

PrivateSubcmd2_Click()
Quit
EndSub

PrivateSubForm_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
EndSub

4.考生文件夹下有一个Sample4.mdb数据库，已经设计“计算奇数和”窗体。窗体样式如下图所示。

请按以下要求设计相关程序：
1、在txtIn文本框中输入一个正数，单击“计算”按钮，则计算出小于等于这个数字的所有奇数的和，并将计算结果显示在txtOut文本框中；
2、单击“退出”按钮，退出Access。
解答：
PrivateSubbtnC_Click()
DimxAsInteger,sumAsInteger,iAsInteger
x=txtIn
sum=0
Fori=1Tox
IfiMod2<>0Then
sum=sum+i
EndIf
Next
txtOut=sum
EndSub

PrivateSubbtnQ_