请编写单击“计算”（Button1）按钮的事件处理程序。 
（简答题）
某俱乐部实行会员注册收费，每位会员按整月每月收费500元整。但是对注册时期较长的会员有价格优惠。规则如下：注册6个月以下（含6个月）每月收费金额不变，6至12个月实行9折收费，12个月以上（不含12个月）8折收费。编程在“注册月数”框中输入会员欲注册的月数，单击“计算”按钮后在“应收金额”框中显示应收会费总钱数。单击“结束”按钮结束程序。 本程序设计界面及运行界面如下： 
请编写单击“计算”（Button1）按钮的事件处理程序。
正确答案
答案解析
略
相似试题
（单选题）
设有语句 X：=InputBox（‘输入数值’，’0’，’示例’） 程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是（ ）
（简答题）
本程序设计界面及运行界面如下： 程序功能是：用户输入一个3位正整数后，按“确定”键，该数字的个位、十位、百位数字分别显示在输出框中。如果输入的数据不在规定范围之内，程序要给出错误提示。 请编写单击“确定”按钮的事件处理程序。
（简答题）
下图是本程序的设计界面（左）和运行界面（右）： 在form1上建立的对象有：Edit1~Edit4、Button1（输出）、RadioGroup1。 该程序的功能是：用户在Edit1~Edit3中分别输入3个整数，并指定输出最大或最小数，然后按“输出”键，输入数据中的最大或最小数将显示在Edit4中。 请编写单击“输出”按钮的事件处理程序。
（填空题）
本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1（打开文件）、Button2（播放）、Button3（暂停）、Button4（退出）。 子窗体Form2上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。
（填空题）
本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。 子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。 单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。
（填空题）
本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。 单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1显示区中。 单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation {$R*.dfm} uses （①） procedure TForm1.Button1Click(Sender:TObject);//加载图片 begin if（②）then Image1.Picture.LoadFromFile(③) end procedure TForm1.Button2Click(Sender: TObject)//退出 begin if（④）=mrYes then（⑤） end; end.
（填空题）
在窗体上画一个标签（名称为Label1）和一个时钟组件（名称为Timer1），添加2个按钮“开始”（Button1）和“停止”（Button2）。程序运行后，单击窗体“开始”按钮，时钟组件启动，并开始在标签中更新显示当前时间，每隔1秒钟变换一次，按停止按钮停止计时。（见图）。请填空｡ 然后编写如下几个事件过程: procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled :=（①） ; Timer1.Interval := （②） ; end; procedure TForm1.Button1Click(Sender: TObject); begin Timer1.Enabled := （③） ; end; procedure TForm1.Button2Click(Sender: TObject); begin Timer1.Enabled := （④）; end; procedure TForm1.Timer1Timer(Sender: TObject); begin label1.Caption := TimeToStr（⑤）; end;
（填空题）
本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示： 该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为： books（bno，书号，bname书名，num现有册数） borrow（rno 读者号，bno书号，rdate还书日期） 其中，rno和bno都是字符型（3位）。 在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书现有册数减1。 该界面要实现以下合法性检查： 1.当该读者已经借了此书，不能再借。 2.当所借的书现有册数为0，不能再借。 在Form1上建立的数据库组件对象及连接关系如下： Database1－Table1（与books表相连）－DataSource1－DBGrid1（显示图书信息） Database1－Table2（与borrow表相连，用于插入借书记录） Database1－Query1 其中为Table1建立了3个永久字段：Table1bno（书号）、Table1bname（书名）、Table1num（现有册数）。 Query1的SQL语句如下： select bno from borrow where rno = :rno and bno = :bno 下面是Unit1的代码实现部分，请完成程序填空：
