【问题】 用户界面如下图所示的应用程序:说明如下:窗体Form1上放置2个按钮对象Button1(运算键)、Button2(退出),3个编辑框对象edit1(操作数)、edit2(被操作数)、edit3(结果输出框),一个GroupBox对象GroupBox1(内含4个单选按钮,用于选择4个运算类型),一个复选框checkbox1(“显示除法余数”)。界面上对象的代码如下:procedure TForm1.Button1Click(Sender: TObject); var x,y,z :integer;begi

用户界面如下图所示的应用程序:说明如下:窗体Form1上放置2个按钮对象Button1(运算键)、Button2(退出),3个编辑框对象edit1(操作数)、edit2(被操作数)、edit3(结果输出框),一个GroupBox对象GroupBox1(内含4个单选按钮,用于选择4个运算类型),一个复选框checkbox1(“显示除法余数”)。界面上对象的代码如下:procedure TForm1.Button1Click(Sender: TObject); var x,y,z :integer;begin x:= strtoint(edit1.Text); y:= strtoint(edit2.Text); case radiogroup1.itemindex of 0: z:= x+y ; 1: z:= x-y ; 2: z:= x*y ; 3: z:= x div y; end; edit3.text:=inttostr(z); if checkbox1.checked and (radiogroup1.itemindex=3) then if (x mod y0)then edit3.text:=Edit3.text+. 余 .+ inttostr(x mod y) ;end;procedure TForm1.Edit1Exit(Sender: TObject); var x : integer ;begin if (edit1.Text=..) then begin showmessage(.操作数为空.) ; edit1.SetFocus ; exit ; end ; x:= strtoint(edit1.Text); if (x100) then begin showmessage(.操作数越界.); edit1.SetFocus ; end ;end;procedure TForm1.Edit2Exit(Sender: TObject); var x : integer ;begin if (edit2.Text=..) then begin showmessage(.被操作数为空.) ; edit2.SetFocus ; exit ; end ; x:= strtoint(edit2.Text); if (x100) then begin showmessage(.被操作数越限.); edit2.SetFocus ; end ;end;procedure TForm1.Button2Click(Sender: TObject); //退出按钮begin form1.close;end;阅读上面的代码,请写出如上图所示输入edit1输入数字23 , edit2输入数字5的时候,点击“运算键”执行后,请写出edit3显示的内容。 A、操作数为空B、2余3C、0D、4余3

正确答案:D

题目解析:本题出自国家开放大学,国家开放大学Delphi程序设计,由丰阳塔题库搜集整理。