《数据库技术与编程》自测题2
Access数据库（共70分）
在个人的文件夹内建立数据库，命名为“电影管理.accdb”数据库。
设计三个数据表，分别命名为“电影类型表”、“电影表”和“影院表”，输入数据如图1所示。（15分）
图1数据表
设计三个表之间的关系如图2所示，并正确设置主键。（5分）
图2关系
3．设计“电影信息查询”，输入电影名，显示电影的有关信息。查询结果如图3所示（5分）
图3查询结果
4．设计“学生票价查询”，计算所有电影的学生票价。学生票价=标准票价*0.8，结果如图4。（5分）
图4查询结果
5．设计“更新查询”，查询影院表中所有结束时间早于今天的日期的影片，将结束否字段更新为true。（10分）
6．设计带有子窗体的“电影表窗体”，如图5所示。（10分）
图5电影表窗体
7．设计报表，命名为“电影类型表”，布局为“递阶”，样式为“市镇”，按照电影类型统计此类型电影放映的最长时间，结果如图6所示。（10分）
图6电影类型表报表
8．设计“主窗体”，如图7所示，将窗体中“你的姓名”更改为考生真实姓名。背景颜色为绿色。单击“预览报表”按钮，能够预览步骤7中制作的电影类型报表；单击“电影信息”按钮，打开步骤6中制作的电影表窗体；单击“关闭窗体”按钮，关闭窗体。（10分）
图7主窗体
VBA编程（共30分）
设计“付款”窗体，如图8所示。首先输入付款额、金卡会员（T表示付款人是金卡会员；F表示付款人不是金卡会员）。如果付款额等于或超过1000元并且付款人不是金卡会员，那么实际付款为付款额的0.9倍，但如果付款人是金卡会员则实际付款额为付款额的0.8倍（无论付款人所需付款的额度是否超过1000元），其它情况无折扣。单击“总计付款数额”按钮，显示用户实际所需付款金额。（20分）
图8付款窗体
设计“求和窗体”。首先输入一个数，然后判断数字是否为正整数，如果输入的是正整数则输出显示各个组成数字之和的窗体。下图9所示为输入正确时的显示结果；图10显示了输入错误时的提示信息。（10分）
图9求和窗体显示结果
图10输入错误的提示消息框
OptionCompareDatabase
DimaAsString,bAsSingle,sAsSingle,iAsInteger
PrivateSubCommand4_Click()
a=Text0.Value
s=0
b=Val(a)
IfInt(b)bOrboThen
MsgBox您输入的不是正整数
Else
Fori=1ToLen(a)
s=s+Mid(a,i,1)
Nexti
EndIf
MsgBoxStr(s)
EndSub