你可能喜欢
问答题
本程序设计界面及运行界面如下图所示。
该程序的功能是:用户在界面上的两个编辑框(Edit1、Edit2)内分别输入两个正整数M和N(M<N),单击“计算”按钮(Button1),程序求出M~N之间所有能被3整除的数,并在Memo1对象中依次显示。
请编写单击“计算”按钮的事件处理程序。
填空题
本程序由主窗体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)按钮的事件处理程序。