《Delphi程序设计》试题及解答 卷6
一、填空题（20分，每空2分）
1、现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和 。
2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 和一个出口。
3、Delphi应用程序中单元文件的扩展名是 。
4、与数学表达式对应的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) AND (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． :='\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。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论