问答题 某俱乐部实行会员注册收费，每位会员按整月每月收费500元整。但是对注册时期较长的会员有价格优惠。规则如下：注册6个月以下（含6个月）每月收费金额不变，6至12个月实行9折收费，12个月以上（不含12个月）8折收费。编程在“注册月数”框中输入会员欲注册的月数，单击“计算”按钮后在“应收金额”框中显示应收会费总钱数。单击“结束”按钮结束程序。 本程序设计界面及运行界面如下： 请编写单击“计算”（Button1）按钮的事件处理程序。

填空题 本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。  子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。  单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。  单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。  下面是Unit1的代码部分，请在下划线处完成程序填空。

填空题 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示： 该程序涉及到数据库中的两张表： course（课程表）和sc（选课表），表结构如下：sc（sno学号，cno课程号，grade成绩）course（cno课号，cname课名，quota名额） 其中：sno和cno都是字符型。 在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在sc表中插入一条选课记录，并将course表中该课程的名额减1。 该界面要实现以下合法性检查： 1.当该学生已经选过此课，不能再选。 2.当所选课程名额已为0，不能再选。 在Form1上建立的数据库组件对象及连接关系如下： Database1－Table1（与course表相连）－DataSource1－DBGrid1（显示课程信息） Database1－Table2（与sc表相连，用于插入选课记录） Database1－Query1 其中为Table1建立了3个永久字段：Table1cno（课程号）、Table1cname（课程名）、Table1quota（名额）。 Query1的SQL语句如下： select cno from sc where sno =:sno and cno=:cno 下面是Unit1的代码实现部分，请完成程序填空：