Delphi程序设计试题及解答1-1-111

《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]）
当x = 3 时， 该表达式的值为 。

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

7、如果想设计DBGrid 对象的列标题和对齐方式，可以对DBGrid 对象的 属性进行设置。

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 ②then
Image1.Picture.LoadFromFile( ③);
end;
procedure TForm1.Button2Click(Sender: TObject); //退出
begin
if ④= mrYes then
⑤;
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
if odd( i ) then sum := ③;
i := i +1 ;
end;
edit2.Text :=IntToStr( ④); //将结果在编辑框中显示
end;
在程序中，odd为系统函数，其功能为：⑤。

3、（10分，每空2分）
数据库mydb中有关系表student，其结构如下：
student（sno学号，sname姓名，sex性别，birthday生日）
现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：
在下划线处填写相应数据库组件的属性值：
Database1. DatabaseName : mydb
Table1. DatabaseName : mydb
Table1. TableName : student
Table1. Active : ①
Datasource1.DataSet : ②
DBNavigator1. DataSource : ③
DBEdit2. DataSource : ④
DBEdit2. DataField : ⑤
4、（10分，每空2分）
本程序实现一个简单的选课界面。

程序的设计界面和运行界面如下图所示：
该程序涉及到数据库中的两张表：course（课程表）和sc（选课表）。

表结构如下：sc（sno 学号，cno课程号，grade成绩）
course（cno课号，cname课名，quota名额）
其中：sno和cno都是字符型。

在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在sc表中插入一条选课记录，并将course表中该课程的名额减1。

该界面要实现以下合法性检查：
●当该学生已经选过此课，不能再选。

●当所选课程名额已为0，不能再选。

在Form1上建立的数据库组件对象及连接关系如下：
Database1－Table1（与course表相连）－DataSource1－DBGrid1（显示课程信息）Database1－Table2（与sc表相连，用于插入选课记录）
Database1－Query1
其中为Table1建立了3个永久字段：Table1cno（课程号）、Table1cname（课程名）、Table1quota（名额）。

Query1的SQL语句如下：
select cno
from sc
where sno = :sno and cno = :cno
下面是Unit1的代码实现部分，请完成程序填空：
--------------------------------------------------------------------------------------------------------------------- implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); //“选课”键
begin
query1.Close ;
query1.ParamByName('sno').Value := ①;
query1.ParamByName('cno').Value := ②;
query1.Open ;
if query1['cno'] <> null then
begin
showmessage('已选过此课');
exit ;
end ;
if ③then
begin
showmessage('没有名额');
exit ;
end;
table2. ④( [edit1.Text , table1cno.Value , null] );
table1.Edit ;
table1quota.Value := table1quota.Value - 1 ; //名额减1
table1. ⑤;
end;
end.
---------------------------------------------------------------------------------------------------------------------
五、编程题（10分）
本程序设计界面及运行界面如下图所示。

该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N （M < N），单击“计算”按钮（Button1），程序求出M ~ N 之间所有能被3整除的数，并在Memo 1对象中依次显示。

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

试题参考答案
一、填空题(20分，每空2分)
1、方法
2、一个入口
3、.pas （或pas）
4、sqr(cos(a+b)) /(3*x)+5 或cos(a+b) * cos(a+b) /(3*x)+5
5、True
6、Items
7、Columns
8、OnTimer 9、MaksEdit 10、Canvas
二、单项选择题（20分，每题2分）
1、D
2、C
3、B
4、C
5、B
6、A
7、D
8、A
9、D 10、C
三、判断题（10分，每题1分）
1、√
2、√
3、╳
4、√
5、╳
6、╳
7、╳
8、╳
9、√10、√
四、程序填空题（40分，每题10分）
1、（10分，每空2分）
①unit2 ②opendialog1.Execute
③opendialog1.FileName ④form2.ShowModal
⑤close
2、（10分，每空2分）
①Text ②do
③sum + i ④sum
⑤判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）。

3、（10分，每空2分）
①True ②Table1
③DataSource1④DataSource1
⑤sname
4、（10分，每空2分）
①edit1.Text ②table1cno.Value
③table1quota.Value = 0 ④InsertRecord
⑤Post
五、编程题（10分）
procedure TForm1.Button1Click(Sender: TObject);
var
m,n , i : integer;
begin
m := StrToInt(edit1.Text);
n := StrToInt(edit2.Text);
Memo1.Clear;
for i := m to n do
if i MOD 3 = 0 then
memo1.Lines.Add( IntToStr(i) ); end;。