你可能喜欢
填空题
本程序由主窗体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.
问答题
本程序设计界面及运行界面如下图所示
该程序的功能是:用户在界面上的两个编辑框(Edit1、Edit2)内分别输入两个正整数M和N(M<N),单击“计算”按钮(Button1),程序求出M~N之间所有能被3整除的数,并在Memo1对象中依次显示。
请编写单击“计算”按钮的事件处理程序。
问答题
输入一个数字,程序判断如下情况:如果能被3整除但同时不能被5整除,显示“该数只能被3整除”;如果只能被5整除但是不能被3整除,显示“该数只能被5整除”,若被3整除同时被5整除,显示“该数可以同时被3、5整除”。
本程序设计界面及运行界面如下:
请编写单击“判断”(Button1)按钮的事件处理程序。
问答题
某厂对使用的原材料钢筋进行用前检测。要求输入钢筋的直径进行检查。标准品为10.0毫米直径。实际产品的直径与标准品之间的误差为±0.5毫米以下(含0.5毫米)的都认为是合格的,提示“检测为合格品”。否则提示“检测为废品”。
本程序设计界面及运行界面如下:
请编写单击“检测”(Button1)按钮的事件处理程序。
问答题
某俱乐部实行会员注册收费,每位会员按整月每月收费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的代码实现部分,请完成程序填空:
填空题
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示:
主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1(打开文件)、Button2(播放)、Button3(暂停)、Button4(退出)。
子窗体Form2上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。
单击“打开文件”按钮,会弹出打开文件对话框。用户指定一个要播放的文件后,单击“播放”按钮可播放多媒体文件,单击“暂停”按钮可暂停播放。
单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。
下面是Unit1的代码部分,请在下划线处完成程序填空。