填空題

在窗體上畫一個名稱為Command1、標(biāo)題為“計算”的命令按鈕;畫3個文本框,名稱分別為Text1、Text2和Text3;然后畫4個標(biāo)簽,名稱分別為Label1、Label2、Label3和Label4,標(biāo)題分別為“操作數(shù)1”、“操作數(shù)2”、“運算結(jié)果”、“=”符;再建立一個含有4個單選按紐的RadioGroup組件,名稱為RadioGroup 1,標(biāo)題分別為“+”、“-”、“*”和“/”。程序運行后,在Text1、Text2中輸入兩個整數(shù)值,選中一個單選按鈕后單擊命令按鈕,相應(yīng)的計算結(jié)果顯示在Text3,程序運行情況如圖所示。請?zhí)钊脒m當(dāng)?shù)膬?nèi)容,將程序補充完整。


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;


您可能感興趣的試卷