得分 评卷人 四、程序填空题（共30分，每题15分） 1.（15分，每空3分) 本程序根据用户选择的运算符对输人的二个操作数进行运算，并显示运算结果。界面如 图。其中，运算符是一个含有4个单选按纽的RadioGroup组件，名称为RadioGroupl,标题分 别为“+”、“一”、“*”和“/”。程序运行后，在Edit1、Edit2中输入两个整数值，选中一个单选 按钮后单击命令按钮，相应的计算结果显示在Edt3,程序运行情况如图所示。 Editl Edit2 Edit3 7F室 操作数1 RadioGroupl Buttonl 请填入适当的内容，将程序补充完整。 procedure TForm1.Button1Click(Sender:TObject); var x1,x2,y Integer; begin x1 StrToInt(Edit1.1 x2 :StrTolnt(Edit2.2 Case③ ItemIndex of 1414得 分 评卷人 四、程序填空题(共 30分.每题 15分) 1. (15分，每空 3分) 本程序根据用户选择的运算符对输人的二个操作数进行运算，并显示运算结果。界面如 图。其中，运算符是一个含有4个单选按纽的RadioGroup组件，名称为RadioGroupl，标题分 别为“+”、“一”、“，”和“/”。程序运行后 ，在 Editl, Edit2中输人两个整数值 ，选 中一个单选 按钮后单击命令按钮，相应的计算结果显示在 Edit3,程序运行情况如图所示。 Editl Edit2 Edit3 护 ~ 一 十 介 子r 打 义 月， 又 健减 滋 月 、 ， 、 飞 够 RadioCroupl 请填人适当的内容，将程序补充完整。 procedure TForml. ButtonlClick(Sender: TObject); Var 1414 x1，x2，Y:Integer; begin x1:= StrToInt( Editl.① ); x2:= StrTolnt( Edit2.② ); Case③ .ItemIndex of