得分 评卷人 四、程序填空题（共30分，每题10分） 1.(10分，每空2分) 本程序根据用户选择的运算符对输人的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup1对象。 f0rI1】 Forttl Editl Edit2 Edit3 下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm1.ButtonlClick(Sender:TObject);// var x1,x2,y Integer; begin x1 :StrToInt(Edit1.1 x2 :=StrToInt(Edit2.2 )； Case③ ItemIndex of 0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1*x2; 3:y :x1 Div x2; End; Edit3.④ :=IntToStr(⑤ end; 1453|得分|评卷人| I I I 四、程序填空题{共 0分，每题 0分) 1. (1 每空 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有 4个单选按纽的 l对象。 下面是单击"运算"按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm!' ButtonlClick(Sender: TObject); / /运算 var xl ,x2 ,y :Integer; begin xl : = StrToInt( Edit!. ( h x2 : = StrToInt( Edit2. ( h Case (.ItemIndex of O:y:=xl+ x2 ; l:y:=xl- x2; 2: y := xl 祷x2; 3: y := xl Div x2; end; End; Edit3. : = IntToStr( 1453