试卷代号：2235 座位号■■ 中央广播电视大学2011一2012学年度第二学期“开放专科”期末考试 Delphi程序设计试题 2012年7月 题号 二 三 四 五 总 分 分 数 得 分 评卷人 一、单项选择题(30分，每题3分)】 1.Delphi程序设计的基本特点是( ) A.可视化程序设计 B.代码程序设计 C.事件驱动编程 D.A和C 2.以下不是Delphi中对象编辑器的作用是() A.选择对象 B.设置属性 C.添加事件 D.编译程序，定制Delphi选项 3.“x是小于100的非负数”的Object Pascal表达式是() A.0≤x<100 B.x>=0,x<100 C.(x>=0)AND(x<100) D.(x>=0)OR(x<100) 4.利用Image对象的哪个属性设置，可以使加载的图像自动放大或缩小，以适应Image 的显示区域？（) A.Stretch B.AutoSize C.Align D.Center 5.工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是() A.将SpeedButton按钮的GroupIndex属性设置为O,且AllowAllUp属性设置为True B.将SpeedButton按钮的GroupIndex属性设置为O,且AllowAllUp属性设置为False C.将SpeedButton按钮的GroupIndex属性设置为非O值，且AllowAllUp属性设置为True D.将SpeedButton按钮的GroupIndex属性设置为非O值，且AllowAllUp属性设置为False 6.Pascal单元文件的扩展名是() A.dps B.dpr C.pas D.dfm 1395
试卷代号 2 2 3 5 座位号 中央广播电视大学 11 2012 第二学期 开放 末考 Delphi 试题 2012 年7 题号 总分 分数 得分|评卷人 一、单项选择题 0分，每题 3分} 1. Delphi 程序 本特 ) A. 视化程 计B. 代码程 设计 c.事件驱动编程 和C 2. IV.下不是 p h i中对象编辑器的作用是( ) A. 选择 象B. c.添加事件 .编译程序，定制 i选项 3."x 是小于100 的Object Pascal 式是 ) A. 0 x < 100 B. x > = 0 , x<100 C. (x >=0) AND (x < 100) D. (x >= 0 ) OR (x<100) 4. 利用 大 或 缩小 的显示区域? ( ) A. Stretch B. AutoSize B. dpr D. dfm C. Align D. Center 5. 栏上 ee t t on 按钮 方法是 ) A. 将SpeedButton 按钮的GroupJndex 为0 A1lowA1IUp 性设置为True B. 将SpeedButton 的GroupJndex 性设置为0 A1lowA1lUp c.将 ee tt n按钮的 ro x属性设置为非 O值，且A1 wA1 p属性设置为 D. 将SpeedButton 按钮的GroupJndex 性设 A1lowA1lUp 为False 6. Pascal 单元 扩展 ) A. dps C. pas 1395
7.下列说法正确的是() A.组件必须是可视的，这样用户才能使用 B.Delphi中组件就是控件，二者是完全相同的 C.控件都是可视的 D.按钮(Button))是组件，而窗体(Form)则不是组件 8.以下能够触发编辑框(Edit)组件OnChange事件的操作是() A.鼠标单击编辑框 B.鼠标双击编辑框 C.在编辑框中选择文本 D.在编辑框中输入文本 9.以下叙述中错误的是( A.一个项目包含不止一种类型的文件 B.窗体的Show方法的作用是显示该窗体 C.窗体的Hide方法和Release方法的作用完全相同 D.若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体 10。只能输出、而不能输入的数据感知控件是() A.DBEdit B.DBText C.DBRadioGroup D.DBCheckBox 得分 评卷人 二、判断题，请给下列论述中正确的打上“√”，错误的打上“X”(10 分，每题2分) )ll.时钟Timer组件的时间间隔是由Interval属性控制，例如其值为l000时表示时间 间隔是1秒。 ()I2.在Delphi环境中，组件页上的组件是“对象”的概念，在窗体上建立的按钮是“类”的 概念。 ( )l3.打开的数据集Table通过BDE访问一个数据表，则调用Table的First方法可以 使记录指针指向table的第一个记录。 )l4.在Data Controls组件页上，只有DBNavigator组件可以不用指定DataField属性值。 )15. 图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。 得 分 评卷人 三、填空题(20分，每空2分)】 16.结构化程序设计要求程序中仅采用 三种控制结构， 其中每种结构只能有一个入口和一个出口。 17.现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有 自己的 和方法。 1396
7. 下列 ) A. 组件必须 B. Delphi 就是控件 全相 控件 D. 钮(Button) 是组 体(Form) 组件 8. 下 能够 发编辑框(Edit) 件OnChange 事件 ) A. 框B. c.在编辑框中选择文本D.在编辑框中输入文本 9. ) A. 个项 含 不 种类 文件 B. h o 作用是显示 c.窗体的 e方法和 e方法的作用完全相同 D. 文件 据需要 10. 而不能 件是 ) A. DBEdit C. DBRadioGroup 得分评卷人 B. DBText D. DBCheckBox 二、判断题，请给下列论述中正确的打上...) "，错误的打土 分，每题 2分) ( ) 1 1. 钟Timer 组件 间 间 由Interval 性控 其值为1000 间隔是 1秒。 ( ) 12. 在Delphi 环境 组件 组件 概念 概念。 ( ) 13. 集Table 过BDE 个数据 表 则 调 用Table 的First 使记录指针指向 e的第-个记录 ( ) 14. Data Co ro 组件 vi 组件 Da el 性值 ( ) 15. 形组件 输入 输入 得分 l评卷人 三、填空题 0分，每空 2分) 16. 设计 要 求 其中每种结构只能有→个人口和一个出口。 17. 具有 应 着 象可 自己的和方法。 1396
l8.Delphi应用程序中项目文件的扩展名是 19.在设计阶段，利用1mage对象的 属性，可以加载一幅图片。 20.Delphi有三种控制循环的语句：repeat语句， 语句，for语句。 21.下面的语句用来删除Tmemo组件的第4行，请补充完整： memol.lines.delete(); 22.Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用 组件与数据库建立连接，并读取数据库 中的数据，而后又经过 组件将数据送到用户界面组件中显示。 23.与数学表达式cosa+b)+a对应的Object Pascal表达式是 a2Xx 24.利用 对象的LineTo等绘图方法，可以绘制基本图形。 得 分 评卷人 四、程序填空题(30分，每题10分)】 25.(10分，每空2分) 本程序根据用户选择的运算符对输人的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroupl对象。 Formi Formi 请选择 操作数1：diti 请选择 操作数1B网 。加 加 c减 操作数2Edit2 减 操作数2p 月r乘 r除 结果抢dit3 c除 结果3 运算 退出 运算 退出 5投 下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm1.ButtonlClick(Sender:TObject);// var x1,x2,y Integer; begin x1 :StrToInt(Edit1.D x2 :StrToInt(Edit2.2 Case③ ItemIndex of 1397
18. Delphi 程序 19. 设计 用Image 对象 加载一 20. Delphi 种控 repeat for 1. 下 面 除Tmemo 组件 的第4 补充完整 memo1. lines. deleteC ) ; 22. Delphi 据库之 进行数据交换一 件协 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用组件与数据库建立连接，并读取数据库 中的数据，而后又经过组件将数据送到用户界面组件中显示。 S2 Ca +b) .与数学表达式 a对应的 e c Pascal 表达式 a- )飞 24. 对象的 o等绘图方法，可以绘制基本图形。 得分|评卷人 四、程序填空题 0分，每题 0分} 3亨丁 ‘.:"‘'‘ 下面是单击"运算"按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm1. Button1ClickCSender: TObject);//运算 var xl , x2 , y : Integer; begin xl : = StrToIntC Editl. x2 : = StrToIntC Edit2. Case ) ; . ItemIndex of 1397
0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1*x2; 3:y :x1 Div x2; End; Edit3.④ :=IntToStr(⑤ end; 26.(10分，每空2分) 本程序由主窗体forml和子窗体form2组成，设计界面如下图所示： EForm1 口× Form2 1回x Panell 是否退出： √Yes ⊙No 打开文件 播放哲 返出 主窗体Forml上建立的对象有Panell.MediaPlayer1.OpenDialogl.Buttonl(打开文 件)、Button2(播放)、Button3(暂停)、Button4(退出)。 子窗体Form2上建立的对象有Labell.BitBtm1(Yes)、BitBtm2(No)。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播 放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation ($R *dfm) uses ① procedure TForml.Button1Click(Sender:TObject);/打开文件 begin if② then 1398
0: Y : = xl 十x2 ; I: Y : = xl - x2; 2: Y : = xl 铸x2; 3: y : = xl Div x2; End; Edit3. : = IntToStr( end; 一一-一一一一一一一一一-一一----，一一-一一←一一一一-----一-一一一一一一，一一一一-一一一 26. (1 本程序由主窗体 1和子窗体 2组成，设计界面如下图所示: 拉玩丽由罐罐蠢 . ，是否退出: 二:;:「豆豆 ;二 J{T3 • I~ l~ ...., A 1: Form] , ，，':甲需镰露露 主窗体 1上建立的对象有 l. MediaPlayerl. OpenDialogl. Button1 (打开文 件)、 o n (播放)、 t t (暂停)、 tt o n (退出)。 子窗体 2上建立的对象有 ll BitBtm1 (Yes) 、BitBtm2(No) 单击"打开文件"按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击"播 放"按钮可播放多媒体文件，单击"暂停"按钮可暂停播放。 单击"退出"按钮，会弹出确认对话框 "No" 主 窗 下面是 l的代码部分，请在下划线处完成程序填空。 一一一一一一一-一一一一一一-一一-一一一一一一-一一一一一一-一一--一-一-←-一一甲---------一一-…←一~一一-一--一 implementation {$ dfm} uses procedure TForml. Button1Click(Sender: TObject); / /打开文件 begin if 1398 then
begin MediaPlayer1.FileName :=3 MediaPlayerl.Open MediaPlayer1.Display:=Panell;/将Panell做为播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panell.Width,Panell.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. 27.(10分，每空2分) 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示： Form1 7 Form1 白x 课程信总： 士国倒 课程信意： 课号课名酒 学分时间名额色 课号课名]学分时间名额一 Cc01物理 11 199 c01 物理 11 199 c02 化学 2 14 99 c02 化学 14 38 c03 外语 1, 23 49 c03外语 23 49 学号：Editl 选课上國 学号： 040001 选课 该程序涉及到数据库中的两张表：course表（课程信息）和sc表（选课记录）。表结构如下： course(cno课号，cname课名，credit学分，ctime时间，quota名额) sc(sno学号，cno课号，grade成绩) 在用户界面，操作员选中一门课、输人学号后，按“选课”键完成选课功能，即在$c表中插 人一条选课记录，并将course表中该课程名额减l。 1399
, • begin MediaPlayerl. FileName: =③ MediaPlayerl. Open; MediaPlayer1. Display : = Panel1; !!将 n做为播放屏幕 MediaPlayerl. DisplayRect : =Rect(O ,O ,Panell. Width ,Panell. Height); end; end; procedure TForml. Button2ClickCSender: TObject); !!播放 begin MediaPlayerL (z end; procedure TForml. Button3ClickCSender: TObject); /!暂停 begin MediaPlayerl. Pause; end; procedure TForml. Button4C1ickCSender: TObject); !!退出 begin if ( = mrYes then close; end; end. 27. (1 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示: 翻翻 γ一 课程信息 cOl 物理 4 11 i99......J ~lc02 化学 2 14 98 c03 外语 1 ‘ 课号 时间各额二 ~Ic 物化 4 11 199 2 14 99 ~号。02 外掌 1 23 49~ 4 - """., .-ιj .主干部「 :噎 j恩 学号:庐衍了 该程序涉及到数据库中的两张表 e表(课程信息)和 c表(选课记录)。表结构如下 course(cno ，cname credit ，ctirn quota scCsno 学号 ，cno ，grade 成绩 在用户界面，操作员选中一门课、输入学号后，按"选课"键完成选课功能，即在c表中插 入一条选课记录，并将 o ur s e表中该课程名额减1. 1399