注意:此页面搜索的是所有试题
题目内容
(国家开放大学Delphi程序设计)
用户界面如下图所示的应用程序:
说明如下:
窗体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 y<>0)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 (x<1)or(x>100) 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 (x<1)or(x>100) then
begin
showmessage(.被操作数越限.);
edit2.SetFocus ;
end ;
end;
procedure TForm1.Button2Click(Sender: TObject); //退出按钮
begin
form1.close;
end;
阅读上面的代码,请写出如上图所示输入edit1输入数字23 , edit2输入数字5的时候,点击“运算键”执行后,请写出edit3显示的内容。
A、操作数为空
B、2余3
C、0
D、4余3
说明如下:
窗体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 y<>0)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 (x<1)or(x>100) 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 (x<1)or(x>100) then
begin
showmessage(.被操作数越限.);
edit2.SetFocus ;
end ;
end;
procedure TForm1.Button2Click(Sender: TObject); //退出按钮
begin
form1.close;
end;
阅读上面的代码,请写出如上图所示输入edit1输入数字23 , edit2输入数字5的时候,点击“运算键”执行后,请写出edit3显示的内容。
A、操作数为空
B、2余3
C、0
D、4余3
参考答案

