Delphi试题01.doc

Delphi程序设计试卷学号： 姓名： 专业： 班级： 题号一二三四五总分登分人题分3010103020100得分得分评卷人 一、 单项选择题（每小题1分，共30分）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. Formstyle 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用户定义的任何顺序类型C字符型 （Char） D整型（Integer）10. 下列变量命名正确的是 。 A. 7ABC B. Program7 C. page21 D. program11. 如果要检查edit编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查 。AOnClick BOnEnter COnMouseUp DOnKeyPress 12. 以下哪个函数是输入对话框函数？ 。 A. inputbox B. messagebox C. messagedlg D. showmessage 13. 下列对象不能响应 Click事件的是 。A列表框 B图片框 C窗体 D计时器14. 已知对话框函数MessageDlgPos(ConstMsg:String;DlgType:TmsgDlg Type;Buttons:TmsgDlgButtons;HelpCtx:longint;X,Y:Integer):Word.问：DlgType取何值时，会出现感叹号？ 。 A.mtwarning B.mtconfirmation C.mtInformation D.mtCustom15. 关于变量，下列说法错误的是: 。 A.全局变量与局部变量名相同时，在过程之外是全局变量作用B.全局变量与局部变量名相同时，内部是局部变量作用C.全局变量与局部变量名相同时，在过程之外全局变量无作用D.全局变量与局部变量名相同时，在过程之外是全局变量作用而在内部是局部变量作用16. Delphi的单元（Unit）包含Interface和Implementation两部分，所有函数和过程的实现代码都放在Implementation部分。 放在Interface部分。A.如果函数或过程需要被别的单元调用，其声明必须B.函数和过程的声明可以放在任何部分，但类型、常量和变量的定义必须C.所有类型、常量和变量的定义及函数和过程的声明都要D.除了单元内部调用的常量和变量之外，其余定义和声明都17. procedure和function的结构和功能相似， 。 A.前者可以取代后者 B.后者可以取代前者C.但前者有返回值，后者没有 D.二者都可以返回一个值18. 函数的参数在声明时如果带var前缀， 。 A.调用时必须在相应位置放个地址指针B.调用时必须在相应位置放一个整数C.可以在函数中改变参数的值，并回传给调用方D.函数中只能访问其地址指针，得不到参数值19. 下列说法正确的是： 。 A.函数只能出现在表达式中B.函数不能出现在表达式中C.函数不仅可以出现在表达式中，也可以以其他方式出现D.函数在同一表达式中不能出现多次20. 下列过程首部定义正确的是： 。 A.procedure fun1 (k,s:real;n:integer);B.procedure fun1 (k:real,s:real,n:integer);C.procedure fun1 (k;s:real,n:integer);D.procedure fun1 (real:k;s,integer:n);21. 已知 Var a:arraya.e,1.8 of real; 则数组a中包含的元素的个数为 。 A.5 B.20 C. 40 D.11 22. 动态数组与静态数组的区别是 。 A. 是否是一维数组 B. 元素类型是否是整型C. 定义时是否明确了数组元素的个数 D. 元素类型是否一致23. 用于建立菜单项的下划线快捷方式的字符是： 。 A. B.# C.& D.24. 组合框ComboBox中的数据在哪个属性中添加？ 。AText BItems CDragDownCount DSorted25. 利用Image对象的 属性设置，可以改变Image的大小，以适应加载的图像大小。 A. Stretch B. AutoSize C. Align D. Center26. 在绘制封闭图形时，要想使它的填充色为某一指定颜色，应设置Tcanvas对象的 属性A. pen.color B. brush.color C. pen.style D. bursh.style27. BDE的中文含义是 ，它是数据库应用中的一种连接方法。 A. 数据库连接 B. 数据库引擎 C. 开放式数据库 D. 数据库文件28. Eof表明当前记录指针所处的位置是： 。 A. 数据集的最后一个记录 B. 数据集的第一个记录C. 数据集的中间记录 D. 不确定29. 要使Tquery组件的SQL语句执行后返回结果集，应调用Tquery组件的 方法。A. add B. open C. execsql D. open 和 execsql30. 找出下列异常处理中错误的说法？ 。 A.在tryexcept end语句中，正常情况下except后面的语句会被执行B.在tryexcept end语句中，异常情况下except后面的语句会被执行C.在tryfinallyend语句中，正常情况下finally后面的语句会被执行D.在tryfinallyend语句中，异常情况下finally后面的语句会被执行得分评卷人 二、 填空题（每空0.5分，共10分）1. Delphi 的复合语句是由 和 之间的多个语句组成的。2. 程序运行时，要求窗体的某个按钮不再响应鼠标单击操作，可将其 属性设置为 即可。3. 组件分为 和 两大类，其中 在程序设计是以 方式出现在窗口中，运行时被隐蔽地嵌入到窗口中 ，与摆放位置无关。4. 当程序运行时，要求窗体中的文本框初始状态呈现空白，可在设计阶段时，将此文本框的 属性设置成 。5. Delphi 提供了打开文件对话框组件 ，用来显示一个“打开”对话框，在程序中使用 方法来激活。6. TForm的 和 两种方法均触发OnShow事件。7. RadioGroup对象的单选按钮个数及名称是通过 属性来进行设置的。8. 调用Table组件的 方法或 方法可使数据表进入插入模式。9. TQuery对象存储一条Update语句，执行时要调用Query的 方法。10. 对象是类的 ，它与类之间是一种变量和变量类型的关系。 11. TDatasource组件是通过 属性与TTable组件建立联系的。 12. TADOConnection 组件的 属性决定当连接一个数据库时是否出现一个登录对话框。得分评卷人 三、 多项选择题（从备选答案中选出全部正确答案，将其题号填入括号内，每小题1分，共10分）1. Delphi支持的3种注释方法是： 。A. B. (* *) C. / D. 2. 下列实数中合法的是 。A. 0.25E+02 B. .25+2 C. 25E+2 D. 34.53. 以下不可以由用户输入编辑文本组件 。ATEdit B. TMemo C. Tlistbox D. Tlabel4. 下列子界类型定义合法的是 。A. TYPE a=10.10; B. TYPE b=10.5;C. TYPE c=0.SQRT(10); D. TYPE d=10.20;5. 以下关于事件的说法正确的是 。A. 不一定要响应某个组件所定义的所有事件B. 多个组件可以共享同一个事件处理程序C. 根据需要可以响应任何组件的事件D. 事件的Sender参数是用来决定哪个组件产生了此事件6. 代码动态帮助提供了哪些功能？ 。A对象信息提示功能 B参数提示功能C语法模板提示功能 D表达或求值提示7. 请选出下列组件中，属于非可视的组件有 。A按钮Tbutton B标签Tlable C计时器TTimer D数据源TDataSource8. 在Delphi中，为了连接数据库到用户的界面，必需的组件有 。ATDatabase组件 B数据集组件 CTDataSource组件 D数据感知组件 9. 下列说法不正确的是： 。A可以直接调用函数取代非var形参，将函数的值传给子程序B可以指定表达式取代非var形参，表达式的类型要与相应形参类型一致C可以将数值、函数、常量传递给var形参D如果指定变量为实参，变量的值将传递给子程序10. Delphi中的时间类型，以下描述正确的是： 。ADelphi中使用Double类型作为时间类型，而非IntegerB假如TDatetime类型的变量为0，那么其含义表示公元元年C其正值表示公元后，其负值表示公元前D可以利用函数DateToStr函数把TDatetime类型转变为字符串类型得分评卷人 四、 程序填空（每空1.5分，共30分）1. 下图是本程序的设计界面（左）和运行界面（右）： form1上建立的对象有：Label1Label5、Edit1Edit4、Button1（除键）和CheckBox1。该程序实现除法运算。用户输入两个操作数，按除键后，整除结果显示在结果编辑框中。输入的操作数必须是1100之间的整数。如果输入有误，程序要给出错误提示信息。如果“显示余数”复选框选中，则除法余数显示在余数框中，否则不显示余数。请完成单击“除键”按钮的事件处理程序。procedure TForm1.Button1Click(Sender: TObject);var x,y: integer ;begin x := strtoint(edit1.Text); y := strtoint(edit2.Text); if then /如果输入的值在1-100之间 begin edit3.Text := ; if then edit4.Text := else edit4.Text := end else begin showmessage(请输入1100之间的整数); exit; end ;end;2. 本程序由主窗体form1和子窗体form2组成，设计界面如下图所示： 主窗体form1上建立的对象有Panel1、Animate1、Button1（加载AVI文件）、Button2（退出）、Button3（播放）、Button4（停止）和OpenDialog1。对应的单元文件unit1。子窗体form2上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。对应的单元文件unit2。单击“加载AVI文件”按钮，会弹出打开文件对话框。用户指定一个.avi的文件后，动画文件加载到Animate1显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。implementation$R *.dfmuses ;procedure TForm1.Button1Click(Sender: TObject); /加载AVI文件begin if then animate1.FileName := ; end;procedure TForm1.Button2Click(Sender: 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.3. 本程序的功能是实现对dep表（系）student表（学生）的主从查询。用户可以依次查询系的记录，也可以通过指定系号，查找并定位到指定的记录。每当显示一个系的记录后，系统自动显示该系的学生记录。设计界面和运行界面如下图，在Form1上建立的主要对象及连接如下：Database1Table1（与dep表相连）DataSource1DBEdit1DBEdit3Database1Query1DataSource2DBGrid1（显示学生信息）Edit1、Button1（查找）、Button2（下一记录）、Button3（上一记录）等。Query1的SQL语句是：select * from student where dno = :dno下面是Unit1单元的代码实现部分，请完成程序填空。implementation$R *.dfmprocedure TForm1.Button2Click(Sender: TObject); /下一记录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).Value := ; query1. ;end;end.4. 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示： 该程序涉及到数据库中的两张表：course表（课程信息）和sc表（选课记录）。表结构如下：course（cno 课号，cname课名，credit学分，ctime时间，quota名额）sc（sno学号，cno课号，grade成绩）在用户界面，操作员选中一门课、输入学号后，按“选课”键完成选课功能，即在sc表中插入一条选课记录，并将course表中该课程名额减1。该界面要实现以下合法性检查：l 当该学生已经选过此课，不能再选。l 当课程名额为0，不能再选。在Form1上建立的数据库组件对象及连接关系如下：Database1Table1（与course表相连）DataSource1DBGrid1（显示课程信息）Database1Query1、Query2其中为Table1建立了永久字段：Table1cno（课号）、Table1cname（课程名）、Table1quota（名额）等。Query1的SQL语句如下：select cno from sc where sno = :sno and cno = :cnoQuery2的SQL语句如下：Insert into sc values( :sno , :cno , null )下面是Unit1的代码实现部分，请完成程序填空：implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject); /选课begin query1.Close ; query1.ParamByName(sno).Value := edit1.text ; query1.ParamByName(cno).Value := table1cno.Value ; query1. ; if null then begin showmessage(已选过该课程); exit ; end ; if = 0 then begin showmessage(没有名额); exit ; end; query2.Close ; query2.ParamByName(sno).Value := edit1.Text ; query2.ParamByName(cno).Value := table1cno.Value ; query2. ; table1. ; table1quota.Value := table1quota.Value - 1 ;/课程名额减1 table1. Post ;end;end.得分评卷人 五、 阅读程序，完成下列各题（共20 分）本程序是小学生做加减法的算术练习程序。计算机连续随机给出两位数的加减法算术题，要求小学生回答，答对打“”，答错打“”，做过的题目放入列表框中备查，并随时给出答题的总数和正确率。设计界面与运行界面如图。程序代码如下：procedure TForm1.Button1Click(Sender: TObject);begin form1.Tag := 0; listbox1.Tag := 0; listbox1.Clear ; label1.Caption := format(#13+重新开始!+#13+#13+#13+正确率为:+#13+#13+ %f%, 0.00 ); edit2.SetFocus;end;procedure TForm1.FormActivate(Sender: TObject);var a, b, p, t : integer;begin Randomize; a := Trunc(10 + Random(90); b := Trunc(10 + Random(90); p := Trunc(Random(2); if p = 0 then begin Edit1.text := format(%3d +%3d =, a,b); edit1.Tag := a + b; end else begin If a b Then begin t := a; a := b; b := t; end; Edit1.text := format(%3d -%3d =, a,b); edit1.Tag :=