2010年9月全国计算机等级考试二级笔试试卷
Delphi语言程序设计
(考试时间90分钟，满分100分)
一、选择题(每小题2分，共70分)
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。
(1)下列叙述中正确的是
A)线性表的链式存储结构与顺序存储结构所需要的存储空间是相同的
B)线性表的链式存储结构所需要的存储空间一般要多于顺序存储结构
C)线性表的链式存储结构所需要的存储空间一般要少于顺序存储结构
D)上述三种说法都不对
(2)下列叙述中正确的是
A)在栈中，栈中元素随栈底指针与栈顶指针的变化而动态变化
B)在栈中，栈顶指针不变，栈中元素随栈底指针的变化而动态变化
C)在栈中，栈底指针不变，栈中元素随栈顶指针的变化而动态变化
D)上述三种说法都不对
(3)软件测试的目的是
A)评估软件可靠性B)发现并改正程序中的错误C)改正程序中的错误D)发现程序中的错误
(4)下面描述中,不属于软件危机表现的是
A)软件过程不规范B)软件开发生产率低C)软件质量难以控制D)软件成本不断提高
(5)软件生命周期是指
A)软件产品从提出、实现、使用维护到停止使用退役的过程
B)软件从需求分析、设计、实现到测试完成的过程
C)软件的开发过程
D)软件的运行维护过程
(6)面向对象方法中，继承是指
A)一组对象所具有的相似性质B)一个对象具有另一个对象的性质
C)各对象之间的共同性质D)类之间共享属性和操作的机制
(7)层次型、网状型和关系型数据库划分原则是
A)记录长度B)文件的大小C)联系的复杂程度D)数据之间的联系方式
(8)一个工作人员可以使用多台计算机，而一台计算机可被多个人使用，则实体工作人员与实体计算机之间的联系是
A)一对一B)一对多C)多对多D)多对一
(9)数据库设计中反映用户对数据要求的模式是
A)内模式B)概念模式C)外模式D)设计模式
(10)有三个关系R、S和T如下：
则由关系R和S得到关系T的操作是
A)自然连接B)交C)投影D)并
(11)下列定义的标识符中，合法的是
A)_Delphi B)Delphi 7 C)7_Delphi D)Delphi-7
(12)下列叙述中，错误的是
A)一个工程可以包含多个窗体文件
B)新建一个工程后可生成多个工程文件
C)新建一个工程后，Delphi会显示一个空白窗体和一个代码编辑器窗口
D)在一个工程中可使用Add to Project …命令加入其它工程中的单元
(13)表达式(15 mod 4+7 div 3/2)的值是
A)4 B)10 C)8 D)2
(14)当单击窗体上的按钮时，事件OnClick、OnEnter和OnMouseDown都会触发，它们的触发顺序为
A)①OnClick ②OnEnter ③OnMouseDown B)①OnEnter ②OnClick ③OnMouseDown
C)①OnEnter ②OnMouseDown ③OnClick D)①OnMouseDown ②OnEnter ③OnClick
(15)Delphi预定义了许多异常类，主要包括三大类，每个类又分别包含多个异常。下列选项中不属于异常类的是
A)运行库异常B)操作异常C)组件异常D)对象异常
(16)若要在屏幕中央显示如下图所示的消息框，应使用的函数或过程为
A)MessageDlg B)MessageDlgPos C)ShowMessage D)ShowMessagePos
(17)窗体上放置了一个名称为OpenDialog1的打开文件对话框的图标，要在程序运行时看到真正的打开文件对话框，必须调用对话框的方法为
A)Load B)Open C)Show D)Execute
(18)下列关系表达式中，值为True的是
A)'ABCD'>'abcd' B)'ABCD'>'AB CD' C)'ABCD'>'ABCD' D)'ABCD'>'ABCd'
(19)下列各选项的结果不是字符A的是
A)chr(65) B)#65 C)upcase(chr(97)) D)lowercase(chr(97))
(20)下列叙述中，错误的是
A)Delphi中用窗体文件来描述窗体的特性
B)Delphi中的每个窗体都对应着一个单元文件
C)Delphi中的每个单元文件都需要有窗体与之对应
D)Delphi中有的单元文件只包含程序代码而不对应任何窗体
(21)下列程序执行时，编辑框中显示的值为
procedure TForm1.Button1Click(Sender: TObject);
var
a: array[1..10] of integer;
k: integer;
begin
for k:=1 to 10 do
a[k]:=11-k;
Edit1.Text:=inttostr(a[a[3] div a[7] mod a[5]]);
end;
end.
A)7 B)9 C)3 D)5
(22)下列程序运行后，循环体执行的次数为
procedure TForm1.Button1Click(Sender: TObject);
var
k: integer;
begin
k:=1;
repeat
k:=k+3;
until k>=10;
end;
end.
A)3 B)2 C)4 D)5
(23)下列程序的输出结果为
procedure TForm1.Button1Click(Sender: TObject);
var
str1,str2: string;
k: integer;
begin
str1:='ABCDEFG';
for k:=length(str1) down 1 do
str2:=str2+copy(str1,k,1);
Edit1.Text:=str2;
end;
end.
A)ABC B)'ABCDEFG' C)GFEDCBA D)EFG
(24)窗体上放置了一个名称为Button1的按钮组件，按钮的OnClick事件代码如下：
procedure TFomr1.Button1Click(Sender: TObject);
var
a,b: integer;
begin
a:=75;
if a>60 then
b:=1
else if a>70 then
b:=2
else if a>80 then
b:=3
else if a>90 then
b:=4;
ShowMessage(inttostr(b));
end;
end.
程序运行后单击命令按钮，消息框中的输出结果为
A)4 B)3 C)2 D)1
(25)TMemo组件中将内容保存到一个文本文件中的方法是
A)CutToClipboard B)LoadFromFile C)SaveToFile D)CopyToClipboard
(26)TEdit 组件和TMaskEdit 组件的区别是 A)TMaskEdit 是限制格式的编辑框组件
B)TEdit 是限制格式的编辑框组件
C)TEdit 和TMaskEdit 都是可以限制格式的编辑框组件 D)TEdit 和TMaskEdit 都是不可以限制格式的编辑框组件
(27)有如下程序段
procedure TForm1.Button1Click(Sender: TObject); begin
if CheckBox1.Checked=True then begin
RadioButton1.Checked:=True; Button1.Caption:='取消'; end; end;
程序初始运行时CheckBox1被选中，则Button1
按钮被单击后得到的结果是
(28)工程已经对数据库的数据表（数据表中有多条记录）进行了正确的连接。程序运行后，当
Button1按钮被第一次单击后，得到的执行结果是
procedure TForm1.Button1Click(Sender: TObject); begin
while not Table1.Eof do begin
Table1.Next; end; end;
A)当前指针指向了第一条记录 B)当前指针指向了最后一条记录 C)当前指针指向了中间的一条记录 D)当前指针指向了第二条记录 (29)有如下程序段，它的功能是对数据表中的某些数据项进行修改，则下划线处的语句是 procedure TForm1.Button1Click(Sender: TObject); begin
if Table1.CanModify Then begin
A B
C
D
Table1.Edit1;
Tabel1.FieldByName('Name').AsString:='Li Gang’;
Tabel1.FieldByName('Score').AsString:='90’;
Tabel1.________________;
end;
else
begin
Table1.Cancel;
ShowMessage('当前的数据项不能修改！');
end;
end;
A)Insert B)CanModify C)Cancel D)Post
(30)下列叙述中，正确的是
A)FindKey允许用户同时查找数据表中的多个列
B)GotoKey允许用户同时查找数据表中的多个列
C)FindKey和GotoKey都允许用户同时查找数据表中的多个列
D)FindKey和GotoKey都不允许用户同时查找数据表中的多个列
(31)Delphi在采用ADO方式与数据连接时，可用于执行存储过程的组件是
A)TADOQuery B)TADOStoredProc C)TADOTable D)TADOConnection
(32)有如下程序段，当这个按钮OnClik事件执行后，完成的操作是
procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Delete;
end;
end.
A)修改了当前的这条记录B)删除了当前这条记录中的一项
C)删除了当前的这条记录B)修改了当前这条记录中的一项
(33)在Delphi程序中，Canvas对象中用于设定填充图形和背景颜色及图案的属性是
A)Font B)Brush C)PenPos D)Pen
(34)有如下程序段
procedure TForm1.Button1Click(Sender: TObjeCT);
begin
Canvas.Brush.Color:=clGreen;
Canvas.Ellips(20,20,200,80);
end;
这段程序执行后，得到的结果是
A)从点(20, 20)到点(200, 80)画出一个绿色填充的椭圆
B)从点(20, 20)到点(200, 80)画出一个绿色边界的椭圆
A)从点(200, 80)到点(20, 20)画出一个绿色填充的椭圆
A)从点(200, 80)到点(20, 20)画出一个绿色边界的椭圆
(35)TMediaPlayer组件用于播放多媒体文件。TButtonSet包含了一些按钮。下面选项中不属于TButtonSet 中的按钮的选项是
A)btPlay B)btRecord C)btStop D)btOK
二、填空题（每空2分,共30分）
请将每一个空的正确答案写在答题卡【1】～【15】序号的横线上，答在试卷上不得分。
(1)一个栈的初始状态为空。首先将元素5,4,3,2,1依次入栈，然后退栈一次，再将元素 A,B,C,D依次入栈，之后将所有元素全部退栈，则所有元素退栈(包括中间退栈的元素)的顺序为【1】。
(2)在长度为n的线性表中，寻找最大项至少需要比较【2】次。
(3)一棵二叉树有10个度为1的结点，7个度为2的结点，则该二叉树共有【3】个结点。
(4)仅由顺序、选择（分支）和重复（循环）结构构成的程序是【4】程序。
(5)数据库设计的四个阶段是：需求分析，概念设计，逻辑设计和【5】。
(6)Delphi的主窗口是整个开发环境中核心，其主要组成部分为：标题栏、菜单栏、快捷工具栏和【6】。
(7)窗体上放置了一个名称为Button1的按钮组件，点击此按钮即可显示一个带有编辑框的对话框，如下图所示。当点击OK按钮时，返回值为编辑框中的输入内容。按钮所对应的OnClick事件代码如下，请补充完整。
Procedure TForm1.Button1Click(Sender: TObject);
var
str: string;
begin
str:= 【7】 ('请选择语言', '1.中文'+chr(13)+chr(13)+ '2.英文'+chr(13)+chr(13), '1'); if str='1' then ShowMessage('显示中文')
else ShowMessage('显示英文');
end;
end.
(8)组件对象有很多属性，其中用来标识其独一无二的重要属性是【8】，系统用它来识别不同的组件对象。
(9)Delphi中对象查看器的【9】页标签可用来观察、设置窗体及组件设计时的属性。
(10)在窗体上放置两个编辑框和一个命令按钮，初如窗体如下图所示，按钮的OnClick事件代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
a,b: integer;
begin
a:=strtoInt(Edit1.Text);
b:=strtoInt(Edit2.Text);
if a
else b:=b+20;
Edit1.Text:=InttoStr(a);
Edit2.Text:=InttoStr(b);
end;
end.
程序运行后，当第二次单击命令按钮后，两个编辑框中显示的内容分别为【10】和【11】。
(11)对窗体中的按钮设置成如下图所示的形式，应将该按钮的【12】属性设置为“开始运行”。
(12)下列程序是对一个TProgressBar组件进行初始赋值。
procedure TForm1.FormCreate(Sender: TObject);
begin
ProgressBar1.Min:=0;
ProgressBar1.Max:=300;
ProgressBar1.Step:=20;
end;
当程序执行后，TProgressBar组件每次填充的步长大小是【13】。
(13)下列程序采用TQuery组件(名称为Query1)实现以Edit1编辑框中的文本为查询内容，对数据表Table1进行查询。则下划线处的语句应该是【14】。
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1._________(Edit1.Text);
Query1.Open;
end;
(14)在Delphi进行数据库连接时，TTable组件需指定数据库的名字。完成这个操作，需设定TTable组件的【15】属性。
2010年9月二Delphi笔试标准答案
一、选择题 1.BCDAA 6.DDCCA 11.ABACB 16.CDBDC 21.BACDC 26.ACBDA 31.BCBAD
二、填空题 1.1DCBA2345 2.n-1 3.25 4.结构化 5.物理设计 6.组件面板7.InputBox
https://www.doczj.com/doc/6f14578836.html, 9.属性10.40 11.40 12.Caption 13.20 14.Add 15.DatabaseName 注:9.属性也可填写 Properties