试卷代号：2235 座位■■ 国家开放大学（中央广播电视大学）2014年春季学期“开放专科”期末考试 Delphi程序设计试题 2014年7月 题 号 二 三 四 五 总分 分 数 得 分 评卷人 一、单项选择题(30分，每题3分) 1.下面哪句话对Delphi的描述是正确的()。 A,Delphi的编程语言是C十十 B.Delphi的编程语言全部是面向过程的 C.只能用于数据库客户端开发的工具 D.面向对象的可视化的开发环境 2.要改变一个对象的高度，应使用属性( )。 A.Font B.ForcColor C.Name D.Height 3.下列叙述中正确的是()。 A.对于一组CheckBox组件，用户只能选择其中的一个 B.对于一组CheckBox组件，用户可以选择其中的一个或多个 C.对于一组RadioButton组件，用户可以选择其中的一个或多个 D.对于-一组RadioButton组件，用户可以选择其中的多个 4.下列合法的变量名是()。 A.na+e B.e-3r C.r_3 D.5we 1019
试卷代号 2 2 3 座位号仁口 国家开放大学(中央广播电视大学 4年春季学期"开放专科"期末考试 Delphi 2014 年7 |题号|一!二|三|四!五|总分| |分数 I I I I I I 卷人 I I I- 项选择 1.下面哪句话对 phi的描述是正确的( )。 A. Delphi 程语 是C+ B. Delphi 程语 过程 C. 能用 据库 D. 发环 2. 要改变一个对象 )。 A. Font C. Name B. ForcColor D. Height 3. 下列 )。 A. 于一 e c o x 户 只 选择 一个 B. 于一组CheckBox组件 选择 或多个 c.对于一组 tt n组件，用户可以选择其中的一个或多个 D. 组RadioButton组件 4. 下列 变量 )。 A. na+e C. r_3 B. e-3r D. 5we 1019
5.利用对象监视器可以设置窗体或组件的()。 A.方法 B.属性 C.外观 D.执行代码 6.编辑框(Edit)中的文本发生改变时引发的事件是()。 A.AutoSize B.OnChange C.SetFocus D.SetText 7.现建立一个简单报表，要求其中要包含报表的汇总栏，则在Bads属性的子属性中，需 要选择的是( )。 A.ColumnHeader B.Detail C.Title D.Summary 8.如果要检查dt编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查( )。 A.OnClick B.OnEnter C.OnMouseUp D.OnKeyPress 9.数据库组件中，提供了对数据库读写操作功能的核心组件是( )。 A.数据源组件 B.用户界面组件 C.数据集组件 D.数据感知控件 10.在Table组件中，用来设置打开或关闭与其相连的数据表的属性是( A.ReadOnly B.BOF和EOF C.Keep D.Active 得分 评卷人 二、判断题（请给下列论述中正确的打上“√”，错误的打上“×”，10 分，每题2分) )ll.Delphi是面向对象的可视化的开发环境，编程语言采用Object C。 )12.在Delphi环境中，组件板上的组件就是类的概念，例如按钮组件就是按钮类。而用 户在窗体上创建的一个按钮就是对象的概念（按钮对象）。 )13.用于建立菜单项的下划线快捷方式的字符是“//”。 ( )14.4ABC可作为Delphi的变量名。 )15.在一个项目中，第一个建立的窗体固定就是主窗体，并且再也不设置其他窗体为主 窗体。 1020
5. 对象监视 或组 )。 A. 法B. c.外观 .执行代码 6. 框(Edit) 发生改变时 )。 A. AutoSize C. SetFocus B. OnChange D. SetText 7. 报表 要包含报 汇总 在Bands 要选择的是( )。 A. ColumnHeader C. Title B. Detail D. Summary 8. edi 输入 字符 个事件处理程序 码检 )。 A. OnC1ick C. OnMouseUp B. OnEnter D. OnKeyPress |得分|评卷人| I I I 9. 组件 提供 组件 )。 A. 件B. c.数据集组件 .数据感知控件 10. 在Table 来设置 )。 A. ReadOnly B. BOF 和EOF C. Keep D. Active 二、判断题{请给下列论述中正确的打上"~"，错误的打上..X" , 10 分，每题 2分) )1 1. Delphi 对象 发环境 语言 用Object )12. 在Delphi 环境 组件 件就是类 户在窗体上创建的一个按钮就是对象的概念(按钮对象)。 ) 13. 用 于 立菜 划线 I" )14. 4ABC 为Delphi ) 15. 个建 定就 设置 窗体。 1020
得分 评卷人 三、填空题(20分，每空2分) 16.结构化程序设计的基本原则是取消got0语句，程序中仅采用 、分支和循环 三种控制结构。 17.Delphi中与窗体文件对应的文件是单元文件，其最常用的文件扩展名是*·一。 18.与数学表达式sina+b2-ab对应的Ob6 ject Pascal表达式是 3+y2 19.调用主窗体的 方法，可以结束程序关闭窗体。 20.下面的语句用来删除Tmemo组件的第6行，请补充完整：memol.lines..delete( )；。 21.时钟组件(Timer)能有规律的以一定时间间隔触发 事件。 22.如果让界面上的一个按钮变为不可用，需要将它的 属性设为False。 23.通过Animate对象的 属性设置，可以指定系统标准的AVI动 画演示。 24.在Delphi集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象查 看器(Object Inspector)中的 窗口直接进行设置。 25.利用DBGrid的 属性，可以设置DBGrid每一列的标题和对齐方式等。 得 分 评卷人 四、程序填空题(30分，每题10分)】 26.(10分，每空2分) 下图是本程序的设计界面（左）和运行界面（中、右）： Forl Editl Edit2 48 2 Edit3 21(48 21小于48 在forml上建立的对象有：Edit1~Edit3、Buttonl(确定)和CheckBox1等。 1021
|得分|评卷人| I I I 三、填空题 0分，每空 2分) 16. 程序设计 本原 消goto 程 序 采用 三种控制结构。 17. Delphi 件是单元文件 件扩展 in(a+b) 18. 表达 一一 一-ab 对应的Object Pascal 达式是 3+y2 19. 调用 方法，可以结束程序关闭窗体。 20. 下面 用来 除Tmemo组件的第6 memo!. lines. delete( 3 1. 时钟 件(Timer) 一定 间 间 触发 事件 22. 按钮 可用 为False 23. 过Animate 对象 指定 的AVI 画演示。 24. 在Delphi 集成开发环 果想 直接设置或者 改对 通过对象 看器( Object Inspector) 进行设 25. 用DBGrid 置DBGrid 每一列 标题 |得分|评卷人| I I I 四、程序填空题 0分.每题 0分} 26. (1 下图是本程序的设计界面(左)和运行界面(中、右) : 1上建立的对象有: Edit1 Edit3 、Button1 (确定)和 e c 1等。 1021
该程序实现两个整数的大小比较。用户输人两个整数，按“确定”键后，比较结果显示在 Edit3中。 如果“汉字”复选框选中，比较结果采用“大于”、“小于”、“等于”；否则比较结果采用“>”、 “<”、“=”(如图所示)。 下面是单击“确定”按钮的事件处理程序。 procedure TForm1.ButtonlClick(Sender:TObject); var x,y:integer; gt,eq,It:string; begin x:=① (editl..Text);/取得输入值 y:=strtoint(edit2.② if checkboxl.③ then begin gt:=大于： eq:=等于； lt:=小于； end ④ begin gt:=>'; eq:=‘='; It:=<; end; if (x>y)then edit3.Text:=editl.Text+gt+edit2.Text else if (x=y)then 1022
该程序实现两个整数的大小比较。用户输入两个整数，按"确定"键后，比较结果显示在 Edit3 如果"汉字"复选框选中，比较结果采用"大于"、"小于"、"等于";否则比较结果采用">"、 "<"、"="(如图所示)。 下面是单击"确定"按钮的事件处理程序。 procedure TForml. Button1Click(Sender:TObject); var x , y: mteger; gt , eq ,It:string; begin x:=((editl. Text);//取得输人值 y: =strtoint(edit2. ( ) ; if checkboxl.(then begin gt:=' eq:= It: ='小于; end begin gt:='>'; eq:==-; It:='<'; end; if (x>y) then edit3. Text: =editl. Text+gt十edit2. Text else if (x=y) then 1022
edit3.Text:=editl.Text+eq+edit2.Text else edit3.Text:=edit1.Text+5 +edit2.Text; end; 27.(10分，每空2分) 本程序由主窗体forml和子窗体form2组成，设计界面如下图所示： Forml Form2 主窗体上建立的对象有Panell、Animatel、Buttonl(加载AVI文件)、Button2(退出)、 Button3(播放)、Button4(停止)和OpenDialogl。 子窗体上建立的对象有Labell、BitBtml(Yes)、BitBtm2(No)。 单击“加载AV1文件”按钮，会弹出打开文件对话框。用户指定一一个.avi的文件后，动画 文件加载到Animatel显示区中。单击“播放”按钮可播放动画，单击“停止”按钮可停止播放。 单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation ($R*.dfm) uses ① procedure TForml.Button1Click(Sender:TObject);//加载AVI文件 begin 1023
edit3. Text: =editl. Text十eq+edit2. Text else end; edit3. Text: =editl. Text +edit2. Text: 27.00 空2 本程序由主窗体 1和子窗体 2组成，设计界面如下图所示 主窗体上建立的对象有 ll、 1、 o n (加载 AVI文件)、 tto n (退出)、 Button3(播放 、Button4( 和OpenDialog1 子窗体上建立的对象有 ll、 l( )、 )。 单击"加载 AVI文件"按钮，会弹出打开文件对话框。用户指定一个.aVl 文件加载到 1显示区中。单击"播放"按钮可播放动画，单击"停止"按钮可停止播放。 单击"退出"按钮，会弹出确认对话框 )。如果用户按 "键，程序结束;如果按 "No" 主窗 下面是 1的代码部分，请在下划线处完成程序填空。 implementation {$R dfm} uses procedure TForml. Button1Click(Sender: TObject);//加载 AVI文件 begin 1023