试卷代号：2235 座位号■ 国家开放大学（中央广播电视大学）2014年秋季学期“开放专科”期末考试 Delphi程序设计试题 2015年1月 题 号 二 三 四 五 总分 分 数 得 分 评卷人 一、单项选择题(30分，每题3分)】 1.Delphi程序设计的基本特点是( )。 A.可视化程序设计 B.代码程序设计 C.事件驱动编程 D.A和C 2.修改窗体的标题时，应当在属性页中设置的属性是( )。 A.Caption B.Name C.Text D.Label 3.“x是小于100的非负数”的ObjectPascal表达式是( A.0x<100 B.x>=0,x<100 C.(x>=0)AND(x<100) D.(x>=0)OR(x<100) 4.下列叙述中正确的是()。 A.对于一组CheckBox组件，用户只能选择其中的一个 B.对于一组CheckBox组件，用户可以选择其中的一个或多个 C.对于一组RadioButton组件，用户可以选择其中的一个或多个 D.对于一组RadioButton组件，用户可以选择其中的多个 5.要改变一个对象的高度，应使用属性( ）。 A.Font B.ForeColor C.Name D.Height 1005
试卷代号 :2235 座位号 国家开放大学(中央广播电视大学 )2014 年秋季学期"开放专科"期末考试 Delphi 程序设计试题 2015 E 一、单项选择题 (30 分，每题 分} 1. Delphi 程序设计的基本特点是( )。 五厅*l || A. 可视化程序设计 B. 代码程序设计 c.事件驱动编程 D. Z. 修改窗体的标题时，应当在属性页中设置的属性是( )。 A. Caption C. Text B. Name D. Label 3."x 是小于 100 的非负数"的 ObjectPascal 表达式是( )。 A.O x<100 B. x>=0 , x<100 C. (x>=0)AND(x<100) D. (x>=O)OR(x<100) 4. 下列叙述中正确的是( )。 A. 对于一组 CheckBox 组件，用户只能选择其中的一个 B. 对于一组 CheckBox 组件，用户可以选择其中的一个或多个 C. 对于一组 RadioButton 组件，用户可以选择其中的一个或多个 D. 对于一组 RadioButton 组件，用户可以选择其中的多个 5. 要改变一个对象的高度，应使用属性( )。 A. Font B. ForcColor C. Name D. Height 1005
6.工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右对齐”），它们的 GroupIndex属性正确的设置是()。 A.GroupIndex属性值都为O B.GroupIndex属性值非O,且互不相同 C.GroupIndex属性值非0，且相同 D.GroupIndex属性值互不相同 7.下列符号中哪个表示Delphi程序注释开始()。 A./ B.?? C.# D.- 8.以下能够触发编辑框(Edit)组件OnChange事件的操作是()。 A.鼠标单击编辑框 B.鼠标双击编辑框 C.在编辑框中选择文本 D.在编辑框中输入文本 9.以下叙述中错误的是()， A.一个项目包含不止一种类型的文件 B.窗体的Show方法的作用是显示该窗体 C.窗体的Hide方法和Release方法的作用完全相同 D.若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体 10.只能输出、而不能输人的数据感知控件是( )。 A.DBEdit B.DBText C.DBRadioGroup D.DBCheckBox 得分 评卷人 二、判断题（请给下列论述中正确的打上“√”，错误的打上“×”，10 分，每题2分) )11.const c:=80的说明语句是合法的。 )12.在Delphi环境中，组件页上的组件是“对象”的概念，在窗体上建立的按钮是“类”的 概念。 ()3.所有的Delphi控件都有一个Name属性。 ()l4.在Data Controls组件页上，只有DBNavigator组件可以不用指定DataField属性 值。 ()l5.Delphi中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型。 1006
6. 工具栏上的→组按钮如果要构成互斥关系(如"左对齐"、"居中"、"右对齐勺，它们的 GroupIndex 属性正确的设置是)。 A. Grouplndex 属性值都为 B. Grouplndex 属性值非 ，且互不相同 C. GroupIndex 属性值非 ，且相同 D. GroupIndex 属性值互不相同 7. 下列符号中哪个表示 Delphi 程序注释开始)。 A. // B. ?? C. # 8. 以下能够触发编辑框( Edit) 组件。nChange 事件的操作是( )。 A. 鼠标单击编辑框 B.鼠标双击编辑框 c.在编辑框中选择文本 D. 在编辑框中输入文本 9. 以下叙述中错误的是( )。 A. →个项目包含不止一种类型的文件 B.窗体的 Show 方法的作用是显示该窗体 c.窗体的 Hidc 方法和 Release 方法的作用完全相同 D. 若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体 10. 只能输出、而不能输入的数据感知控件是)。 A. DBEdit B. DBText C. DBRadioGroup U DBCheckBox 二、判断题{请给下列论述中正确的打上"~"，错误的打上 "X" 10 分，每题 分) ) 11. const c: = 80 的说明语句是合法的。 ( ) 12. Delphi 环境中，组件页上的组件是"对象"的概念，在窗体上建立的按钮是"类"的 概念。 ( ) 13. 所有的 Delphi 控件都有一个 Name 属性。 ( ) 14. Data Controls 组件页上，只有 DBNavigator 组件可以不用指定 DataField 属性 值。 ( ) 15. Delphi 中的菜单项有 种类型:普通按钮型、复选框型和单选按钮型。 1006
得 分 评卷人 三、填空题(20分，每空2分) 16.对象的三个要素是属性、方法和 17.结构化程序设计要求程序中仅采用 三种控制结 构，其中每种结构只能有一个入口和一个出口。 I8.Delphi应用程序中项目文件的扩展名是 19.在设计阶段，利用Image对象的 属性，可以加载一幅图片。 20.如果要在窗体上设计一个主菜单，首先要建立 对象。 21.Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用 组件与数据库建立连接，并读取数据库 中的数据，而后又经过 组件将数据送到用户界面组件中显示。 22.与数学表达式osa十b》-b对应的Object Pascal表达式是 a2+xy 23.利用Canvas对象的MoveTo和 绘图 方法，可以绘制一条。 24.RadioGroup对象中的单选按钮个数及名称是通过 属性来进行设置的。 得 分 评卷人 四、程序填空题（共30分，每题10分） 25.（10分，每空2分) 本程序根据用户选择的运算符对输人的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup】对象。 Forml 作数1 Edit1 选择 操作数134 操作数2 g 减 嵊作数2Edit2 2 除 结果dit3 结果 退出 退出 1007
三、填空题 (20 分，每空 分) 16. 对象的三个要素是属性、方法和 17. 结构化程序设计要求程序中仅采用 三种控制结 构，其中每种结构只能有→个人口和一个出口。 18. Delphí 应用程序中项目文件的扩展名是 19. 在设计阶段，利用 Image 对象的 属性，可以加载一幅图片。 20. 如果要在窗体 设计一个主菜单，首先要建立 对象。 21. Delphí 程序，与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用 组件与数据库建立连接，并读取数据库 中的数据，而后又经过 组件将数据送到用户界面组件中显示。 S2 (a b) 22. 与数学表达式一-一 ~-b 对应的 Object Pascal 表达式是 xy 23. 利用 Canvas 对象的 MoveTo 方法.可以绘制一条。 24. RadioGroup 对象中的单选按钮个数及名称是通过 四、程序填空题(共 30 分，每题 10 分) 25. (1 分，每空 分) 绘图 属性来进行设置的。 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有 个单选按纽的 RadioGroupl 对象。 1007
下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm1.Button1Click(Sender:TObject);// var x1,x2,y:Integer; begin x1:=StrTolnt(Edit1.D ）: x2:=StrToInt(Edit2.2 Case③ ItemIndex of 0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1￥x2; 3:y:=xl Div x2; End; Edit3.④ :=IntToStr(⑤ end; 26.(10分，每空2分) 本程序由主窗体forml和子窗体form2组成，设计界面如下图所示： Forml Form2 Fanell 是否退出。 图 Yes No 打开文件播体通 主窗体Forml上建立的对象有Panell、MediaPlayer1、OpenDialogl、Buttonl(打开文 件)、Button?2(播放)、Button3(暂停)、Button4(退出)。 子窗体Form2上建立的对象有Labell、BitBtml(Yes)、BitBtm2(No)。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播 放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 1008
下面是单击"运算"按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm1. ButtonlClickCSender:TObject);/ /运算 var xl ,x2 ,y:lnteger; begin end; xl: = StrTolnt(Edit1.() ; x2: = StrTolnt(Edit2.() ; Case ③ O:y: =xl x2; 1 : y : = xl - x2 ; 2 :y: =xl x2; 3 :y: =xl Div x2; End; . ltemlndex of Edit3.(: =IntToStrC() ; 26. (1 分，每空 分〉 本程序由主窗体 forml 和子窗体 form2 组成，设计界面如下图所示: 主窗体 Forml 上建立的对象有 Pane l1、 diaPlayerl OpenDialogl Buttonl 打开文 件)、 Button2( 播放)、 Button3( 暂停)、 Button4C 退出)。 子窗体 Form2 上建立的对象有 Label1、 BitBtml CYes) BitBtm2CNo) 主在击"打开文件"按钮，会弹出打开文件对话框。用户指定→个要播放的文件后，单击"播 放"按钮可播放多媒体文件，单击"暂停"按钮可暂停播放 1008
单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unitl的代码部分，请在下划线处完成程序填空。 implementation ($R*dfm) uses ① procedure TForm1,Button1Click(Sender:TObject);/打开文件 begin f② then begin MediaPlayer1.FileName:=3 MediaPlayer1.Open; MediaPlayerl.Display:=Panel1;/将Panell做为播放屏幕 MediaPlayer1.DisplayRect:=Rect(0,0,Panell.Width,Panell.Height); end; end; procedure TForm1.Button2Click(Sender:TObject);// begin MediaPlayer1.④ end; procedure TForml.Button3Click(Sender:TObject);// begin MediaPlayer1.Pause; end; procedure TForm1.Button4Click(Sender:TObject);// begin if⑤ =mrYes then close; end; end. 1009
单击"退出"按钮，会弹出确认对话框 CForm2) 。如果用户按 "Yes" 键，程序结束;如果按 "No"键，返回主窗体。 下面是 Unit1 的代码部分，请在下划线处完成程序填空。 implementation { $R 铸. dfm} uses ① procedure TForml. Button1ClickCSender: TObject);/ /打开文件 begin if ② begin MediaPlayerl. FileName: =③ MediaPlayer 1. Open; then MediaPlayer 1. Display: = Panel1 ; //将 Pane l1做为播放屏幕 MediaPlayerl. DisplayRect: =Rect(O , O, Panell. Width ,Panel1. Height); end; end; procedure TForm1. Button2ClickCSender: TObject) ; //播放 begin MediaPlayer 1.④ end; procedure TForml. Button3Click(Sender: TObject) ; //暂停 begin 1ediaPlayer l. Pause; end; procedure TForm1. Button4ClickCSender: TObject) ;//退出 begin if ⑤ =mrYes then c\ose; end; end. 1009