中央广播电视大学2004-2005学年度第二学期"开放专科"期末考试
软件信息、软件网站专业 Delphi程序设计 试题
2005年7月
题 号
一
二
三
四
五
总 分
分 数
得 分
评卷人
一、填空题(20分，每空2分)
1．现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和___________。
2．结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有____________和一个出口。
3．Delphi应用程序中单元文件的扩展名是_______________。
4．与数学表达式cos2(a+b)/3x+5对应的Obiect Pascal表达式是______________________。
5. 对于下面的条件表达式：
((3<＝x)AND(x<0))OR(xin[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>＝O)OR(x<200)
5．在窗体上建立多页面的用户界面，需要首先建立的刘象是( )。
A．TabControl B。PageControl
C．HeaderControl D．PageScroller
6．能够删除editl中内容的语句是( )。
A．editl.Clear； B．editl.Focused
C．editl.Text＝null； D．editl.text：＝'＼0';
7.要建立一个简单报表，仅包含数据列标题栏、数据栏和汇总栏，则在Bands属性的子属性中，不需要选择的是( )。
A. HasColumnHeader B．HasDetail
C. HasSummary D.HasTitle
8.下面哪个功能键可以调出Delphi的联机帮助信息( )。
A.Fl键 B.F2键
C.-F3键 D.F4键
9.以下能够触发编辑框(Edit)组件OnChange事件的操作是( )。
A. 鼠标单击编辑框 B．鼠标双击编辑框
C.在编辑框中选择文本 D. 在编辑框中输入文本
10.以下叙述中错误的是( )。
A. 一个项目包含不止一种类型的文件
B. 窗体的Show方法的作用是显示该窗体
C. 窗体的Hide方法和Release方法的作用完全相同
D．若项目文件中有多个窗体，必须根据需要指定一个窗体为主窗体
得 分
评卷人
三、判断题(10分，每题1分)
请给下列论述中正确的打上"√"，错误的打上"X"。
1. 在事件处理程序中定义的变量，其生命周期仅限于该过程。 ( )
2.在Delphi程序运行时动态设置属性的一般格式是: ( )
<对象名>．<属性名>：＝<属性值>；
3．constc:=100的说明语句是合法的。 ( )
4．若已在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只显示扩展
名为TXT的文件，则对通用对话框的Filter的属性进行设置，设置可以是:'TXT Files| * .TXT'。（ ）
5．在一个项目中可以有一个以上的主窗体。 （ ）
6．在程序运行期间，一个Table对象只能固定和一个关系表相连。 ( )
7．时钟Timer组件的时间间隔是由Interval属性控制，该属性的单位是秒。 ( )
8．QuickReport组件用于产生报表，它只有一个组件。 ( )
9．编辑框edit的ReadOnly属性如果设置为true，在代码中还是可以对text属性赋值。( )
10．在Delphi环境中，组件页上的组件是"类"而不是"对象"的概念。 ( )
得 分
评卷人
四、程序填空题(40分，每题10分)
1，(10分，每空2分)
本程序由主窗体forml和子窗体form2组成，设计界面如下图所示：
主窗体上建立的对象有Imagel、Buttonl(加载图片)、Button2(退出)、OpenDialogl。
子窗体上建立的对象有Labell、BitBtml(Yes)、BitBtm2(No)。
单击"打开文件"按钮(Buttonl)，会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Imagel显示区中。
单击"退出"按钮，会弹出确认对话框(Form2)。如果用户按"Yes"键，程序结束；如果按"No"键，返回主窗体。
下面是Unitl的代码部分，请在下划线处完成程序填空。
implementation
{$R*.dfm}
uses
_______①__________;
Procedure TForml．ButtonlClick(Sender TObject)；／／加载图片
begin
if_______②_________ then
Imagel．Picture．LoadFromFile(③---------------);
end；
procedure TForml．Button2Click(Senderc TObject)；／／退出
begin
if_______④_________=mrYes then
____________⑤_________;
end;
end.
2.(10分，每空2分)
本程序设计界面和运行界面如下图所示：
程序的功能是：用户在editl中输入一个正整数n，然后按"计算"按钮，程序计算1~n中奇数之和，并在edit2中显示计算结果。
请完成程序填空：
procedure TForml．ButtonlClick(Sender：TObject)；／／"计算"按钮
var
i，n，sum：mteger；
begin
sum:=0；
i:=1；
n:＝StrToInt(editl．___①____ )；／／读入正整数n
whilei<=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生日)
现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：
在下划线处填写相应数据库组件的属性值：
Databasel．DatabaseName ：mydb
Tablel．DatabaseName ：mydb
Tablel．TableName ：student
Tablel．Active ：_________①
Datasourcel．DataSet ：________②
DBNavigatorl．DataSource ：____________③
DBEdit2．DataSource ：___________④
DBEdit2．DataField ：___________⑤
4．(10分，每空2分)
本程序实现一个简单的选课界面，程序的设计界面和运行界面如下图所示：
该程序涉及到数据库中的两张表：course(课程表)和sc(选课表)。表结构如下：
sc(sno学号，eno课程号，grade成绩)
course(cno课号，cname课名，quota名额)
其中：sno和ClIO都是字符型。
在用户界面，操作员选中一门课、输人学号后，按"选课"键，完成选课功能，即在sc表中插入
一条选课记录，并将course表中该课程的名额减1。
该界面要实现以下合法性检查：
● 当该学生已经选过此课，不能再选。
● 当所选课程名额已为o，不能再选。
在Forml上建立的数据库组件对象及连接关系如下：
Databasel-Tablel(与course表相连)一DataSourcel-DBGridl(显示课程信息)
Databasel-Table2(与sc表相连，用于插入选课记录)
Databasel-Queryl
其中为Tablel建立了3个永久字段：Tablelcno(课程号)、Tablelcname(课程名)、Tablelquota(名额)。
Queryl的SQL语句如下：
select cno
from SC
where sno=:sno and cno =: cno
下面是Unitl的代码实现部分，请完成程序填空：
implementation
{$R *．dfm)
procedure TForml．ButtonlClick(Sender：TObject)；／／"选课"键
begin
queryl．Close；
queryl．ParamByName('sno')．Value：=_________①
queryl．ParamByName('cno')．Value：=__________②
queryl．Open；
ifqueryl['cno']<>null then
begin
showmessage('已选过此课')；
exit；
end；
if___________③___________then
begin
showmessage(，没有名额，)；
exit；
end；
table2．_________④________([editl．Text，tablelcno．Value，null])；
tablel．Edit；
tablelquota．Value：＝tablelquota．Value一1；／／名额减1
tablel．_______⑤_______ ；
end;
end.
得 分
评卷人
五、编程题(10分)
本程序设计界面及运行界面如下图所示。
该程序的功能是：用户在界面上的两个编辑框(Editl．Edie2)内分别输入两个正整数M和
N(M
请编写单击"计算"按钮的事件处理程序。
试卷代号：2235
中央广播电视大学2004-2005学年度第二学期"开放专科''期末考试
软件信息、软件网站专业 Delphi程序设计 试题答案及评分标准
(供参考)
2005年7月
一、填空题(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．X 4．√ 5．X
6．X 7．X 8。X 9．√ 10．√
四、程序填空题(40分，每题10分)
1．(10分，每空2分)
①unit2 ②opendialogl．Execute
③opendialogl．FileName ④form2．ShowModal
⑤close
2．(10分，每空2分)
①Text ②dO
③sum+i ④sum
⑤判断奇偶性的函数(若输入值为奇数，函数值为真，否则为假)。
3．(10分，每空2分)
①True ②Tablel
③DataSourcel ④DataSourcel
⑤sname
4．(10分，每空2分)
①edit1．Text ②tablelcno．Value
③tablelquota．Value=0 ④InsertRecord
⑤Post
五、编程题(10分)
procedureTForml．ButtonlClick(Sender：TObject)；
var
m，n，i：integer;
begin
m：＝StrToInt(edit1．Text)；
n：＝StrToInt(edit2．Text)；
Mem01．C1ear；
for i：＝m to n do
if i MOD 3=0 then
memo1．Lines．Add(IntToStr(i)；
end;
来源：网络整理 免责声明：本文仅限学习分享，如产生版权问题，请联系我们及时删除。
相关文章：
电大《成本管理》期末练兵综合测试题04-27
电大《成本会计》试题04-27
电大《开放教育入学指南》考试试题[开卷]（安徽电大）04-27
电大《当代中国政治制度》考核试题参考答案04-27
电大《社会医学》试题04-27
电大《社会保障学》1期中考试题04-27
电大《社会保障学》期中考试题04-27