delphi期末考试试题.pdf

《delphi期末考试试题.pdf》由会员分享，可在线阅读，更多相关《delphi期末考试试题.pdf（10页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、 Delphi程序设计试卷1.一 个Delphi应用程序必有一个 文件和至少一个单元文件。A.程序 B.工程 C.数据 D.图形2.在窗体中完成多个控件整齐排列，应使用何种操作？A.Align B.Bring to front C.Scale D.Send to back3.form（窗体）的OnCreate事件在何时触发？.A.窗体关闭 B.窗体建立 C.窗体隐藏 D.窗体活动4.下列哪种属性可以设置窗体无最大化、最小化和关闭图标？A.bordericons B.formstyle C.visible D.enabled5.下列哪个属性决定控件的可见和不可见？A.Color B.Formst

2、yle C.Visible D.Enabled6.所有可视化的VCL控件都是从哪一个基类派生而来的？A.Tcontrol B.TwidgetControl C.TwinControl D.TwindowControl7.Delphi中，是特殊的单元文件，可理解为主单元文件，或者说主程序，而其它的单元文件可以看作是被其所调用的子程序。A.窗体文件 B.项目文件 C.资源文件 D.配置文件8.下列哪个属性是控制窗体标题的属性？A.Formstyle B.Caption C.Font D.Enabled9.下列哪种类型的常量不能用来定义子界类型?A.实 型 数 据（Real）B.用户定义的任何顺序类

3、型C.字 符 型（Char）D.整 型（Integer）10.下 列 变 量 命 名 正 确 的 是。A.7ABC B.Program?C.page21 D.program11.如果要检查edit编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查0A.OnClick B.OnEnter C.OnMousellp D.OnKeyPress12.以下哪个函数是输入对话框函数？oA.inputbox B.messagebox C.messagedig D.showmessage13.下列对象不能响应Click事件的是。A.列表框 B.图片框 C.窗体 D.计时器14.已知对话框函数 Messa

4、geDlgPos（ConstMsg:String;DlgType:TmsgDlgType;Buttons:TmsgDlgButtons;HelpCtx:longint;X,Y:lnteger）:Word.问:DlgType取何值时，会出现感叹号？。A.mtwarning B.mtconfirmation C.mtlnformation D.mtCustom15.关于变量，下列说法错误的是：0A.全局变量与局部变量名相同时，在过程之外是全局变量作用B.全局变量与局部变量名相同时，内部是局部变量作用C.全局变量与局部变量名相同时，在过程之外全局变量无作用D.全局变量与局部变量名相同时，在过程之外是

5、全局变量作用而在内部是局部变量作用16.Delphi 的 单 元(U n it)包含 Interface#Implementation 两部分，所有函数和过程的实现代码都放在Implementation部分。放 在 Interface部分。A.如果函数或过程需要被别的单元调用，其声明必须B.函数和过程的声明可以放在任何部分，但类型、常量和变量的定义必须C.所有类型、常量和变量的定义及函数和过程的声明都要D.除了单元内部调用的常量和变量之外，其余定义和声明都17.procedure和 function的结构和功能相似，。A.前者可以取代后者 B.后者可以取代前者C.但前者有返回值，后者没有 D.

6、二者都可以返回一个值18.函数的参数在声明时如果带var前缀，oA.调用时必须在相应位置放个地址指针B.调用时必须在相应位置放一个整数C.可以在函数中改变参数的值，并回传给调用方D.函数中只能访问其地址指针，得不到参数值19.下列说法正确的是：oA.函数只能出现在表达式中B.函数不能出现在表达式中C.函数不仅可以出现在表达式中，也可以以其他方式出现D.函数在同一表达式中不能出现多次20.下列过程首部定义正确的是：oA.procedure fun1(k,s:real;n:integer);B.procedure fun1(k:real,s:real,n:integer);C.procedure

7、fun1(k;s:real,n:integer);0.procedure fun1(real:k;s,integer:n);21.已 知 Var a:arraya.e,1.8 of re al;则数组a 中包含的元素的个数为=A.5 B.20 C.40 D.1122.动 态 数 组 与 静 态 数 组 的 区 别 是 oA.是否是一维数组 B.元素类型是否是整型C.定义时是否明确了数组元素的个数 D.元素类型是否一致2 3,用于建立菜单项的下划线快捷方式的字符是：。A-B.#C.&D.24.组合框ComboBox中的数据在哪个属性中添加？。A.Text B.Items C.DragDownCo

8、unt D.Sorted25.利 用 Image对象的 属性设置，可以改变Image的大小，以适应加载的图像大小。A.Stretch B.AutoSize C.Align D.Center26.在绘制封闭图形时，要想使它的填充色为某一指定颜色，应设置Tcanvas对象的 属性A.pen.color B.brush.color 0.pen.style D.bursh.style27.BDE的中文含义是，它是数据库应用中的一种连接方法。A.数据库连接 B.数据库引擎 C.开放式数据库 D.数据库文件28.Eof表明当前记录指针所处的位置是：。A.数据集的最后一个记录 B.数据集的第一个记录C.数据

9、集的中间记录 D.不确定29.要使Tquery组件的SQL语句执行后返回结果集，应调用Tquery组件的方法。A.add B.open C.execsql D.open 和 execsql30.找出下列异常处理中错误的说法？oA.在try.except.end语句中，正常情况下except后面的语句会被执行B.ffi try.except.end语句中，异常情况下except后面的语句会被执行C.在try.finally.end语句中，正常情况下finally后面的语句会被执行D.在try.finallyend语句中，异常情况下finally后面的语句会被执行得分 评卷入 二、填空题（每空0.

10、5分，共10分）1.Delphi的复合语句是由 和 之间的多个语句组成的。2.程序运行时、要求窗体的某个按钮不再响应鼠标单击操作，可将其 属性设置为 即可。3.组件分为 和 两大类，其中在程序设计是以 方式出现在窗口中，运行时被隐蔽地嵌入到窗口中，与摆放位置无关。4.当程序运行时，要求窗体中的文本框初始状态呈现空白，可在设计阶段时，将此文本框的 属性设置成 O5.Delphi提供了打开文件对话框组件,用来显示一个“打开”对话框，在程序中使用 方法来激活一。6.TForm的 和 两种方法均触发OnShow事件。7.RadioGroup对象的单选按钮个数及名称是通过 属性来进行设置的。8.调 用T

11、able组件的 方法或 方法可使数据表进入插入模式。9.TQuery对象存储一条Update语句，执行时要调用Query的 方法。10.对象是类的,它与类之间是一种变量和变量类型的关系。11.TDatasource组件是通过 属性与TTable组件建立联系的。12.TADOConnection组件的 属性决定当连接一个数据库时是否出现一个登录对话框。得分评卷人三、多 项 选 择 题(从备选答案中选出全部正确答案,将其题号填入括号内，每小题1 分，共 1 0 分)1.Delphi支持的3 种注释方法是：。A.B.(*)C./D.2.下列实数中合法的是。A.0.25E+02 B.25+2 C.25

12、E+2 D.34.53.以下不可以由用户输入编辑文本组件 oA.TEdit B.TMemo C.T1 istbox D.Tlabel4.下列子界类型定义合法的是。A.TYPE a=10.10;B.TYPE b=10.5;C.TYPE c=0.SQRT(IO);D.TYPE d=10.20;5.以 下 关 于 事 件 的 说 法 正 确 的 是。A.不一定要响应某个组件所定义的所有事件B.多个组件可以共享同一个事件处理程序C.根据需要可以响应任何组件的事件D.事件的Sender参数是用来决定哪个组件产生了此事件6.代码动态帮助提供了哪些功能？oA.对象信息提示功能 B.参数提示功能C.语法模板提

13、示功能 D.表达或求值提示7.请选出下列组件中，属于非可视的组件有 oA.按钮 Tbutton B.标签 TlableC.计时器 TTimer D.数据源 TDataSource8.在 Delphi中，为了连接数据库到用户的界面，必需的组件有。A.TDatabase组件 B.数据集组件C.TDataSource组件 D.数据感知组件9.下列说法不正确的是：oA.可以直接调用函数取代非v a r形参，将函数的值传给子程序B.可以指定表达式取代非v a r形参，表达式的类型要与相应形参类型一致C.可以将数值、函数、常量传递给v a r形参D.如果指定变量为实参，变量的值将传递给子程序10.Delp

14、hi中的时间类型，以下描述正确的是：oA.D elphi中使用Double类型作为时间类型，而 非 IntegerB.假如TDatetime类型的变量为0,那么其含义表示公元元年C.其正值表示公元后，其负值表示公元前D.可以利用函数D ateToStr函数把TDatetime类型转变为字符串类型得分 评卷人 四、程 序 填 空（每 空1.5分，共30分）1.下图是本程序的设计界面（左）和 运 行 界 面（右）:forml 上建立的对象有：Label 1-Label5 Edit1Edit4、Button 1 （除键）和CheckBoxI该程序实现除法运算。用户输入两个操作数，按除键后，整除结果显

15、示在结果编辑框中。输入的操作数必须是1100之间的整数。如果输入有误,程序要给出错误提示信息。如 果“显示余数”复选框选中，则除法余数显示在余数框中，否则不显示余数。请完成单击“除键”按钮的事件处理程序。procedure TForml.Button 1Click（Sender:TObject）;varx,y:integer;beginx:=strtoint（editl.Text）;y:=strtoint（edit2.Text）;if then 如果输入的值在-100之间beginedit3.Text:=;if 卫 _ _ _ _ _ _ _ _ _ _ _ _ _ _thenedit4.Te

16、xt:=_elseedit4.Text:=_endelsebeginshowmessage（请输入1-100之间的整数）；exit;end;end;2.本程序由主窗体form l和子窗体form2组成，设计界面如下图所示:主窗体fo rm l上建立的对象有Panel1、Animate1、Buttons力 口 载AVI文 件、Button2（退出）、Buttons（播放）、Button4（停止）和 OpenDialogl 对应的单元文件unitl o子窗体 form2 上建立的对象有 Label!、BitBtml（Yes）、BitBtm2（No）。对应的单元文件unit20单击“加载AVI文件”

17、按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Anim atel显示区中。单 击“播放”按钮可播放动画，单击“停止”按钮可停止播放。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是UNt1的代码部分，请在下划线处完成程序填空。implementation$R*.dfmusesID_;procedure TForml.Button 1 Click（Sender:TObject）;加载 AVI 文件beginif thenanimatel.FileName:=;end;procedureTForml.

18、Button2Click（Sender:TObject）;退出beginif =mrYes thenclose;end;procedure TForml.Button3Click（Sender:TObject）;播放beginanimatel.Play（1,animatel.FrameCount,0）;end;procedure TForml.Button4Click（Sender:TObject）;停止begina n im a te l.;end;end.3.本程序的功能是实现对dep表（系）一student表（学生）的主从查询。用户可以依次查询系的记录，也可以通过指定系号，查找并定位到指

19、定的记录。每当显示一个系的记录后，系统自动显示该系的学生记录。设计界面和运行界面如下图，在F orm l上建立的主要对象及连接如下：Databasel-Tablel（与 dep 表相连）DataSourcel-DBEdit1DBEdit3Databasel-Queryl-DataSource2DBGrid 1 （显示学生信息）Editl Buttonl（查找）、Button2（下一记录）、Buttons（上一记录）等。Q ueryl的SQL语句是：select*from student where dno=:dno7 Forml系 号(DBEditl系名|DBEdit2电话|DBEdit33囚

20、指定系号;血TT查 找I：0曼曾聘3Forml I E x|系号|d01指 定 系 号 画 一 查找|系名|计算机系上一记录|电话|2934下一记录|Sno|Sname|Sex|Birthday|Dno010002吴成女1982-11-17 d01030002李林女1984-3-5d01-040001侯成文男1985-1-21d01二 J下面是U nitl单元的代码实现部分，请完成程序填空。implementation$R*.dfmprocedure TForml.Button2Click(Sender:TObject);下一记录begintablet ;end;procedure TForm

21、l.Button3Click(Sender:TObject);/上一记录begintablei.;end;procedure TForml.Buttonl Click(Sender:TObject);查找begintablel.(dno,edit1.Text,);end;procedure TForml.Tablel AfterScroll(DataSet:TDataSet);beginqueryl.Close;queryl.ParamByName(dno).Value:=queryl.;end;end.4.本程序实现一个简单的选课界面。设计界面和运行界面如卜图所示:该程序涉及到数据库中的两张

22、表：course表（课程信息）和 sc表（选课记录）。表结构如下:course(eno 课号,cname 课名，credit 学分,ctime 时间,quota 名额)sc（sn。学号，eno课号，grade成绩）在用户界面，操作员选中一门课、输入学号后，按 选课”键完成选课功能,即在s c 表中插入一条选课记录，并将course表中该课程名额减1。该界面要实现以下合法性检查：当该学生已经选过此课，不能再选。当课程名额为0,不能再选。在 Form l上建立的数据库组件对象及连接关系如下：Databasel-Tablel（与 course 表相连）一DataSourcel-DBGridl（显示课

23、程信息）Databasel Queryl、Query2其中为T ablel建立了永久字段：Tableleno（课号）、Tablelcname（课程名、Tablelquota（名额）等。Q ueryl的 SQL语句如下：select eno from sc where sno=:sno and eno=:cnoQuery2的 SQL语句如下：Insert into sc values（:sno,:cno,null）下面是U n itl的代码实现部分，请完成程序填空：implementation$R*.dfmprocedureTForml.ButtonlClick（Sender:TObject）;

24、选课beginqueryl.Close;queryl.ParamByName（sno）.Value:=editl.text;queryl.ParamByName（cno）.Value:=tableleno.Value;queryl.；if null thenbeginshowmessage（已选过该课程）；exit;end;if B_=0 thenbeginshowmessage（没有名额）;exit;end;query2.Close;query2.ParamByName（sno）.Value:=editl.Text;query2.ParamByName（cno）.Value:=tablelc

25、no.Value;q u e rv 2.;ta b le l.;tablel quota.Value:=tablel quota.Value-1;/课程名额减 1tablel.Post;end;end.得分评卷人五、阅读程序，完 成下列各题（共 2 0 分）本程序是小学生做加减法的算术练习程序。计算机连续随机给出两位数的加减法算术题，要求小学生回答，答对打“J”，答错打“X”,做过的题目放入列表框中备查，并随时给出答题的总数和正确率。设计界面与运行界面如图。程序代码如下：procedure TForm1.Button1 Click(Sender:TObject);beginforml.Tag:

26、=0;listboxl.Tag:=0;listboxl.Clear;labell.Caption:=心17!(#13+重新开始!+#13+#13+#13+正确率为:，+#13+#13+0,00);edit2.SetFocus;end;procedure TForml.FormActivate(Sender:TObject);var a,b,p,t:integer;beginRandomize;a:=Trunc(10+Random(90);b:=Trunc(10+Random(90);p:=Trunc(Random(2);if p=0 thenbegin Editl.text:=format(%

27、3d+%3d=,a,b);editl.Tag:=a+b;endelse begin If a b Then begin t:=a;a:=b;b:=t;end;Editl.text:=format(%3d-%3d=,a,b);editl.Tag:=a-b;end;edit2.SetFocus;end;procedure TForml.Edit2KeyPress(Sender:TObject;var Key:Char);var x:single;s:string;beginif key=#13 then beginForml.Tag:=Forml.Tag+1;if strtoint(edit2.T

28、ext)=editl.Tag then beginlistboxl.Items.Insert(0,format(edit1.text+%3s V,edit2.text);listboxl.Tag:=listboxl.Tag+1;endelse listboxl.Items.Insert(0,format(edit1.text+%3s x,edit2.text);listboxl.Itemindex:=0;Forml.FormActivate(sender);x:=listboxl.Tag*100/(forml.Tag);s:=#13+共做d 题+#13+#13+#13+正确率为:+#13+#1

29、3+Iabell.Caption:=format(s,forml.tag,x)end;end;procedure TForml.Button2Click(Sender:TObject);beginclose;end;1.说明各组件在程序中的作用(每空1分，共6分)控件作用EditlEdit2ListboxlButton 1Button2Labell2.说明下列变量和，控件属性的作用（每空1分，共6分）名称作用forml.Taglistboxl.T ageditl.TagABP3.简要说明以上四1段程序的处理流程。（共8分）名称处理流程Button 1 Click(1 分)Edit2KeyPress(3 分)FormActivate(3 分)Button2Click(1 分)