《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还书日期）