delphi程序试题答案

一、单选题
1．在RadioGroup 组件中有 4 个单选框，当选中第 2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B ）。

A．0 B．1 C．2 D．3
2．函数和过程的区别为（ A ）。

A．函数执行后返回一个值，而过程不需返回值 B．过程执行后返回一个值，而函数不需返回值
C．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方 D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方
3．32 AND 27 的值是（ B ）。

A．59 B．0 C．27 D．32
4．窗体与数据模块的扩展名是（ B ）。

A．.dcu B．.dfm C．.pas D．.dpr
5．Delphi 中用什么函数来析构一个组件（ C ）。

A．Constructor B．Destroy C．Free D．Create
6．一个指针变量ptr 的域成员fs 访问的方法是（ C ）。

A．ptr->fs B．ptr.fs C．ptr^fs D．ptr@fs
7．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（ D ）。

A．45 B．54 C．48 D．40
8．Delphi 的所有类都是从什么类继承下来的（ B ）。

A．Tcomponent B．Tobject
C．Tstream D．Tnull
9．定义构造函数时用到的保留字是（ C ）。

A．Class B．.implementation C．create D．construction
10．下列组件中属于可视组件的是哪一个（ D ）。

A．Tdatasource B．Topendialog C．Ttable D．Tscrollbar
11．设有过程procedure pro(V AR x,y:integer); 变量a , b 为整型变量，其值分别为5、6，则合法的过程调用语句是（ D ）。

A．Pro(5,6) B．pro(5,b) C．pro(a,6) D．pro(a,b)
12．下列组件中不能获取焦点的是（ B ）。

A．Tedit B．Tlabel C．Trichedit D．Ttreeview
13．定义抽象类必须使用的指令字是（ A ）。

A．Abstract B．virtual C．dynamic D．override”
14．Delphi是哪个公司的产品（ C ）。

A．Microsoft B．IBM C．Borland D．DOM
15．窗体上放置有一个TEdit类控件Edit1，当在Edit1中按下‘A’键时触发的事件和事件顺序是（ A ）。

A．OnKeyDown->OnKeyPress->OnKeyUp B．OnKeyDown->OnKeyUp
C．OnKeyPress D．OnKeyDown->OnKeyUp->OnKeyPress
二、判断题
1．Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

（错）
2．所有类都有Name属性。

（错）
3．variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。

（错）
4．函数MessageDlgPos与MessageDlg极为相似，只是MessageDlgPos函数能够控制信息对话框的出现位置。

（对）5．BitBtn控件可以用来制作一个带图片的按钮，而SpeedButton则不能。

（错）
6．MediaPlayer控件的AutoEnable属性是用来控制该控件是否可用。

（错）
7．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。

（对）
8．Timer组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer事件。

（对）
9．Tobject是delphi的基类，系统中的每一个类都是Tobject的子类。

（对）
10．在MDI应用程序窗口中，如果将一个窗体设为父穷窗体，要将它的FormStyle属性设为FsStayOnTop。

（错）
三、填空题
1．用于建立菜单项的下划线快捷方式的字符是 & 。

2．在设计阶段，利用Image对象的 picture 属性，可以加载一幅图片。

3．所有可视化的VCL控件都是从 TControl 基类派生而来的。

4．Delphi有三种控制循环的语句： repeat 语句， while 语句， for 语句。

5．Delphi支持3种类型的注释：{}注释，(* *)注释，//注释。

6．关闭文件需要使用closefile ()函数。

四、简答题
1．简述什么是对象和类。

在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。

从另一个角度来看，对象就是类的一个实例。

2．简述程序错误的类型有哪些。

（1）设计期错误
（2）编译期错误
（3）运行期错误
（4）逻辑错误
3．根据下列代码，请回答。

Program Infoproc
Uses
Forms,
Unit1 in ‘Unit1.pas’{formInfoInput},
Unit2 in ‘Unit2.pas’{formInfoShow};
{$R *.res}
Begin
……
End.
问题1：以上代码是项目/工程文件的组成部分。

问题2：根据以上代码，可知项目文件名是Infoproc ，该项目文件包含2个单元文件，文件名分别是 Unit1 、Unit2 ，它们对应的窗体名是formInfoInpu 、f ormInfoShow 。

五、程序题
1．定义一个函数F，其返回值为1~N的和。

(每空2分)
（function ）F（n:integer）;
Var I,s:integer;
Begin
For i:=( 1 ) to ( N )
S:=( S+i );
( n ):=s;
End;
2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。

Procedure TForm1.FormPaint(sender:Tobject);
var
x,y:real;
j,j,h:integer;
begin
h:=form1.Height div 2;
for i:=0 to form1.Width do
begin
x:=i*(2*3.14/form1.Height);
y:=cos(x);
j:=trunc(0.8*y*h)+h;
canvas.Pixels[i,j]:=clRed:
end;
end;
一、单选题
1．Delphi 的所有类都是从什么类继承下来的（ B ）。

A．Tcomponent B．Tobject
C．Tstream D．Tnull
2．定义构造函数时用到的保留字是（ C ）。

A．Class B．.implementation C．create D．construction
3．下列组件中属于可视组件的是哪一个（ D ）。

A．Tdatasource B．Topendialog C．Ttable D．Tscrollbar
4．设有过程procedure pro(V AR x,y:integer); 变量a,b 为整型变量，其值分别为5、6，则合法的过程调用语句是（ D ）。

A．Pro(5,6) B．pro(5,b) C．pro(a,6) D．pro(a,b)
5．下列组件中不能获取焦点的是（ B ）。

A．Tedit B．Tlabel C．Trichedit D．Ttreeview
6．定义抽象类必须使用的指令字是（ A ）。

A．Abstract B．virtual C．dynamic D．override”
7．Delphi是哪个公司的产品（ C ）。

A．Microsoft B．IBM C．Borland D．DOM
8．窗体上放置有一个TEdit类的控件Edit1，并定义了Edit1的OnEnter事件，下面说法正确的是：（C）A．当鼠标在窗体上移动时产生Edit1OnEnter事件 B．其他三项都不对
C．当Edit1获得焦点时产生Edit10Enter事件 D．当鼠标移动到Edit1的上面时产生Edit1OnEnter 事件
9．在RadioGroup 组件中有 4 个单选框，当选中第 2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B ）。

A．0 B．1 C．2 D．3
10．函数和过程的区别为（ A ）。

A．函数执行后返回一个值，而过程不需返回值 B．过程执行后返回一个值，而函数不需返回值
C．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方 D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方
11．32 AND 27 的值是（ B ）。

A．59 B．0 C．27 D．32
12．Diskfree(C)是用来返回C盘的剩余空间。

A．1 B．2 C．3 D．4
13．Delphi 中用什么函数来析构一个组件（ C ）。

A．Constructor B．Destroy C．Free D．Create
14．下面的数据类型不属于在Object Pascal语法中的数据类型是（C）。

A．布尔型 B．整型 C．关系型 D．字符型
15．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（ D ）。

A．45 B．54 C．48 D．40、
二、判断题
1．MediaPlayer控件的AutoEnable属性是用来控制该控件是否可用。

（错）
2．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。

（对）
3．1、Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

（错）
4．所有类都有Name属性。

（错）
5．variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。

（错）
6．函数MessageDlgPos与MessageDlg极为相似，只是MessageDlgPos函数能够控制信息对话框的出现位置。

（对）7．BitBtn控件可以用来制作一个带图片的按钮，而SpeedButton则不能。

（错）
8．Timer组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer事件。

（对）
9．Tobject是delphi的基类，系统中的每一个类都是Tobject的子类。

（对）
10．在MDI应用程序窗口中，如果将一个窗体设为父窗体，要将它的FormStyle属性设为FsStayOnTop。

（错）
三、填空题
1．用于建立菜单项的下划线快捷方式的字符是 & 。

2．BinBtn组件的kind 属性预定义了一些常用的位图按钮种类。

3．Memo1.Lines.delete( 1 ); 是用来删除TMemo组件的第 2 行。

4．Delphi有三种控制循环的语句： repeat 语句， while 语句， for 语句。

5．在Delphi的Dialog标签中提供了多个专用对话框，其中包括： opendialog ， savedialog ，fontdialog 。

6．关闭文件需要使用closefile ()函数。

四、简答题
1．简述什么是对象和类。

在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。

从另一个角度来看，对象就是类的一个实例。

2．简述程序错误的类型有哪些。

（1）设计期错误
（2）编译期错误
（3）运行期错误
（4）逻辑错误
3．根据下列代码，请回答。

Program Infoproc
Uses
Forms,
Unit1 in ‘Unit1.pas’{formInfoInput},
Unit2 in ‘Unit2.pas’{formInfoShow};
{$R *.res}
Begin
……
End.
问题1：以上代码是项目/工程文件的组成部分。

问题2：根据以上代码，可知项目文件名是Infoproc ，该项目文件包含2个单元文件，文件名分别是 Unit1 、Unit2 ，它们对应的窗体名是formInfoInpu 、f ormInfoShow 。

五、程序题
1．填空：向一个已存在的文本文件后面追加一行文本（我成功的在这个文件后面加了一行文本）。

var
f: TextFile;
begin
if OpenDialog1.( Execute ) then
begin
AssignFile (f, OpenDialog1.FileName );
Append (f);
Writenln (f,’我成功的在这个文件后面加了一行文本。

’);
Flush(f);
CloseFile(f);
end;
end;
2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。

Procedure TForm1.FormPaint(sender:Tobject);
var
x,y:real;
j,j,h:integer;
begin
h:=form1.Height div 2;
for i:=0 to form1.Width do
begin
x:=i*(2*3.14/form1.Height);
y:=cos(x);
j:=trunc(0.8*y*h)+h;
canvas.Pixels[i,j]:=clRed:
end;
end;
一、单选题
1．Delphi 的所有类都是从什么类继承下来的（ B ）。

A．Tcomponent B．Tobject
C．Tstream D．Tnull
2．定义构造函数时用到的保留字是（ C ）。

A．Class B．.implementation C．create D．construction
3．下列组件中属于可视组件的是哪一个（ D ）。

A．Tdatasource B．Topendialog C．Ttable D．Tscrollbar
4．设有过程procedure pro(V AR x,y:integer); 变量a,b 为整型变量，其值分别为5、6，则合法的过程调用语句是（ D ）。

A．Pro(5,6) B．pro(5,b) C．pro(a,6) D．pro(a,b)
5．下列组件中不能获取焦点的是（ B ）。

A．Tedit B．Tlabel C．Trichedit D．Ttreeview
6．定义抽象类必须使用的指令字是（ A ）。

A．Abstract B．virtual C．dynamic D．override”
7．Delphi是哪个公司的产品（ C ）。

A．Microsoft B．IBM C．Borland D．DOM
8．窗体上放置有一个TEdit类控件Edit1，当在Edit1中按下‘A’键时触发的事件和事件顺序是（ A ）。

A．OnKeyDown->OnKeyPress->OnKeyUp B．OnKeyDown->OnKeyUp
C．OnKeyPress D．OnKeyDown->OnKeyUp->OnKeyPress
9．在RadioGroup 组件中有 4 个单选框，当选中第 2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B ）。

A．0 B．1 C．2 D．3
10．函数和过程的区别为（ A ）。

A．函数执行后返回一个值，而过程不需返回值 B．过程执行后返回一个值，而函数不需返回值
C．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方 D．函数在被调用时，能执行某种特殊功能并
能返回到调用它的地方
11．32 AND 27 的值是（ B ）。

A．59 B．0 C．27 D．32
12．窗体与数据模块的扩展名是（ B ）。

A．.dcu B．.dfm C．.pas D．.dpr
13．Delphi 中用什么函数来析构一个组件（ C ）。

A．Constructor B．Destroy C．Free D．Create
14．一个指针变量ptr 的域成员fs 访问的方法是（ C ）。

A．ptr->fs B．ptr.fs C．ptr^fs D．ptr@fs
15．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（ D ）。

A．45 B．54 C．48 D．40
二、判断题
1．函数MessageDlgPos与MessageDlg极为相似，只是MessageDlgPos函数能够控制信息对话框的出现位置。

（对）2．BitBtn控件可以用来制作一个带图片的按钮，而SpeedButton则不能。

（错）
3．MediaPlayer控件的AutoEnable属性是用来控制该控件是否可用。

（错）
4．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。

（对）
5．1、Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。

（错）
6．所有类都有Name属性。

（错）
7．variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。

（错）
8．在MDI应用程序窗口中，如果将一个窗体设为父窗体，要将它的FormStyle属性设为FsStayOnTop。

（错）9．Tobject是delphi的基类，系统中的每一个类都是Tobject的子类。

（对）
10．Timer组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer事件。

（对）
三、填空题
1．Delphi有三种控制循环的语句： repeat 语句， while 语句， for 语句。

2．Delphi支持3种类型的注释：{}注释，(* *)注释，//注释。

3．所有可视化的VCL控件都是从 TControl 基类派生而来的。

4．用于建立菜单项的下划线快捷方式的字符是 & 。

5．在设计阶段，利用Image对象的 picture 属性，可以加载一幅图片。

6．关闭文件需要使用closefile ()函数。

四、简答题
1．简述什么是对象和类。

在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。

从另一个角度来看，对象就是类的一个实例。

2．简述程序错误的类型有哪些。

（1）设计期错误
（2）编译期错误
（3）运行期错误
（4）逻辑错误
3．根据下列代码，请回答。

Program Infoproc
Uses
Forms,
Unit1 in ‘Unit1.pas’{formInfoInput},
Unit2 in ‘Unit2.pas’{formInfoShow};
{$R *.res}
Begin
……
End.
问题1：以上代码是项目/工程文件的组成部分。

问题2：根据以上代码，可知项目文件名是Infoproc ，该项目文件包含2个单元文件，文件名分别是 Unit1 、Unit2 ，它们对应的窗体名是formInfoInpu 、f ormInfoShow 。

五、程序题
1．填空：向一个已存在的文本文件后面追加一行文本（我成功的在这个文件后面加了一行文本）。

var
f: TextFile;
begin
if OpenDialog1.( Execute ) then
begin
AssignFile (f, OpenDialog1.FileName );
Append (f);
Writenln (f,’我成功的在这个文件后面加了一行文本。

’);
Flush(f);
CloseFile(f);
end;
end;
2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。

Procedure TForm1.FormPaint(sender:Tobject);
var
x,y:real;
j,j,h:integer;
begin
h:=form1.Height div 2;
for i:=0 to form1.Width do
begin
x:=i*(2*3.14/form1.Height);
y:=cos(x);
j:=trunc(0.8*y*h)+h;
canvas.Pixels[i,j]:=clRed:
end;
end;。