试卷代号：2235 座位号■■ 中央广播电视大学2010一2011学年度第-一学期“开放专科”期末考试 Delphi程序设计试题 2011年1月 题 号 一 二 三 四 五 总分 分 数 得分 评卷人 一、填空题（共20分，每空2分） 1.对象的三个要素是属性、方法和 2.结构化程序设计要求程序中仅采用 三种控 制结构，其中每种结构只能有一个入口和一个出口。 3.Delphi应用程序中项目文件的扩展名是 4.在设计阶段，利用Image对象的 属性，可以加载一幅图片。 5.如果要在窗体上设计一个主菜单，首先要建立 对象。 6.Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用 组件与数据库建立连接，并读取数据库 中的数据，而后又经过 组件将数据送到用户界面组件中显示。 7.与数学表达式osa十) a2+xy 十a对应的Object Pascal表达式是 8.利用 对象的LineTo等绘图方法，可以绘制基本图形。 9.RadioGroup对象中的单选按钮个数及名称是通过 属性来进行设置的。 1450
试卷代号 E 中央广播电视大学 2 0 11学年度第一学期"开放专科"期末考试 Delphi 程序 设 试题 2011 年1 |题号|一|二|三|四|五|总分| |分数 I I I I I I 得分|评卷人 一、填空题{共 0分，每空 2分} 1.对象的三个要素是属性、方法和 2. 化程 计要求程 制结构，其中每种结构只能有一个人口和一个出口。 3. Delphi 4. 设计 利用 5. 先要建立 6. Delphi 序与 进行数据交换一般要 个数据库 件协作完成 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用组件与数据库建立连接，并读取数据库 中的数据，而后又经过组件将数据送到用户界面组件中显示。 cos2 (a 7. 表 达 十a 对 应 的Object Pascal a2 + x y 8. 的LineTo 方法 基本 9. RadioGroup 选按 是通 1450
得分 评卷人 二、单项选择题（共30分，每题3分）》 1.Delphi程序设计的基本特点是( ）。 A.可视化程序设计 B.代码程序设计 C.事件驱动编程 D.A和C 2.修改窗体的标题时，应当在属性页中设置的属性是( )。 A.Caption B.Name C.Text D.Label 3.“x是小于100的非负数”的Object Pascal表达式是()。 A.0≤×<100 B.x>=0,x<100 C.(x>=0)AND(x<100) D.(x>=0)OR(x<100) 4.下列说法错误的是()。 A.窗体文件的扩展名为.dfm B.一个窗体对应一个窗体文件 C.Delphi中的一个工程只包含一个窗体 D.·~dpr和.~pas是备份文件，便于用户恢复到较早的一个项目版本 5.要改变一个对象的高度，应使用属性( )。 A.Font B.ForcColor C.Name D.Height 6.工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右对齐”），它们的 GroupIndex属性正确的设置是()。 A.GroupIndex属性值都为0 B.GroupIndex属性值非O,且互不相同 C.GroupIndex属性值非0，且相同 D.GroupIndex属性值互不相同 7.下列说法正确的是()。 A.组件必须是可视的，这样用户才能使用 B.Delphi中组件就是控件，二者是完全相同的 C.控件都是可视的 D.按钮(Button)是组件，而窗体(Form)则不是组件 1451
|得分|评卷人| I I I 二、单项选择题{共 0分，每题 3分} 1. Delphi 设计 基本特 )。 A. 化程 计B. 程序设计 C. 动编 D.A 和C 2. 标题 性是 )。 A. Caption C. Text B. Name D. Label 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.窗体文件的扩展名为.dfm B. 体对应 文件 C. Delphi D. . ~dpr ~pas 版本 5. 变一 对象 )。 A. Font C.Name B. ForcColor D. Height B. GroupIndex 非0 互不 D. GroupIndex 性值互不相 6. 成互 GroupIndex 置是 )。 A. GroupIndex C. Grouplndex 性值非0 7. 下列 )。 A. 件必 B. Delphi 就是控件 者是完 同 的 C. 都是 D. 钮(Button) 体(Form) 1451
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分) l.时钟Timer组件的时间间隔是由Interval属性控制，例如其值为l000时表示时间间 隔是1秒。() 2.在Delphi环境中，组件页上的组件是“对象”的概念，在窗体上建立的按钮是“类”的概 念。() 3.一个Table对象不能同时指定与之相连的两个关系表。() 4.在Data Controls组件页上，只有DBNavigator组件可以不用指定DataField属性值。 () 5.Delphi中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型。() 1452
8. 够触发 框(Edit) 件OnChange )。 A.鼠标单击编辑框 B. 标双击 辑框 c.在编辑框中选择文本 D. 辑框 输入文本 9. 错误 )。 A.一个项目包含不止一种类型的文件 B. Sh C. 的Hide 方法和Release 方法 用完 D. 根据需要指 主窗 10. 数据感 )。 A. DBEdit B. DBText C. DBRadioGroup D. DBCheckBox |得分|评卷人| I I I 三、判断题{请给下列论述中正确的打上 ...j .错误的打上 10 1.时钟 r组件的时间间隔是由 l属性控制，例如其值为 0 0 0时表示时间间 隔是 1秒。( ) 2. 在Delphi 组件 件是 概念 体上 念。( ) 3. 个Table 对象不能 时指 相连 ) 4. 在Data Controls 有DBNavigator 用指定DataField ( ) 5. Delphi 有3 型z 普通按钮 选框 单选按钮 ) 1452
得分 评卷人 四、程序填空题（共30分，每题10分） 1.(10分，每空2分) 本程序根据用户选择的运算符对输人的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有4个单选按纽的RadioGroup1对象。 f0rI1】 Forttl Editl Edit2 Edit3 下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm1.ButtonlClick(Sender:TObject);// var x1,x2,y Integer; begin x1 :StrToInt(Edit1.1 x2 :=StrToInt(Edit2.2 )； Case③ ItemIndex of 0:y:=x1+x2; 1:y:=x1-x2; 2:y:=x1*x2; 3:y :x1 Div x2; End; Edit3.④ :=IntToStr(⑤ end; 1453
|得分|评卷人| I I I 四、程序填空题{共 0分，每题 0分) 1. (1 每空 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。设计界 面和运行界面如图所示。其中，运算符是一个含有 4个单选按纽的 l对象。 下面是单击"运算"按钮的事件处理程序，请根据功能要求完成程序填空。 procedure TForm!' ButtonlClick(Sender: TObject); / /运算 var xl ,x2 ,y :Integer; begin xl : = StrToInt( Edit!. ( h x2 : = StrToInt( Edit2. ( h Case (.ItemIndex of O:y:=xl+ x2 ; l:y:=xl- x2; 2: y := xl 祷x2; 3: y := xl Div x2; end; End; Edit3. : = IntToStr( 1453
2.(10分，每空2分) 本程序由主窗体forml和子窗体form2组成，设计界面如下图所示： Formt Forn2 是否退出 四 Yes 打进文件出 主窗体Forml上建立的对象有Panell、MediaPlayer1、OpenDialog1、Button1(打开文 件)、Button22(播放)、Button3(暂停)、Button4(退出). 子窗体Form2上建立的对象有Labell、BitBtml(Yes)、BitBtm2(No)。 单击“打开文件”按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击“播 放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。 单击“退出”按钮，会弹出确认对话框(Form2)。如果用户按“Yes”键，程序结束；如果按 “No”键，返回主窗体。 下面是Unit1的代码部分，请在下划线处完成程序填空。 implementation {$R￥.dfm} uses ① procedure TForml.ButtonlClick(Sender:TObject); /打开文件 begin if then begin MediaPlayerl.FileName :=3 MediaPlayerl.Open MediaPlayer1..Display:=Panell;/将Panell做为播放屏幕 MediaPlayer1.DisplayRect :=Rect(0,0,Panell.Width,Panell.Height); end end; procedure TForml.Button2Click(Sender:TObject);// 1454
2. (1 本程序由主窗体 1和子窗体 2组成，设计界面如下图所示: 主窗体 1上建立的对象有 ll、 、OpenDialog1 、Button1 (打开文 件)、 tt (播放)、 tt (暂停)、 tt (退出)。 子窗体 2上建立的对象有 ll、 (Yes) 、BitBtm2(No) 单击"打开文件"按钮，会弹出打开文件对话框。用户指定一个要播放的文件后，单击"播 放"按钮可播放多媒体文件，单击"暂停"按钮可暂停播放。 单击"退出"按钮，会弹出确认对话框 )。如果用户按 "键，程序结束;如果按 "No" 主窗 下面是 it1的代码部分，请在下划线处完成程序填空。 implementation { $R dfm} uses procedure TFormlo Button1Click(Sender: TObject); / /打开文件 begin if then begin MediaPlayerlo FileName: =③ MediaPlayerlo Open; MediaPlay巳rlo Display: = Panell; / /将 ll 放屏幕 MediaPlayerlo DisplayRect : =Rect(O , 0 ,Panell. Width ,Panell. Height); end; end; procedure TFormlo Button2Click(Sender: TObject); / /播放 1454