《Delphi期末试卷A.doc》由会员分享，可在线阅读，更多相关《Delphi期末试卷A.doc（3页珍藏版）》请在金锄头文库上搜索。
1、20072007学年第一学期Delphi期末考试试卷班级_ 学号_ 姓名_ 分数_题号得分阅卷人一二三四五六七总分得分阅卷人一、填空题：（每小题1分，共31分）01.Object Pascal中赋值号用（ ）表示。02.后缀为.dpr的文件称（ ），查看此文件的方法：Project-View Source。03.$R *.res 表示将后缀为.res的文件即（ ），连接到.exe文件中。04.Object Pascal保留字，是指在Object Pascal中（ ）的具有特定含义和用途的字符串。05.在一行中为多个变量声名同一类型的方法是：变量之间，用（ ）分隔。如： x, y, z : Re
2、al;06.集合数据类型,集合类型是一群（ ）元素的组合。07.Div运算，只对整数进行运算，除数不能为0，商（ ）。08.DELPHI语句分为两类：说明语句和（ ）语句。09.DELPHI语句中的说明语句，如： Type、Var、Const 等， 仅在( )起作用。10.Delphi提供了一套强大的对( )情况进行处理的机制。巧妙地利用，可使程序更为强健。11.VCL通常用于编写 （ ）应用程序。12.变量的作用域即变量的（ ）。13.设置（ ）图标的步骤：Project - options - Applications - Load Icon - ok14.控件即（ ）可见的组件。15.C
3、LX源于英文Component Library for Cross Platform 意思是：（ ）。16.控件的外观（ ）包括：Width、Height、Left、Top 等17.菜单中增加“分割线”步骤：双击 MainMenu1 图标、选中菜单项、右击 - Insert、 更改 （ ） 属性为减号。18.画布对象，系统提供的绘图平台,（ ）类对象,主要属性:Pen、Brush、Font 等。19.Painting，（ ）绘制窗体上组件的过程。20.字段，表中（ ）。21.事务，对（ ）的一次操纵即一组动作，一组动作或全有效或全无效。22.数据集，数据的（ ）。23.ADO是英文Active
4、X Data Object的缩写意思是：ActiveX数据对象，是（ ）公司的产品。24.SQL是英文Structured Query Language的缩写意思是：（ ）。25.Delphi是美国（ ）公司出品的面向对象开发软件包。26.Table组件的Filter属性的值是一个字符串。该字符串为空串时，表示（ ）。 27.局部变量，在过程或函数区段的 begin 之前声明，在该（ )内部有效。28.数据模块也是一个窗体，专门用来放置各种（ ），作用是使用户界面与数据库组件分离便于管理维护。29.数据库，由若干表组成。在Delphi中，对于dBASE、FoxPro、Paradox 这三种数据
5、库系统，数据库对应于某一个（ ）。30.项目文件中 Application.Initialize; 语句的含义是（ ）。31.项目文件中 Application.Run; 语句的含义是（ )。二、简答题：（各小题分别为4、3、3、5、4分，共19分）01.程序设计的发展经历了哪4个阶段？ 02.面向对象程序设计中类和对象有哪3大特点？ 03.面向对象程序设计有哪3个基本步骤： 04.举出Object Pascal中的5种数据类型？ 05.Object Pascal中有哪4个布尔运算符？ 三、解释下列词语：（每小题1分，共15分）01.Try-Finally-End 02.StrToDate()
6、 03.ShowMessage() 04.IntToStr() 05.function 06.OpenPictureDialog 07.Length() 08.ColorDialog 09.SaveToFile()10.BitBtn 11.ComboBox 12.While-Do 13.OpenDialog 14.FontDialog 15.Caption 四、按行解释代码（前10行，每行1分，共10分）procedure TForm1.FormPaint(Sender: TObject); var x,y:integer; begin y:=0; while yform1.ClientHei
7、ght do begin x:=0; while xform1.ClientWidth do begin ImageList1.Draw(Canvas,x,y,ImageList1.tag); x:=x+ImageList1.Width; end; y:=y+ImageList1.Height; end; end;五、阅读代码回答问题（第1小题5分、第2小题5分，共10分）（1）从下段代码中能看出Form1上至少有什么组件？ procedure TForm1.Button1Click(Sender: TObject);begin OpenPictureDialog1.Filter :=*.bm
8、p|*.bmp; if OpenPictureDialog1.Execute then if FileExists(OpenPictureDialog1.FileName) then begin Label1.Caption :=OpenPictureDialog1.FileName; ListBox1.Items.Add(Label1.Caption); Image1.Picture.LoadFromFile(Label1.Caption); ListBox1.ItemIndex:=ListBox1.Items.count-1; end;end;（2）预测FNexclamation(7)的值
9、是什么？function TForm1.FNexclamation(n:integer):integer;var x,s: integer;begin s:=1; for x:=1 to n do s:=s*x; FNexclamation:=send;六、程序设计（第1小题10分、第2小题5分，共15分）（1）设计一个程序 切换显示 北京、伦敦、纽约 时间。 在窗体上添加 Timer1、GroupBox1 组件 在 GroupBox1 中 添加 Radiobutton1、Radiobutton2、Radiobutton3控件 设置 Radiobutton1 控件 Checked 属性 True 适当设置其他属性。 以上工作已完成，请写出Timer1组件的OnTimer事件代码：（2）在窗体上适当添加组件、更改属性、编写代码，要求输入 n 值， 输出 1！+2！+.+n! 的值。1
