找考题网-背景图
填空题

在窗体上画一个名称为Command1、标题为“计算”的命令按钮;画3个文本框,名称分别为Text1、Text2和Text3;然后画4个标签,名称分别为Label1、Label2、Label3和Label4,标题分别为“操作数1”、“操作数2”、“运算结果”、“=”符;再建立一个含有4个单选按纽的RadioGroup组件,名称为RadioGroup 1,标题分别为“+”、“-”、“*”和“/”。程序运行后,在Text1、Text2中输入两个整数值,选中一个单选按钮后单击命令按钮,相应的计算结果显示在Text3,程序运行情况如图所示。请填入适当的内容,将程序补充完整。


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;

【参考答案】

①text;②text;③RadioGroup1;④text;⑤y