Delphi程序设计复习资料

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

2、、在设计阶段，利用 Image 对象的属性，可以加载一幅图片。9、Delphi 中与 窗 体文件 对应的文 件是单 元文 件， 其 最常 用 的文件 扩展名是10、与数学表达式 sin(a 2b) ab对应的 Object Pascal 表达式是3 y211、调用主窗体的方法，可以结束程序关闭窗体。12、如果让界面上的一个按钮变为不可用，需要将它的属性设为 False。13、如果要在窗体上设计一个主菜单，首先要建立对象。14、与数学表达式2cos2 ( a b) a对应的 Object Pascal表达式是 a2 xy15、利用对象的 LineTo 等绘图方法，可以绘制基本图形。16、Radi

3、oGroup 对象中的单选按钮个数及名称是通过 属性来进行设置的。17、时钟组件 (Timer) 能有规律的以一定时间间隔触发事件，并执行该事件过程中的程序代码。为了使计时器控件 Timer1 每隔 0.5 秒就触发一次并执行事件代码，应将 Timer1 控件的 Interval 属性设置为 。18、Delphi 程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果 用户要查询数据库中的一条信息， 该指令通过用户界面组件发出， 经数据源组件到达数据集 组件。数据集组件利用 组件与数据库建立连接，并读取数据库中的数据，而 后又经过 组件将数据送到用户界面组件中显示。19、与数学表达式

4、2sin2 (a by)2axa 对应的 Object Pascal 表达式是20 、能够实现格式化输入的编辑框组件是 。21 、调用主窗体的 方法，可以结束程序关闭窗体。22 、如果让界面上的一个按钮在运行的时候变为不可见， 需要将它的 属性设为 False。23 、利用 DBGrid 的 属性，可以设置 DBGrid 每一列的标题和对齐方式等。24 、通过 Animate 对象的 属性设置，可以指定系统标准的 AVI 动画演示。25 、在 Delphi 集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象 查看器( Object Inspector )中的窗口直接进行设置。单项

5、选择题1、下面哪句话对 Delphi 的描述是正确的 A只能用于数据库客户端开发的工具 C Delphi 的编程语言是 Java)。B Delphi 的编程语言全部是面向过程的 D面向对象的可视化的开发环境A、命令按钮B、文本标签控件C、 Edit 控件3、表达式 60 19 div 2 的值是()A 67B79C 69D802、在 Delphi 中，建立一个文本编辑区域，可采用下列()。D、 Timer 控件4、一个 Delphi 应用程序必有一个()文件和至少一个单元文件。A) 执行程序 B) 项目 C) 数据D)图形5、最适合于在工具栏上放置的工具按钮是()A ButtonB Radio

6、ButtonCSpeedButtonD BitBtm6、Delphi 应用程序设计基于()语言。A) Basic B) C+ C) Pascal D) Object Pascal7、下列表达式中()不是布尔表达式。A) A=3B) A div BC) A and BD) AB8、“ x 是小于 100 的非负数”的 Object Pascal 表达式是()。A0 x = 0, x=0) AND (x = 0 ) OR (x=5) OR (x”、“ ; eq := = ; lt := y) thenedit3.Text:= edit1.Text + gt + edit2.Textelse if

7、(x=y) then edit3.Text:= edit1.Text + eq + edit2.Textelse edit3.Text:= edit1.Text + + edit2.Text;end;4、 本程序根据用户选择的运算符对输入的二个操作数进行运算， 并显示运算结果。 设计界 面和运行界面如图所示。其中，运算符是一个含有 4 个单选按纽的 RadioGroup1 对象。面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。procedure TForm1.Button1Click(Sender: TObject);/ 运算 varx1,x2,y :Integer;begin

8、x1 := StrToInt( Edit1.);x2 := StrToInt( Edit2.);Case .ItemIndex of0:y := x1+ x2 ;1:y := x1- x2;2:y := x1* x2;3:y := x1Div x2;End;Edit3. := IntToStr( ); end;5、本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示：该程序涉及到数据库中的两张表：books（图书信息）和 borrow（借书记录） 。表的结构为：books（ bno ，书号， bname 书名， num 现有册数）borrow （ rno 读者号， bno 书号，

9、rdate 还书日期） 其中， rno 和 bno 都是字符型（ 3 位）。在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在 borrow 表中插入一条借书记录，并将 books 表中该书现有册数减 1。该界面要实现以下合法性检查：当该读者已经借了此书，不能再借。当所借的书现有册数为 0，不能再借。在 Form1 上建立的数据库组件对象及连接关系如下：Database1Table1（与 books 表相连） DataSource1 DBGrid1 （显示图书信息）Database1Table2 （与 borrow 表相连，用于插入借书记录）Database1Quer

10、y1其中为 Table1 建立了 3 个永久字段： Table1bno（书号）、Table1bname（书名）、Table1num 现有册数） 。Query1 的 SQL 语句如下：select bnofrom borrowwhere rno = :rno and bno = :bno面是 Unit1 的代码实现部分，请完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“借书”键beginquery1.Close ; query1.ParamByName(rno).Value := ; q

11、uery1.ParamByName(bno).Value := ;query1.Open ;if query1bno null thenbegin showmessage(该读者正在借阅此书 ); exit ;end ;if thenbegin showmessage(该书已全部借出 ); exit ;end;table2. ( edit1.Text , table1bno.Value , date+15 ); / 插入借书记录table1. ;table1num.Value := table1num.Value - 1 ; / 现有册数减 1 table1.Post ;end;end.6、本

12、程序的功能是实现对 dep 表（系） student 表（学生）的主从查询。用户可以依次查询系的记录， 也可以通过指定系号， 查找并定位到指定的记录。 每当显示一个系的记录后，系统自动显示该系的学生记录。设计界面和运行界面如下：在 Form1 上建立的主要对象及连接如下：Database1Table1（与 dep表相连） DataSource1DBEdit1 DBEdit3 Database1Query1 DataSource2 DBGrid1 （显示学生信息）Edit1 、 Button1 （查找）、 Button2 （下一记录） 、 Button3 （上一记录）等。 Query1 的 SQ

13、L 语句是：select *from studentwhere dno = :dno面是 Unit1 单元的代码实现部分，请完成程序填空。implementation$R *.dfmprocedure TForm1.Button2Click(Sender: TObject); / 下一记录 begintable1. ;end;procedure TForm1.Button3Click(Sender: TObject); / 上一记录 begintable1. ;end;procedure TForm1.Button1Click(Sender: TObject); / 查找 begintable

14、1. (dno,edit1.Text,) ;end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet); beginquery1.Close ; query1.ParamByName(dno).Value := query1. ;end;end.7、本程序由主窗体 form1 和子窗体 form2 组成，设计界面如下图所示：主窗体 Form1 上建立的对象有 Panel1、 MediaPlayer1 、OpenDialog1 、 Button1 （打开文 件）、 Button2 （播放）、 Button3 （暂停）、Button4 （退出

15、）。子窗体 Form2 上建立的对象有 Label1、 BitBtm1 （ Yes）、 BitBtm2 （ No）。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击 “播放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。单击“退出”按钮，会弹出确认对话框（Form2 ）。如果用户按“ Yes”键，程序结束；如果按“ No”键，返回主窗体。下面是 Unit1 的代码部分，请在下划线处完成程序填空。implementation$R *.dfmuses;procedure TForm1.Button1Click(Sender: TObject); /打开文件 beg

16、inif thenbeginMediaPlayer1.FileName := ; MediaPlayer1.Open ;MediaPlayer1.Display := Panel1; / 将 Panel1 做为播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panel1.Width,Panel1.Height); end ;end;procedure TForm1.Button2Click(Sender: TObject); / 播放 beginMediaPlayer1. ;end;procedure TForm1.Button3Click(Sender: T

17、Object); / 暂停 beginMediaPlayer1.Pause ;end;procedure TForm1.Button4Click(Sender: TObject); /退出 beginif = mrYes thenclose ;end;end.本程序实现一个简单的选课界面。设计界面和运行界面如下图所示：该程序涉及到数据库中的两张表：course（课程表）和 sc（选课表），表结构如下：sc（ sno 学号， cno 课程号， grade 成绩） course（ cno 课号， cname课名， quota 名额） 其中： sno 和 cno 都是字符型。在用户界面，操作员选中一

18、门书、输入学号后，按“选课”键，完成选课功能，即在 sc 表中插入一条选课记录，并将 course 表中该课程的名额减 1。该界面要实现以下合法性检查：当该学生已经选过此课，不能再选。当所选课程名额已为 0，不能再选。在 Form1 上建立的数据库组件对象及连接关系如下：Database1Table1 （与 course 表相连） DataSource1 DBGrid1 （显示课程信息）Database1Table2（与 sc 表相连，用于插入选课记录） Database1Query1 其中为 Table1 建立了 3 个永久字段： Table1cno（课程号）、Table1cname（课程名

19、） 、Table1quota(名额)。Query1 的 SQL 语句如下： select cnofrom scwhere sno = :sno and cno = :cno面是 Unit1 的代码实现部分，请完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /“选课”键 beginquery1.Close ; query1.ParamByName(sno).Value := query1.ParamByName(cno).Value := query1.Open ;if query1cno

20、null then beginshowmessage(已选过此课 );exit ;end ;if then beginshowmessage(没有名额 );exit ;end;table2. ( edit1.Text , table1cno.Value , null ); table1.Edit ;table1quota.Value := table1quota.Value - 1 ; / 名额减 1table1. ;end;end.9、本程序由主窗体 form1 和子窗体 form2 组成，设计界面如下图所示：主窗体上建立的对象有 Panel1、 Animate1 、Button1（加载 A

21、VI 文件）、Button2 （退出）、 Button3 （播放）、Button4 （停止）和 OpenDialog1 。子窗体上建立的对象有 Label1 、 BitBtm1 （ Yes）、 BitBtm2 （ No）。单击“加载 AVI 文件”按钮，会弹出打开文件对话框。用户指定一个 .avi 的文件后，动 画文件加载到 Animate1 显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停 止播放。单击“退出”按钮，会弹出确认对话框（Form2 ）。如果用户按“ Yes”键，程序结束；如果按“ No”键，返回主窗体。下面是 Unit1 的代码部分，请在下划线处完成程序填空。impl

22、ementation$R *.dfmuses;procedure TForm1.Button1Click(Sender: TObject); / 加载 AVI 文件 beginif thenanimate1.FileName := ; end;procedure TForm1.Button2Click(Sender: TObject); / 退出 beginif = mrYes thenclose ;end;procedure TForm1.Button3Click(Sender: TObject); / 播放 beginanimate1.Play(1,animate1.FrameCount,

23、0) ;end;procedure TForm1.Button4Click(Sender: TObject);/停止beginanimate1. ;end;end.五、编程题1某俱乐部实行会员注册收费， 每位会员按整月每月收费 500 元整。但是对注册时期较长 的会员有价格优惠。规则如下：注册 6 个月以下（含 6 个月）每月收费金额不变， 6 至 12 个月实行 9折收费， 12个月以上（不含 12 个月） 8折收费。编程在“注册月数”框中输入 会员欲注册的月数， 单击“计算” 按钮后在 “应收金额” 框中显示应收会费总钱数。 单击“结 束”按钮结束程序。本程序设计界面及运行界面如下：请编写

24、单击“计算” (Button1 )按钮的事件处理程序。 procedure TForm1.Button1Click(Sender: TObject);begin end;procedure TForm1.Button2Click(Sender: TObject); beginClose;end;2某厂对使用的原材料钢筋进行用前检测。要求输入钢筋的直径进行检查。标准品为 10.0 毫米直径。实际产品的直径与标准品之间的误差为 0.5 毫米以下（含 0.5 毫米）的都认为 是合格的，提示“检测为合格品” 。否则提示“检测为废品” 。本程序设计界面及运行界面如下：请编写单击“检测” （Button1

25、 ）按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);end;procedure TForm1.Button2Click(Sender: TObject); beginClose;end;输入一个数字，程序判断如下情况：如果能被 3 整除但同时不能被 5 整除，显示“该数 只能被 3整除”；如果只能被 5整除但是不能被 3整除，显示“该数只能被 5整除”, 若被 3 整除同时被 5 整除，显示“该数可以同时被 3、5 整除”。 本程序设计界面及运行界面如下：请编写单击“判断” (Button1 )按钮的事件处理程序。 proced

26、ure TForm1.Button1Click(Sender: TObject);end;4本程序设计界面及运行界面如下图所示。该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2 ）内分别输入两个正整数M 和N （ M N ），单击“计算”按钮（ Button1 ），程序求出 M N 之间所有能被 3整除 的数，并在 Memo 1 对象中依次显示。请编写单击“计算”按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);begin试题参考答案一、填空题1、分支2、方法 事件3、 sqr(sin(x+y) / sin(sqr

27、(x) + sqr(y)5、 一6、事件7、.dpr ( 或 dpr)8、 Picture9、PAS10、 sin(a+b) /(3+ sqr(y)-a*b或 sin(a+b)/(3+y*y)-a*b11、Close 12、Enabled13、 MainMenu 14、sqr(cos(a+b) /(sqr(a)+x*y)+a或cos(a+b) * cos(a+b) /(a*a+x*y)+a15、Canvas 16、Items 17 、 OnTimer ，500 18、数据库 连 接组 件 数据源 组 件 19、 sqr(sin(a+b*y) /(sqr(a)*x)+a 或 sin(a+b*y)

28、 *sin(a+b*y) /(a*a*x)+a21、 Close22、Visible23、 Columns24、CommonA VI25、属性 或 Properties、单项选择题1、D2、C3、C4、B5、C6、D7、B8、C9、A10、C11、D12、C13、C14、 B15、D16、A17、C18、D19、A20、C21、B22、 D23、D24、C25、C26、D27、C28、D29、A30、B31、C三、判断题1、 6、11、2、3、4、5、7、8、9、10、12、13、14、15、四、程序填空题1、) Column Items Text ItemIndex Items2、 True

29、 DataSource1 Table1 DataSource1 sname3、 strtoint Checked lt Text else RadioGroup1y text5、 edit1.Text table1bno.Value table1num.Value = 0 InsertRecord Edit6、 Next Prior Locate table1dno Open7、 unit2 opendialog1.Execute opendialog1.FileName Play form2.ShowModal8、 True True Table1 DataSource1 DataSource19、