国家开放大学Delphi程序设计

出自:国家开放大学Delphi程序设计

若已在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只显示扩展名为TXT的文件，则对通用对话框的Filter的属性进行设置，设置可以是： .TXT Files|*.TXT.。若已在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只显示扩展名为TXT的文件，则对通用对话框的Filter的属性进行设置，设置可以是： .TXT Files|*.TXT.。
T、√
F、×

OpenDialog组件的功能是指定一个文件名，并将编辑区中的内容保存到文件中。OpenDialog组件的功能是指定一个文件名，并将编辑区中的内容保存到文件中。
T、√
F、×

Delphi中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型。Delphi中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型。
T、√
F、×

如果要在窗体上设计一个主菜单，首先要建立MainMenu对象。如果要在窗体上设计一个主菜单，首先要建立MainMenu对象。
T、√
F、×

在一个项目中，第一个建立的窗体并不一定就是主窗体，可以在后续开发过程中指定。在一个项目中，第一个建立的窗体并不一定就是主窗体，可以在后续开发过程中指定。
T、√
F、×

MediaPlayer组件可以播放 Avi、midi等多种媒体格式。MediaPlayer组件可以播放 Avi、midi等多种媒体格式。
T、√
F、×

【SN：125441】【难度：0.5】【状态：已发布】
图形组件可以输入焦点，并能接受用户的输入，然后显示。图形组件可以输入焦点，并能接受用户的输入，然后显示。
T、√
F、×

一个Query对象同一时刻可以无限制地存储多条SQL语句。一个Query对象同一时刻可以无限制地存储多条SQL语句。
T、√
F、×

在程序运行期间，一个Query对象中的SQL语句可以修改。在程序运行期间，一个Query对象中的SQL语句可以修改。
T、√
F、×

在设计阶段，如果在Query对象的SQL语句中设置了参数，则必须在Query的Params属性中为参数设置数据类型。在设计阶段，如果在Query对象的SQL语句中设置了参数，则必须在Query的Params属性中为参数设置数据类型。
T、√
F、×

在Data Controls组件标签页上，所有的数据控件都有datafield属性。在Data Controls组件标签页上，所有的数据控件都有datafield属性。
T、√
F、×

DBText除了指定DataSource属性外（设定相连的数据源），还要指定DataField属性（设为相连的字段），否则无法显示数据内容。DBText除了指定DataSource属性外（设定相连的数据源），还要指定DataField属性（设为相连的字段），否则无法显示数据内容。
T、√
F、×

DBEdit除了指定DataSource属性外（设定相连的数据源），还要指定DataField属性（设为相连的字段），否则无法显示数据内容。DBEdit除了指定DataSource属性外（设定相连的数据源），还要指定DataField属性（设为相连的字段），否则无法显示数据内容。
T、√
F、×

单字段数据感知控件（例如DBText、DBEdit等）都必须指定DataSource和DataField两个属性值。单字段数据感知控件（例如DBText、DBEdit等）都必须指定DataSource和DataField两个属性值。
T、√
F、×

在程序运行期间，一个Table对象只能固定和一个关系表相连。在程序运行期间，一个Table对象只能固定和一个关系表相连。
T、√
F、×

阅读下面的程序段，其中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上建立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