《Delphi程序设计》测试试题及解答卷

《Delphi程序设计》试题及解答卷

————————————————————————————————作者：————————————————————————————————日期：

《Delphi 程序设计》试题及解答 卷5

一、填空题（20分，每空2分）

1、现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和 方法 。

2、Delphi 应用程序中项目文件的扩展名是 .dpr 。

3、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 一个人口 和一个出口。

4、在Delphi 集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象查看器（Object Inspector ）中的 属性 或 Properties 窗口直接进行设置。

5、ListBox 对象列表框中的内容是通过 items 属性来进行设置的。

6、时钟组件(Timer)能有规律的以一定时间间隔触发 ontimer 事件。

7、如果让界面上的一个按钮变为不可用，需要将它的 enabled 属性设为False 。

8、Image 组件可通过设置其 Autosize 属性为True 使Image 组件根据图像的大小自动调整显示窗口大小。

9、Delphi 的一个项目由若干文件组成，其中文件名后缀含有“~”的文件为 备份文件 。

10、与数学表达式 53)(cos 2++x

b a 对应的Object Pascal 表达式是 Cos*cos*(a+b) /(3*x)

二、单项选择题（30分，每题3分）

1、Delphi 程序设计的基本特点是（D ）

A ． 可视化程序设计

B ． 代码程序设计

C ． 事件驱动编程

D ． A 和C

2、修改窗体的标题时，应当设置form 的属性是（ A ）

A ．Caption

B ． Name

C ． Text

D ． Label

3、下列哪个常量说明语句是正确的（ D ）

A. const x := (c < 16);

B. const x : 16 ;

C. const x := 16 ; D const x = 16 ;

4、“x 是小于100的非负数”的Object Pascal 表达式是（ C ）

A ．0 ≤ x < 100

B ． x >= 0, x<100

C ．(x >=0) AN

D (x < 100) D ． (x >= 0 ) OR (x<100)

5、编辑框（Edit ）中的文本发生改变时引发的事件是（ B ）

A ．AutoSize

B ．OnChange

C ．SetFocus

D ．SetText

6、表达式 30 ＋ 19 div 2 的值是（ C ）

A ． 37

B ． 49

C ． 39

D ． 40

7、现建立一个简单报表，仅包含报表标题栏、数据栏和汇总栏，则在Bands 属性的子属性

中，不需要选择的是（A ）

A．HasColumnHeader B．Detail

C．Title D．Summary

8、下面哪个功能键可以调出Delphi 的联机帮助信息（ A ）

A．F1键B．F2键

C．F3键D．F4键

9、数据库组件中，提供了对数据库读写操作功能的核心组件是（ C ）

A．数据源组件B．用户界面组件

C．数据集组件D．数据感知控件

10、以下控件中没有Items属性的是（ D ）

A．ComboBox B．ListBox C．RadioGroup D．Memo

三、判断题（10分，每题2分）

请给下列论述中正确的打上“√”，错误的打上“ ”（10分，每题1分）

1、(Y) 一个数组中的各元素的数据类型必须相同。

2、（Y ）在一个项目中，可以根据需要将任何一个窗体定义为主窗体。

3、(N) 每个数据感知控件都必须指定DataSource和DataField两个属性值。

4、(N) label 和Edit 组件都可以用于用户输入数据。

5、(Y ) 按钮组件和编辑框组件能够响应的事件有些是相同的。

四、程序填空题（30分，每题10分）

1、（10分，每空2分）

本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运算符是一个含有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;

--------------------------------------------------------------------------------------------------------------------- 2、（10分，每空2分）

数据库mydb中有关系表student，其结构如下：

student（sno学号，sname姓名，sex性别，birthday生日）

现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：

在下划线处填写相应数据库组件的属性值：

Database1. DatabaseName : mydb

Table1. DatabaseName : mydb

Table1. TableName : student

Table1. Active : ①true

Datasource1.DataSet : ②table1

DBNavigator1. DataSource : ③datasource1

DBEdit2. DataSource : ④DataSource1

DBEdit2. DataField : ⑤sname

3、（10分，每空2分）

本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示：

该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为：

books（bno，书号，bname书名，num现有册数）

borrow（rno 读者号，bno书号，rdate还书日期）

其中，rno和bno都是字符型（3位）。

在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书现有册数减1。

该界面要实现以下合法性检查：

●当该读者已经借了此书，不能再借。

●当所借的书现有册数为0，不能再借。

在Form1上建立的数据库组件对象及连接关系如下：

Database1－Table1（与books表相连）－DataSource1－DBGrid1（显示图书信息）Database1－Table2（与borrow表相连，用于插入借书记录）

Database1－Query1

其中为Table1建立了3个永久字段：Table1bno（书号）、Table1bname（书名）、Table1num （现有册数）。

Query1的SQL语句如下：

select bno

from borrow

where rno = :rno and bno = :bno

下面是Unit1的代码实现部分，请完成程序填空：

--------------------------------------------------------------------------------------------------------------------- implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); //“借书”键

begin

query1.Close ;

query1.ParamByName('rno').Value := ①;

query1.ParamByName('bno').Value := ②;

query1.Open ;

if query1['bno'] <> null then

begin

showmessage('该读者正在借阅此书');

exit ;

end ;

if ③then

begin

showmessage('该书已全部借出');

exit ;

end;

table2. ④( [edit1.Text , table1bno.Value , date+15] ); //插入借书记录table1. ⑤;

table1num.Value := table1num.Value - 1 ; // 现有册数减1

table1.Post ;

end;

end.

---------------------------------------------------------------------------------------------------------------------

五、编程题（10分）

本程序设计界面及运行界面如下：

程序功能是：用户输入一个3位正整数后，按“确定”键，该数字的个位、十位、百位数字分别显示在输出框中。如果输入的数据不在规定范围之内，程序要给出错误提示。

请编写单击“确定”按钮的事件处理程序。

procedure TForm1.Button1Click(Sender: TObject);

var

x : integer ;

begin

x := strtoint(edit1.Text);

if (x<100) or (x>999) then

showmessage('输入数据不在范围内');

edit2.Text := inttostr(x DIV 100) ;

edit3.Text := inttostr( (x DIV 10 ) Mod 10 ) ;

edit4.Text := inttostr(x Mod 10) ;

end;

试题参考答案

一、填空题(20分，每空2分)

1、方法

2、.dpr (或dpr)

3、一个入口

4、属性或Properties

5、Items

6、OnTimer

7、Enabled 8、AutoSize 9、备份文件

10、sqr(cos(a+b)) /(3*x)+5 或cos(a+b) * cos(a+b) /(3*x)+5

二、单项选择题（30分，每题3分）

1、D

2、A

3、D

4、C

5、B

6、C

7、A

8、A

9、C 10、D

三、判断题（10分，每题2分）

1、√

2、√

3、?

4、?

5、√

四、程序填空题（30分，每题10分）

1、（10分，每空2分）

①text ②text

③RadioGroup1 ④text

⑤y

2、（10分，每空2分）

①True ②Table1

③DataSource1④DataSource1

⑤sname

3、（10分，每空2分）

①edit1.Text ②table1bno.Value

③table1num.Value = 0 ④InsertRecord

⑤Edit

五、编程题（10分）

procedure TForm1.Button1Click(Sender: TObject);

var

x : integer ;

begin

x := strtoint(edit1.Text);

if (x<100) or (x>999) then

showmessage('输入数据不在范围内');

edit2.Text := inttostr(x DIV 100) ;

edit3.Text := inttostr( (x DIV 10 ) Mod 10 ) ;

edit4.Text := inttostr(x Mod 10) ;

end;