在窗體上畫一個(gè)名稱為Command1、標(biāo)題為“計(jì)算”的命令按鈕;畫3個(gè)文本框,名稱分別為Text1、Text2和Text3;然后畫4個(gè)標(biāo)簽,名稱分別為L(zhǎng)abel1、Label2、Label3和Label4,標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運(yùn)算結(jié)果”、“=”符;再建立一個(gè)含有4個(gè)單選按紐的RadioGroup組件,名稱為RadioGroup 1,標(biāo)題分別為“+”、“-”、“*”和“/”。程序運(yùn)行后,在Text1、Text2中輸入兩個(gè)整數(shù)值,選中一個(gè)單選按鈕后單擊命令按鈕,相應(yīng)的計(jì)算結(jié)果顯示在Text3,程序運(yùn)行情況如圖所示。請(qǐng)?zhí)钊脒m當(dāng)?shù)膬?nèi)容,將程序補(bǔ)充完整。
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2,y :Integer; begin
x1 := StrToInt(Edit1.(①));
x2 := StrToInt(Edit2.(②));
Case (③).ItemIndex of
0: y := x1 + x2 ;
1: y := x1 - x2;
2: y := x1 * x2;
3: y := x1 Div x2;
End;
Edit3. (④) := IntToStr(⑤);
end;
您可能感興趣的試卷

最新試題
程序塊可出現(xiàn)在以下幾種場(chǎng)合中()
數(shù)據(jù)庫(kù)連接組件
下列()數(shù)據(jù)庫(kù)引擎不僅可以連接Access,它還是一個(gè)通用的桌面數(shù)據(jù)庫(kù)引擎。
一個(gè)表格數(shù)據(jù)感知控件DBGrid對(duì)象不但可以同時(shí)顯示多個(gè)(),而且可以同時(shí)顯示多行數(shù)據(jù)。
狀態(tài)條(StatusBar)組件的用途是什么?