Delphi程序设计复习资料

1、Delphi程序设计复习题一、填空题1、结构化程序设计的基本原则是取消goto语句，程序中仅采用顺序、 和循环三种控制结构。2、一个对象是由属性、方法和事件所组成。属性表示对象中的数据， 是对象能够执行的动作， 是能够引起对象反应的条件。3、与数学表达式 对应的Object Pascal表达式是 。4、ListBox对象列表框中的内容是通过 属性来进行设置的。5、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 个入口和一个出口。6、对象的三个要素是属性、方法和 。7、Delphi应用程序中项目文件的扩展名是 。8、在设计阶段，利用Image对象的 属性，可以加载

2、一幅图片。9、Delphi中与窗体文件对应的文件是单元文件，其最常用的文件扩展名是 *. 。10、与数学表达式 对应的Object Pascal表达式是 。11、调用主窗体的 方法，可以结束程序关闭窗体。12、如果让界面上的一个按钮变为不可用，需要将它的 属性设为False。 13、如果要在窗体上设计一个主菜单，首先要建立 对象。14、与数学表达式 对应的Object Pascal表达式是 。15、利用 对象的LineTo等绘图方法，可以绘制基本图形。16、RadioGroup对象中的单选按钮个数及名称是通过 属性来进行设置的。17、时钟组件(Timer)能有规律的以一定时间间隔触发 事件，并

3、执行该事件过程中的程序代码。为了使计时器控件Timer1每隔0.5秒就触发一次并执行事件代码，应将Timer1控件的Interval属性设置为 。18、Delphi 程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组件。数据集组件利用 组件与数据库建立连接，并读取数据库中的数据，而后又经过 组件将数据送到用户界面组件中显示。 19、与数学表达式 对应的Object Pascal表达式是 。20、能够实现格式化输入的编辑框组件是 。21、调用主窗体的 方法，可以结束程序关闭窗体。22、如果让界面上的一

4、个按钮在运行的时候变为不可见，需要将它的 属性设为False。23、利用DBGrid的 属性，可以设置DBGrid每一列的标题和对齐方式等。24、通过Animate对象的 属性设置，可以指定系统标准的AVI动画演示。25、在Delphi集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象查看器（Object Inspector）中的 窗口直接进行设置。二、单项选择题1、下面哪句话对Delphi的描述是正确的 （ ）。A只能用于数据库客户端开发的工具 BDelphi的编程语言全部是面向过程的 CDelphi的编程语言是Java D面向对象的可视化的开发环境2、在Delphi中，建立一

5、个文本编辑区域，可采用下列（ ）。A、命令按钮B、文本标签控件C、Edit控件D、Timer控件3、表达式 60 19 div 2 的值是（ ）A 67 B 79C 69D 804、一个Delphi应用程序必有一个（ ）文件和至少一个单元文件。A) 执行程序 B) 项目 C) 数据 D)图形5、最适合于在工具栏上放置的工具按钮是（ ）AButton BRadioButtonCSpeedButton DBitBtm 6、Delphi应用程序设计基于（ ）语言。 A) Basic B) C+ C) Pascal D) Object Pascal7、下列表达式中（ ）不是布尔表达式。A) A=3 B

6、) A div B C) A and B D) A>B8、“x 是小于100的非负数”的Object Pascal表达式是（ ）。A0 x < 100 B x >= 0, x<100 C(x >=0) AND (x < 100)D (x >= 0 ) OR (x<100)9、利用Image对象的哪个属性设置，可以使加载的图像自动放大或缩小，以适应Image的显示区域（ ）AStretch BAutoSizeCAlign DCenter10、工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是（ ）A将SpeedButt

7、on按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为True。B将SpeedButton按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为False。C将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为True。D将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为False。11、要改变一个对象的高度，应使用属性（ ）。A、FontB、ForcColorC、NameD、Height12、表达式 30 19 div 2 的值是（ ）A 37 B 49C

8、 39D 4013、下列合法的变量名是（ ）。A、na + eB、e- 3rC、r_3D、5we14、利用对象监视器可以设置窗体或组件的（ ）。A) 方法 B) 属性 C) 外观 D )执行代码15、Delphi程序设计的基本特点是（ ）。A 可视化程序设计 B 代码程序设计 C 事件驱动编程 D A和C16、修改窗体的标题时，应当在属性页中设置的属性是（ ）。ACaption B NameC TextD Label17、下列说法错误的是 ( )A) 窗体文件的扩展名为.dfmB) 一个窗体对应一个窗体文件C) Delphi中的一个工程只包含一个窗体D) .dpr和.pas 是备份文件，便于用

9、户恢复到较早的一个项目版本。18、要改变一个对象的高度，应使用属性（ ）。A、FontB、ForcColorC、NameD、Height19、工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右对齐”），它们的GroupIndex属性正确的设置是（ ）AGroupIndex属性值都为0 BGroupIndex属性值非0，且互不相同CGroupIndex属性值非0，且相同 DGroupIndex属性值互不相同20、以下叙述中错误的是（ ）A 一个项目包含不止一种类型的文件。B 窗体的Show方法的作用是显示该窗体。C 窗体的Hide方法和Release方法的作用完全相同。D 若项目

10、文件中有多个窗体，可以根据需要指定一个窗体为主窗体。21、编辑框（Edit）中的文本发生改变时引发的事件是（ ）AAutoSize BOnChange CSetFocus DSetText22、现建立一个简单报表，要求其中要包含报表的汇总栏，则在Bands属性的子属性中，需要选择的是（ ）AColumnHeader BDetailCTitle DSummary 23、如果要检查edit编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查（ ）AOnClick BOnEnterCOnMouseUp DOnKeyPress 24、数据库组件中，提供了对数据库读写操作功能的核心组件是（ ） A数

11、据源组件 B用户界面组件 C数据集组件 D数据感知控件25、下列常用的数据组件中，只需指定DataSource而不需指定DataField的控件是哪个？（ ）A、DBText B、DBEdit C、DBNavigator D、Query26、下列说明错误的是（ ）A、 OpenDialog是打开文件对话框。B、 Edit组件的Clear方法是清除编辑框中的内容C、 CheckBox控件是通过Checked属性确定选择状态D、 按钮组件的属性Name设置为“确定”，则按钮上文本显示为“确定”27、下列说法正确的是（ ）A组件必须是可视的，这样用户才能使用。 BDelphi中组件就是控件，二者是完

12、全相同的。 C控件都是可视的。 D按钮（Button）是组件，而窗体(Form)则不是组件。28、以下能够触发编辑框（Edit）组件OnChange事件的操作是（ ）A 鼠标单击编辑框B 鼠标双击编辑框C 在编辑框中选择文本 D 在编辑框中输入文本29、要改变控件的宽度，应改变控件的（ ）属性。A、widthB、heightC、topD、left30、只能输出、而不能输入的数据感知控件是（ ）ADBEdit BDBTextCDBRadioGroup DDBCheckBox31、任何控件都有的属性是（ ）A) BackColorB) CaptionC) NameD) BorderStyle 三、

13、判断题，请给下列论述中正确的打上“”，错误的打上“´”1、() 函数int(2.718) = 2.0 计算是正确的。2、（ ）Delphi是面向对象的可视化的开发环境，编程语言采用Object C。3、() 要想在数据集中增加计算字段，必须先将数据集的字段全部置为动态字段。4、() 结构化程序设计要求采用自顶向下、逐步求精的设计方法和单入口、单出口的控制结构。5、() 在Delphi环境中，组件页上的组件是“对象”的概念，在窗体上建立的按钮是“类”的概念。6、() 一个Table对象不能同时指定与之相连的两个关系表。7、（ ）在Delphi环境中，组件板上的组件就是类的概念，例如按钮

14、组件就是按钮类。而用户在窗体上创建的一个按钮就是对象的概念（按钮对象）。8、() 要想在数据集中增加计算字段，必须先将数据集的字段全部置为动态字段。9、()时钟Timer组件的时间间隔是由Interval属性控制，例如其值为1000时表示时间间隔是1秒。10、( ) Delphi中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型。11、() 4ABC 可作为Delphi的变量名。12、( )在一个项目中，第一个建立的窗体固定就是主窗体，并且再也不设置其他窗体为主窗体。13、() 在Data Controls组件页上，只有DBNavigator组件可以不用指定DataField属性值。14、

15、( ) 建立永久字段的好处是：可以在设计阶段对字段对象进行设置，并可以增加新的字段（计算字段和查找字段）。15、() ( (x>=5) OR (x<=-5) ) AND ( x in 1.9 ) 当x=10时，表达式的值为假（或false）四、程序填空题1、应用程序的用户界面如下图所示：功能说明：该界面是一个教师信息录入界面。用户在编辑框（Edit1）中输入姓名，利用单选按钮（RadioGroup1）指定性别，利用组合框（ComboBox1）选择或直接输入所在系，利用列表框（ListBox1）指定职称。当输入完上述信息后，单击“确定”按钮，教师信息将显示在右边的Memo1编辑窗口中

16、。下面是开发过程，请完成填空部分：通过RadioGroup1的Items属性设置两个单选按钮（“男”和“女”），并将属性 设置为2（按钮摆两列）。通过ComboBox1的 属性设置下拉选单中的系名。通过ListBox1的Items属性设置列表框中的职称列表。“确定”按钮的单击事件处理程序如下：procedure TForm1.Button1Click(Sender: TObject);begin memo1.Lines.Add(edit1. ); /加入编辑框的内容 if radiogroup1. = 0 then /判断选择了哪个按钮 memo1.Lines.Add('男')

17、 else memo1.Lines.Add('女') ; memo1.Lines.Add(combobox1.Text); /加入系的文本 memo1.Lines.Add( listbox1. listbox1.itemindex ); /加入职称end;2、数据库mydb中有关系表student，其结构如下：student（sno学号，sname姓名，sex性别，birthday生日）现编写一个学生信息浏览程序，设计界面和运行界面如下图所示： 在下划线处填写相应数据库组件的属性值：Database1. DatabaseName : mydb Table1. DatabaseN

18、ame : mydb Table1. TableName : studentTable1. Active : Datasource1.DataSet : DBNavigator1. DataSource : DBEdit2. DataSource : DBEdit2. DataField : 3、下图是本程序的设计界面（左）和运行界面（中、右）： 在form1上建立的对象有：Edit1Edit3、Button1（确定）和CheckBox1等。该程序实现两个整数的大小比较。用户输入两个整数，按“确定”键后，比较结果显示在Edit3中。如果“汉字”复选框选中，比较结果采用“大于”、“小于”、“等于

19、”；否则比较结果采用“>”、“<”、“=”（如图所示）。下面是单击“确定”按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);var x,y : integer ; gt,eq,lt : string ;begin x := (edit1.Text); /取得输入值 y := strtoint(edit2. ); if checkbox1. then begin gt := ' 大于 ' ; eq := ' 等于 ' ; lt := ' 小于 ' ; end begin g

20、t := ' > ' ; eq := ' = ' ; lt := ' < ' ; end ; if (x>y) then edit3.Text:= edit1.Text + gt + edit2.Text else if (x=y) then edit3.Text:= edit1.Text + eq + edit2.Text else edit3.Text:= edit1.Text + + edit2.Text;end;4、本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界面和运行界面如图所示。其中，运

21、算符是一个含有4个单选按纽的RadioGroup1对象。 下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。-procedure TForm1.Button1Click(Sender: TObject);/运算var x1,x2,y :Integer;begin x1 := StrToInt( Edit1. ); x2 := StrToInt( Edit2. ); Case .ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. := Int

22、ToStr( );end;5、本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示： 该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为：books（bno，书号，bname书名，num现有册数）borrow（rno 读者号，bno书号，rdate还书日期）其中，rno和bno都是字符型（3位）。在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书现有册数减1。该界面要实现以下合法性检查：l 当该读者已经借了此书，不能再借。l 当所借的书现有册数为0，不能再借。在

23、Form1上建立的数据库组件对象及连接关系如下：Database1Table1（与books表相连）DataSource1DBGrid1（显示图书信息）Database1Table2（与borrow表相连，用于插入借书记录）Database1Query1其中为Table1建立了3个永久字段：Table1bno（书号）、Table1bname（书名）、Table1num（现有册数）。Query1的SQL语句如下：select bnofrom borrowwhere rno = :rno and bno = :bno下面是Unit1的代码实现部分，请完成程序填空：-implementation$R

24、 *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“借书”键begin query1.Close ; query1.ParamByName('rno').Value := ; query1.ParamByName('bno').Value := ; query1.Open ; if query1'bno' <> null then begin showmessage('该读者正在借阅此书'); exit ; end ; if then begin showme

25、ssage('该书已全部借出'); exit ; end; table2. ( edit1.Text , table1bno.Value , date+15 ); /插入借书记录 table1. ; table1num.Value := table1num.Value - 1 ; / 现有册数减1 table1.Post ;end;end.-6、本程序的功能是实现对dep表（系）student表（学生）的主从查询。用户可以依次查询系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统自动显示该系的学生记录。设计界面和运行界面如下： 在Form1上建立

26、的主要对象及连接如下：Database1Table1（与dep表相连）DataSource1DBEdit1DBEdit3Database1Query1DataSource2DBGrid1（显示学生信息）Edit1、Button1（查找）、Button2（下一记录）、Button3（上一记录）等。Query1的SQL语句是：select *from studentwhere dno = :dno下面是Unit1单元的代码实现部分，请完成程序填空。-implementation$R *.dfmprocedure TForm1.Button2Click(Sender: TObject); /下一记录

27、begin table1. ;end;procedure TForm1.Button3Click(Sender: TObject); /上一记录begin table1. ;end;procedure TForm1.Button1Click(Sender: TObject); /查找begin table1. ('dno',edit1.Text,) ;end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet);begin query1.Close ; query1.ParamByName('dno').Va

28、lue := ; query1. ;end;end.-7、本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体Form1上建立的对象有Panel1、MediaPlayer1、OpenDialog1、Button1（打开文件）、Button2（播放）、Button3（暂停）、Button4（退出）。子窗体Form2上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。单击“退出”按钮，会弹出确认对话框（Form2）。

29、如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。-implementation$R *.dfmuses ;procedure TForm1.Button1Click(Sender: TObject); /打开文件begin if then begin MediaPlayer1.FileName := ; MediaPlayer1.Open ; MediaPlayer1.Display := Panel1; /将Panel1做为播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panel1.Wi

30、dth,Panel1.Height); end ;end;procedure TForm1.Button2Click(Sender: TObject); /播放begin MediaPlayer1. ; end;procedure TForm1.Button3Click(Sender: TObject); /暂停begin MediaPlayer1.Pause ;end;procedure TForm1.Button4Click(Sender: TObject); /退出begin if = mrYes then close ;end;end.-8、本程序实现一个简单的选课界面。设计界面和运行

31、界面如下图所示： 该程序涉及到数据库中的两张表：course（课程表）和sc（选课表），表结构如下：sc（sno 学号，cno课程号，grade成绩）course（cno课号，cname课名，quota名额）其中：sno和cno都是字符型。在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在sc表中插入一条选课记录，并将course表中该课程的名额减1。该界面要实现以下合法性检查：l 当该学生已经选过此课，不能再选。l 当所选课程名额已为0，不能再选。在Form1上建立的数据库组件对象及连接关系如下：Database1Table1（与course表相连）DataSourc

32、e1DBGrid1（显示课程信息）Database1Table2（与sc表相连，用于插入选课记录）Database1Query1其中为Table1建立了3个永久字段：Table1cno（课程号）、Table1cname（课程名）、Table1quota（名额）。Query1的SQL语句如下：select cnofrom scwhere sno = :sno and cno = :cno下面是Unit1的代码实现部分，请完成程序填空：-implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“选课”键begin

33、 query1.Close ; query1.ParamByName('sno').Value := ; query1.ParamByName('cno').Value := ; query1.Open ; if query1'cno' <> null then begin showmessage('已选过此课'); exit ; end ; if then begin showmessage('没有名额'); exit ; end; table2. ( edit1.Text , table1cno.V

34、alue , null ); table1.Edit ; table1quota.Value := table1quota.Value - 1 ; /名额减1 table1. ;end;end.-9、本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.

35、avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。-implementation$R *.dfmuses ;procedure TForm1.Button1Click(Sender: TObject); /加载AVI文件begin if then animate1.FileName := ; end;procedure TForm1.Button2Click(Send

36、er: TObject); /退出beginif = mrYes then close ;end;procedure TForm1.Button3Click(Sender: TObject); /播放begin animate1.Play(1,animate1.FrameCount,0) ;end;procedure TForm1.Button4Click(Sender: TObject); /停止begin animate1. ;end;end.五、编程题1某俱乐部实行会员注册收费，每位会员按整月每月收费500元整。但是对注册时期较长的会员有价格优惠。规则如下：注册6个月以下（含6个月）每月

37、收费金额不变，6至12个月实行9折收费，12个月以上（不含12个月）8折收费。编程在“注册月数”框中输入会员欲注册的月数，单击“计算”按钮后在“应收金额”框中显示应收会费总钱数。单击“结束”按钮结束程序。本程序设计界面及运行界面如下： 请编写单击“计算”（Button1）按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject); begin end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end; 2某厂对使用的原材料钢筋进行用前检测。要求输入钢筋的直径进行检查

38、。标准品为10.0毫米直径。实际产品的直径与标准品之间的误差为±0.5毫米以下（含0.5毫米）的都认为是合格的，提示“检测为合格品”。否则提示“检测为废品”。本程序设计界面及运行界面如下： 请编写单击“检测”（Button1）按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject); begin end;procedure TForm1.Button2Click(Sender: TObject);begin Close;end;输入一个数字，程序判断如下情况：如果能被3整除但同时不能被5整除，显示“该数只能被3整除”；如果只能被

39、5整除但是不能被3整除，显示“该数只能被5整除”, 若被3整除同时被5整除，显示“该数可以同时被3、5整除”。本程序设计界面及运行界面如下： 请编写单击“判断”（Button1）按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject); begin end;4本程序设计界面及运行界面如下图所示。 该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N （ M < N），单击“计算”按钮（Button1），程序求出M N 之间所有能被3整除的数，并在Memo 1对象中依次显示。请编写单击“计算”按

40、钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);begin试题参考答案一、填空题1、分支 2、方法 事件 3、sqr(sin(x+y) / sin(sqr(x) + sqr(y) 5、 一 6、事件 7、.dpr (或dpr) 8、 Picture 9、PAS 10、sin(a+b) /(3+ sqr(y)-a*b 或 sin(a+b)/(3+y*y)-a*b 11、Close 12、Enabled 13、 MainMenu 14、sqr(cos(a+b) /(sqr(a)+x*y)+a 或 cos(a+b) * cos(a+b)

41、 /(a*a+x*y)+a 15、Canvas 16、Items 17、 OnTimer ，500 18、数据库连接组件 数据源组件 19、sqr(sin(a+b*y) /(sqr(a)*x)+a 或 sin(a+b*y) * sin(a+b*y) /(a*a*x)+a 21、 Close 22、Visible 23、 Columns 24、 CommonAVI 25、属性 或 Properties二、单项选择题1、 D 2、C 3、C 4、B 5、 C 6、D 7、B 8、C 9、A 10、C 11、D 12、C 13、C 14、 B 15、D 16、A 17、C 18、D 19、A 20、C 21、 B 22、 D 23、D 24、C 25、 C 26、D 27、C 28、D 29、A 30、B 31、C 三、判断题1、 2、´ 3、´ 4、 5、 6、 7、 8、´ 9、 10、 11、´ 12、 ´ 13、 14、 15、 四、程序填空题1、） Column Items Text It