得分 评卷人 四、程序填空题（共30分，每题10分） 24.(10分，每空2分) 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。界面如 图。其中，运算符是一个含有4个单选按纽的RadioGroup组件，名称为RadioGroupl,标题分 别为“+”、“-”、“*”和“/”。程序运行后，在Editl.Edit2中输人两个整数值，选中一个单选 按钮后单击命令按钮，相应的计算结果显示在Edt3,程序运行情况如图所示。 Edit】 Edit2 Edit3 Fot】 @石区 操作数1 操作数2 运算结果 雨 一运算符 + 一 CX 计算 RadioGroupl But tonl 请填入适当的内容，将程序补充完整。 procedure TForm1.ButtonlClick(Sender:TObject); var x1,x2,y Integer; begin x1 :StrTolnt(Edit1.1 x2 :StrTolnt(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; 1450四、程序填空题{共 0分，每题 0分) |得分|评卷人| I I I 24. (1 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。界面如 图。其中，运算符是一个含有 4个单选按纽的 p组件，名称为 ro l，标题分 别为"+"、"一"、"祷"和"/"。程序运行后，在 tl. Edit2 输入两 个单 按钮后单击命令按钮，相应的计算结果显示在 3，程序运行情况如图所示。 Edit] Edit2 Edit3 … s … … V A • … r … Button1 请填入适当的内容，将程序补充完整。 procedure TForml. ButtonlClickCSender: TObject); Radi oGr OLlp1 var xl , x2 , y : Integer; xl : = StrTolnt( Edit l. x2 : = StrTolnt( Edit2. Case begin •Item lndex of 0: y : = xl 十x2 ; I: y : = xl - x2; x2; 3: y : = xl Div x2; End; Edit3. ( : = IntToStrC 2: y : = xl end; 1450