delphi程序期末试题答案

第一学期期末考试试卷（A-2-1）

考试学科Delphi 程序设计

组、命题教师考场

考号

考生班级

系主任

考生姓名

装订线

题目一二三四五六七总分核分登分人

得分

一、单选题（每小题2分，共30分）

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

B ）。

A．0

B．1

C．2D．3

2．函数和过程的区别为（

A

）。

A．函数执行后返回一个值，而过程不需返回值

B．过程执行后返回一个值，而函数不需返回值

C．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方

3．32AND 27的值是（B

）。

A．59B．0

C．27

D．324．窗体与数据模块的扩展名是（

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分，共10分）

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。（错）三、填空题（每空2分，共20分）

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

。

2．在设计阶段，利用Image 对象的picture 属性，可以加载一幅图片。3．所有可视化的VCL 控件都是从

TControl

基类派生而来的。

题目

得分

评卷人

一题目得分评卷人

二

题目得分评卷人

三

装订线

4．Delphi 有三种控制循环的语句：repeat 语句，while 语句，for 语句。5．Delphi 支持3种类型的注释：{}注释，

(**)

注释，

//

注释。

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

函数。

四、简答题（共20分）1．简述什么是对象和类。（4分）

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

2．简述程序错误的类型有哪些。（4分）（1）设计期错误（2）编译期错误（3）运行期错误（4）逻辑错误

3．根据下列代码，请回答。（12分）Program Infoproc Uses Forms,

Unit1in ‘Unit1.pas’{formInfoInput},Unit2in ‘Unit2.pas’{formInfoShow};{$R *.res}Begin ……End.

问题1：以上代码是项目/工程文件的组成部分。问题2：根据以上代码，可知项目文件名是Infoproc

，该项目文件包含2个单元文件，文件名分别是

Unit1

、

Unit2

，它们对应的窗体名是formInfoInpu 、

formInfoShow 。

五、程序题（每小题10分，共20分）

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:=0to 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;

题目得分

评卷人

四

题目

得分

评卷人

五