你可能感興趣的試題

本程序設(shè)計(jì)界面及運(yùn)行界面如下圖所示。

該程序的功能是：用戶在界面上的兩個(gè)編輯框（Edit1、Edit2）內(nèi)分別輸入兩個(gè)正整數(shù)M和N（M<N），單擊“計(jì)算”按鈕（Button1），程序求出M~N之間所有能被3整除的數(shù)，并在Memo1對(duì)象中依次顯示。
請(qǐng)編寫單擊“計(jì)算”按鈕的事件處理程序。

本程序由主窗體form1和子窗體form2組成，設(shè)計(jì)界面如下圖所示：

主窗體上建立的對(duì)象有Image1、Button1（加載圖片）、Button2（退出）、OpenDialog1。子窗體上建立的對(duì)象有Label1、BitBtm1（Yes）、BitBtm2（No）。
單擊“打開文件”按鈕（Button1），會(huì)彈出打開文件對(duì)話框。用戶指定一個(gè)圖像文件后，圖像加載到Image1顯示區(qū)中。
單擊“退出”按鈕，會(huì)彈出確認(rèn)對(duì)話框（Form2）。如果用戶按“Yes”鍵，程序結(jié)束；如果按“No”鍵，返回主窗體。
下面是Unit1的代碼部分，請(qǐng)?jiān)谙聞澗€處完成程序填空。
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.