注意：此页面搜索的是所有试题
国家开放大学Delphi程序设计
阅读下面的程序段，其中edit1~edit3均为编辑框组件，当 s 为 3 ，edit1输入数字9 ， edit2输入数字3的时候，执行下面的程序段，请选择edit3应显示的内容为。
var
x,y,z,s :integer;
begin
x:= strtoint(edit1.Text);
y:= strtoint(edit2.Text);
case s of
0: z:= x+y ;
1: z:= x-y ;
2: z:= x*y ;
3: z:= x div y;
end;
edit3.text:=inttostr(z);
if s=3 then
if (x mod y<>0)then
edit3.text:=Edit3.text+. --- .+ inttostr(x mod y) ;
end;
执行后，edit3显示的内容为：
A、3
B、2
C、1
D、0
用户界面如下图所示的应用程序：
说明如下：
窗体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上放置1个按钮对象Button1（确定）。用户在编辑框（Edit1）中输入姓名，利用单选按钮（RadioGroup1）指定性别，通过RadioGroup1的Items属性设置两个单选按钮（“男”和“女”），并将属性Column设置为2（按钮摆两列）。利用组合框（ComboBox1）选择或直接输入所在系，利用列表框（ListBox1）指定职称。右边放置一个Memo组件（Memo1）用于结果显示。
“确定”按钮（Button1）的单击事件处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(edit1.Text);
if radiogroup1.ItemIndex = 0 then
memo1.Lines.Add(.男.)
else
memo1.Lines.Add(.女.) ;
memo1.Lines.Add(combobox1.Text);
memo1.Lines.Add( listbox1.Items[listbox1.itemindex] );
end;
当输入完界面所示的上述信息后，单击“确定”按钮，请写出右边的Memo1编辑窗口中教师信息显示结果。
A、显示单行文本： “张晓林”
B、显示单行文本：“张晓林+女+中文+副教授”
C、显示多行文本：
张晓林+
女+
中文+
副教授
D、显示多行文本：
张晓林
女
中文
副教授
应用程序用户界面如下图（左）所示，右图是设计界面。
在Form1上建立一个Panel1对象作为显示时间的面板，建立Timer1对象，并将Interval属性设置为500，将Enabled属性的初始值设置为False。
建立一个全局整型变量TimeCT。
代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel1.Caption := Timetostr(time);
TimeCT := TimeCT + 1;
edit1.text:=inttostr(TimeCT);
end;
procedure TForm1.Button1Click(Sender: TObject); //开始按钮
begin
timer1.Enabled := true ;
TimeCT := 0;
end;
procedure TForm1.Button2Click(Sender: TObject); //停止按钮
begin
timer1.Enabled := false ;
end;
当用户单击开始按钮后，开始时间如上图左所示，过5秒后，就立即按下停止按钮，请写出Panel1对象和Edit1的显示结果。
A、Panel1对象显示内容为：21:02:33 ，Edit1对象显示内容为5
B、Panel1对象显示内容为：21:02:33 ，Edit1对象显示内容为10
C、Panel1对象显示内容为：21:07:28 ，Edit1对象显示内容为5
D、Panel1对象显示内容为：21:07:28 ，Edit1对象显示内容为10
在程序中，在表单form1上建立2个编辑框对象edit1、edit2和一个按钮对象。对form1的button1编写的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
g:integer;
begin
g := strtoint(edit1.text);
if (g >=85) and (g <= 100) then
edit2.text :=”优秀”
else
if (g >=55) and (g < 85) then
edit2.text :=”通过”
else
if (g >0) and (g <55) then
edit2.text :=”重考”
else
edit2.text :=”输入有误”;
end;
阅读上面代码，当在edit1中输入 0 时， edit2的显示结果为 。
A、重考
B、优秀
C、输入有误
D、不通过
请阅读下面程序，并填写运行结果：
下面是一个函数F的程序代码。
Function F（n:integer）; //函数声明
Var i,s:integer;
Begin
s:=0;
For i:=1 to n //循环
s:= s+i; //累加
result:=s; //返回计算结果
End;
当n为5，该函数的返回值为 。
A、10
B、5
C、20
D、15
本程序设计界面如下图所示：
procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮
var
i , n, sum : integer ;
begin
sum := 0 ;
i := 1 ;
n := StrToInt(edit1. text ); //读入
while i <= n do //循环语句
begin
if i mod 3 =0 then sum := sum+i;
i := i +1 ;
end;
edit2.Text :=IntToStr(sum ); //将结果在编辑框中显示
end;
用户在edit1中输入一个正整数7，则在edit2中显示计算结果为：
A、7
B、8
C、9
D、0
本程序设计界面如下图所示：
procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮
var
i , n, sum : integer ;
begin
sum := 0 ;
i := 1 ;
n := StrToInt(edit1.Text); //读入正整数n
while i <=n do //循环语句
begin
if odd( i ) then sum :=sum+i;
i := i +1 ;
end;
edit2.Text :=IntToStr( sum ); //将结果在编辑框中显示
end;
用户在edit1中输入一个正整数7，则在edit2中显示计算结果为：
A、7
B、14
C、16
D、21
本程序设计界面如下，请阅读程序写出结果：
“检测”（Button1）按钮的事件处理程序。
procedure TForm1.Button1Click(Sender: TObject);
var
R: Real;
begin
R := StrToFloat(Edit1.Text);
if R <0.5 then Edit2.Text := .输入有误.
else
if Abs(R - 10.0) <= 0.5 then
Edit2.Text := .检测为合格品.
else
Edit2.Text := .检测为废品.;
end;
当用户在edit1中输入一个数值10.39，然后按“检测”（Button1）按钮，在edit2中显示结果为 。
A、10.3
B、输入有误
C、检测为合格品
D、检测为废品
在form1上建立的对象有：Label1~Label2、Edit1（输入数）、Edit2（输出序列）、Button1（确定）等。
Button1按钮的处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
Edit2.Text := ..;
j := StrToInt(Edit1.Text);
for i := 1 to j do
Edit2.Text := Edit2.Text + IntToStr(i);
end;
当用户输入一个1位正整数数值8，然后按“确定”按钮，在“输出系列”显示结果为 。
A、01234567
B、12345678
C、88888888
D、87654321
在“盘数量”（Edit1）框中输入购买的光盘数，单击“计算”（Button1）按钮后在“应收金额”（Edit2）框中显示应收钱数。单击“结束”（Button2）按钮结束程序。
单击“计算”（Button1）按钮的事件处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
Disk, Money: Integer;
begin
Disk := StrToInt(Edit1.Text);
if Disk >= 50 then
Money := 2 * Disk
else
Money := 3 * Disk;
Edit2.Text := IntToStr(Money);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
当用户在Edit1（盘数量）中输入数量值25，然后按“确定”按钮，在Edit2（应收金额）显示结果为 。
A、75
B、50
C、150
D、35
var
x,y,z,s :integer;
begin
x:= strtoint(edit1.Text);
y:= strtoint(edit2.Text);
case s of
0: z:= x+y ;
1: z:= x-y ;
2: z:= x*y ;
3: z:= x div y;
end;
edit3.text:=inttostr(z);
if s=3 then
if (x mod y<>0)then
edit3.text:=Edit3.text+. --- .+ inttostr(x mod y) ;
end;
执行后，edit3显示的内容为：
A、3
B、2
C、1
D、0
用户界面如下图所示的应用程序：
说明如下：
窗体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上放置1个按钮对象Button1（确定）。用户在编辑框（Edit1）中输入姓名，利用单选按钮（RadioGroup1）指定性别，通过RadioGroup1的Items属性设置两个单选按钮（“男”和“女”），并将属性Column设置为2（按钮摆两列）。利用组合框（ComboBox1）选择或直接输入所在系，利用列表框（ListBox1）指定职称。右边放置一个Memo组件（Memo1）用于结果显示。
“确定”按钮（Button1）的单击事件处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(edit1.Text);
if radiogroup1.ItemIndex = 0 then
memo1.Lines.Add(.男.)
else
memo1.Lines.Add(.女.) ;
memo1.Lines.Add(combobox1.Text);
memo1.Lines.Add( listbox1.Items[listbox1.itemindex] );
end;
当输入完界面所示的上述信息后，单击“确定”按钮，请写出右边的Memo1编辑窗口中教师信息显示结果。
A、显示单行文本： “张晓林”
B、显示单行文本：“张晓林+女+中文+副教授”
C、显示多行文本：
张晓林+
女+
中文+
副教授
D、显示多行文本：
张晓林
女
中文
副教授
应用程序用户界面如下图（左）所示，右图是设计界面。
在Form1上建立一个Panel1对象作为显示时间的面板，建立Timer1对象，并将Interval属性设置为500，将Enabled属性的初始值设置为False。
建立一个全局整型变量TimeCT。
代码如下：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
panel1.Caption := Timetostr(time);
TimeCT := TimeCT + 1;
edit1.text:=inttostr(TimeCT);
end;
procedure TForm1.Button1Click(Sender: TObject); //开始按钮
begin
timer1.Enabled := true ;
TimeCT := 0;
end;
procedure TForm1.Button2Click(Sender: TObject); //停止按钮
begin
timer1.Enabled := false ;
end;
当用户单击开始按钮后，开始时间如上图左所示，过5秒后，就立即按下停止按钮，请写出Panel1对象和Edit1的显示结果。
A、Panel1对象显示内容为：21:02:33 ，Edit1对象显示内容为5
B、Panel1对象显示内容为：21:02:33 ，Edit1对象显示内容为10
C、Panel1对象显示内容为：21:07:28 ，Edit1对象显示内容为5
D、Panel1对象显示内容为：21:07:28 ，Edit1对象显示内容为10
在程序中，在表单form1上建立2个编辑框对象edit1、edit2和一个按钮对象。对form1的button1编写的代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
g:integer;
begin
g := strtoint(edit1.text);
if (g >=85) and (g <= 100) then
edit2.text :=”优秀”
else
if (g >=55) and (g < 85) then
edit2.text :=”通过”
else
if (g >0) and (g <55) then
edit2.text :=”重考”
else
edit2.text :=”输入有误”;
end;
阅读上面代码，当在edit1中输入 0 时， edit2的显示结果为 。
A、重考
B、优秀
C、输入有误
D、不通过
请阅读下面程序，并填写运行结果：
下面是一个函数F的程序代码。
Function F（n:integer）; //函数声明
Var i,s:integer;
Begin
s:=0;
For i:=1 to n //循环
s:= s+i; //累加
result:=s; //返回计算结果
End;
当n为5，该函数的返回值为 。
A、10
B、5
C、20
D、15
本程序设计界面如下图所示：
procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮
var
i , n, sum : integer ;
begin
sum := 0 ;
i := 1 ;
n := StrToInt(edit1. text ); //读入
while i <= n do //循环语句
begin
if i mod 3 =0 then sum := sum+i;
i := i +1 ;
end;
edit2.Text :=IntToStr(sum ); //将结果在编辑框中显示
end;
用户在edit1中输入一个正整数7，则在edit2中显示计算结果为：
A、7
B、8
C、9
D、0
本程序设计界面如下图所示：
procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮
var
i , n, sum : integer ;
begin
sum := 0 ;
i := 1 ;
n := StrToInt(edit1.Text); //读入正整数n
while i <=n do //循环语句
begin
if odd( i ) then sum :=sum+i;
i := i +1 ;
end;
edit2.Text :=IntToStr( sum ); //将结果在编辑框中显示
end;
用户在edit1中输入一个正整数7，则在edit2中显示计算结果为：
A、7
B、14
C、16
D、21
本程序设计界面如下，请阅读程序写出结果：
“检测”（Button1）按钮的事件处理程序。
procedure TForm1.Button1Click(Sender: TObject);
var
R: Real;
begin
R := StrToFloat(Edit1.Text);
if R <0.5 then Edit2.Text := .输入有误.
else
if Abs(R - 10.0) <= 0.5 then
Edit2.Text := .检测为合格品.
else
Edit2.Text := .检测为废品.;
end;
当用户在edit1中输入一个数值10.39，然后按“检测”（Button1）按钮，在edit2中显示结果为 。
A、10.3
B、输入有误
C、检测为合格品
D、检测为废品
在form1上建立的对象有：Label1~Label2、Edit1（输入数）、Edit2（输出序列）、Button1（确定）等。
Button1按钮的处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i, j: Integer;
begin
Edit2.Text := ..;
j := StrToInt(Edit1.Text);
for i := 1 to j do
Edit2.Text := Edit2.Text + IntToStr(i);
end;
当用户输入一个1位正整数数值8，然后按“确定”按钮，在“输出系列”显示结果为 。
A、01234567
B、12345678
C、88888888
D、87654321
在“盘数量”（Edit1）框中输入购买的光盘数，单击“计算”（Button1）按钮后在“应收金额”（Edit2）框中显示应收钱数。单击“结束”（Button2）按钮结束程序。
单击“计算”（Button1）按钮的事件处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
Disk, Money: Integer;
begin
Disk := StrToInt(Edit1.Text);
if Disk >= 50 then
Money := 2 * Disk
else
Money := 3 * Disk;
Edit2.Text := IntToStr(Money);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
当用户在Edit1（盘数量）中输入数量值25，然后按“确定”按钮，在Edit2（应收金额）显示结果为 。
A、75
B、50
C、150
D、35