本程序根据用户选择的运算符对输入的二个操作数进行运算,并显示运算结果。设计界面和运行界面如图所示。其中,运算符是一个含有4个单选按纽的RadioGroup1对象。
下面是单击“运算”按钮的事件处理程序,请根据功能要求完成程序填空。
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;
您可能感兴趣的试卷
最新试题
程序员编写的()都在单元实现部分。
()执行可以控制程序逐条执行语句,每执行完一条语句程序都会停下来,等待用户发出执行下一条语句的命令。
Image 组件位于组件面板的Additional 标签上,用来把位图、()和图元文件显示在窗体中。
Animate 组件的主要方法中能够停止动画的播放的是()。
GroupBox 组件位于组件面板的Standard 标签页上,通常称为组框,用于对其他组件进行()。
下列()数据库引擎不仅可以连接Access,它还是一个通用的桌面数据库引擎。
列表框(ListBox)组件的用途是什么?
对象查看器中有两个标签,分别是()。
微调编辑框组件SpinEdit 的用途是什么?
同一类的不同对象如何区分,主要通过对象的属性的不同属性取值来区分。