Delphi试题02

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

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

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

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

3、Delphi 应用程序中单元文件的扩展名是 。

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

b a 对应的Object Pascal 表达式是 。

5、对于下面的条件表达式：

（（3 <= x ）AND （x < 0）） OR （x in [1..10]）

8、时钟组件（Timer ）能有规律的以一定时间间隔触发 事件

9、能够实现格式化输入的编辑框组件是

10、利用 对象的LineTo 等方法，可以绘制基本图形。

二、单项选择题（20分，每题2分）

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

A ． 可视化程序设计

B ． 代码程序设计

C ． 事件驱动编程

D ． A 和C

2、进度显示组件ProgressBar 的当前进度可以通过（ ）属性设置。

A ． Step

B ．Scroll

C ． Position

D ．Max

3、下列变量命名正确的是（ ）。

A ．7ABC

B ． My7

C ． page@2

D ．cmd..1

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

A ．0 ≤ x < 200

B ． x >= 0, x<200

C ．(x >=0) AN

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

5、在窗体上建立多页面的用户界面，需要首先建立的对象是（ ）

A ． TabControl

B ．PageControl

C ． HeaderControl

D ．PageScroller

6、能够删除edit1中内容的语句是（ ）。

A ． edit1.Clear ;

B ．edit1. Focused ；

C ． edit1.Text= null ;

D ．edit1.text :='\0' ;

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

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

A．HasColumnHeader B．Detail

C．Summary D．Title

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

A．F1键B．F2键

C．F3键D．F4键

9、以下能够触发编辑框（Edit）组件OnChange事件的操作是（）

A．鼠标单击编辑框B．鼠标双击编辑框

C．在编辑框中选择文本D．在编辑框中输入文本

10、以下叙述中错误的是（）

A．一个项目包含不止一种类型的文件。

B．窗体的Show方法的作用是显示该窗体。

C．窗体的Hide方法和Release方法的作用完全相同。

D．若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体。

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

请给下列论述中正确的打上“√”，错误的打上“ ”

1、()在事件处理程序中定义的变量，其生命周期仅限于该过程。

2、()在Delphi程序运行时动态设置属性的一般格式是：

<对象名>.<属性名> := <属性值> ;

3、() const c := 100 的说明语句是合法的。

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

5、( ) 在一个项目中可以有一个以上的主窗体。

6、() 在程序运行期间，一个Table对象只能固定和一个关系表相连。

7、() 时钟Timer组件的时间间隔是由Interval属性控制，该属性的单位是秒。

8、() Quick Report 组件用于产生报表，它只有一个组件。

9、() 编辑框edit的ReadOnly属性如果设置为true，在代码中还是可以对text属性赋值。

10、（√）在Delphi环境中，组件页上的组件是“类”而不是“对象”的概念。

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

1、（10分，每空2分）

本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：

主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。

子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。

单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1显示区中。

单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。

下面是Unit1的代码部分，请在下划线处完成程序填空。

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

{$R *.dfm}

uses

①;

procedure TForm1.Button1Click(Sender: TObject); //加载图片

begin

if

end;

procedure TForm1.Button2Click(Sender: TObject); //退出

end;

end.

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

2、（10分，每空2分）

本程序设计界面和运行界面如下图所示：

程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。

请完成程序填空：

procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮

var

i , n, sum : integer ;

begin

sum := 0 ;

i := 1 ;

n := StrToInt(edit1. ①); //读入正整数n

while i <= n ②//循环语句

begin