6. 工具栏上的组按钮如果要构成互斥关系 ( 如 " 左对齐 " " 居中 " " 右对齐勺, 它们的 GroupIndex 属性正确的设置是 ) A. Grouplndex 属性值都为 O B. Grouplndex 属性值非 0, 且互不相同 C. GroupIndex 属性值非 0, 且相同

Size: px

Start display at page:

Download "6. 工具栏上的组按钮如果要构成互斥关系 ( 如 " 左对齐 " " 居中 " " 右对齐勺, 它们的 GroupIndex 属性正确的设置是 ) A. Grouplndex 属性值都为 O B. Grouplndex 属性值非 0, 且互不相同 C. GroupIndex 属性值非 0, 且相同"

霸米宾尹
5 years ago
Views:

1 试卷代号 :2235 座位号 E 口国家开放大学 ( 中央广播电视大学 )2014 年秋季学期 " 开放专科 " 期末考试 Delphi 程序设计试题 2015 年 1 月 E 四五厅 *l 一单项选择题 (30 分, 每题 3 分 } 1. Delphi 程序设计的基本特点是 ( ) A. 可视化程序设计 B. 代码程序设计 c. 事件驱动编程 D. A 和 C Z. 修改窗体的标题时, 应当在属性页中设置的属性是 ( ) A. Caption B. Name C. Text 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

2 6. 工具栏上的组按钮如果要构成互斥关系 ( 如 " 左对齐 " " 居中 " " 右对齐勺, 它们的 GroupIndex 属性正确的设置是 ) A. Grouplndex 属性值都为 O B. Grouplndex 属性值非 0, 且互不相同 C. GroupIndex 属性值非 0, 且相同 D. GroupIndex 属性值互不相同 7. 下列符号中哪个表示 Delphi 程序注释开始 ) A. // B.?? C. # u 一 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 分, 每题 2 分 ) ) 11. const c: = 80 的说明语句是合法的 ( ) 12. 在 Delphi 环境中, 组件页上的组件是 " 对象 " 的概念, 在窗体上建立的按钮是 " 类 " 的概念 ( ) 13. 所有的 Delphi 控件都有一个 Name 属性 ( ) 14. 在 Data Controls 组件页上, 只有 DBNavigator 组件可以不用指定 DataField 属性值 ( ) 15. Delphi 中的菜单项有 3 种类型 : 普通按钮型复选框型和单选按钮型 1006

三填空题 (20 分, 每空 2 分 ) 16. 对象的三个要素是属性方法和 17. 结构化程序设计要求程序中仅采用三种控制结构, 其中每种结构只能有个人口和一个出口 18. Delphí 应用程序中项目文件的扩展名是 19. 在设计阶段, 利用 Image 对象的属性, 可以加载一幅图片 20. 如果要在窗体 t 设计一个主菜单, 首先要建立对象 21.

3 三填空题 (20 分, 每空 2 分 ) 16. 对象的三个要素是属性方法和 17. 结构化程序设计要求程序中仅采用三种控制结构, 其中每种结构只能有个人口和一个出口 18. Delphí 应用程序中项目文件的扩展名是 19. 在设计阶段, 利用 Image 对象的属性, 可以加载一幅图片 20. 如果要在窗体 t 设计一个主菜单, 首先要建立对象 21. Delphí 程序, 与数据库之间进行数据交换一般要由多个数据库组件协作完成如果用户要查询数据库中的一条信息, 该指令通过用户界面组件发出, 经数据源组件到达数据集组件数据集组件利用中的数据, 而后又经过组件与数据库建立连接, 并读取数据库组件将数据送到用户界面组件中显示 S2 (a 十 b) 22. 与数学表达式一 - 一 ~-b 对应的 Object Pascal 表达式是 a 2 十 xy 23. 利用 Canvas 对象的 MoveTo 和绘图方法. 可以绘制一条 24. RadioGroup 对象中的单选按钮个数及名称是通过属性来进行设置的四程序填空题 ( 共 30 分, 每题 10 分 ) 25. (1 0 分, 每空 2 分 ) 本程序根据用户选择的运算符对输入的二个操作数进行运算, 并显示运算结果设计界面和运行界面如图所示其中, 运算符是一个含有 4 个单选按纽的 RadioGroupl 对象 1007

下面是单击 " 运算 " 按钮的事件处理程序, 请根据功能要求完成程序填空 procedure TForm1. ButtonlClickCSender:TObject);/ / 运算 var xl,x2,y:lnteger; xl: = StrTolnt(Edit1.() ; x2: = StrTolnt(Edit2.() ; Case 3.

4 下面是单击 " 运算 " 按钮的事件处理程序, 请根据功能要求完成程序填空 procedure TForm1. ButtonlClickCSender:TObject);/ / 运算 var xl,x2,y:lnteger; xl: = StrTolnt(Edit1.() ; x2: = StrTolnt(Edit2.() ; Case 3. ltemlndex of O:y: =xl 十 x2; 1 : y : = xl - x2 ; 2 :y: =xl 头 x2; End; 3 :y: =xl Div x2; Edit3.(: =IntToStrC() ; 26. (1 0 分, 每空 2 分本程序由主窗体 forml 和子窗体 form2 组成, 设计界面如下图所示 : 主窗体 Forml 上建立的对象有 Pane l1 M 巳 diaplayerl OpenDialogl Buttonl C 打开文件 ) Button2( 播放 ) Button3( 暂停 ) Button4C 退出 ) 子窗体 Form2 上建立的对象有 Labe l1 BitBtml CYes) BitBtm2CNo) 主在击 " 打开文件 " 按钮, 会弹出打开文件对话框用户指定个要播放的文件后, 单击 " 播放 " 按钮可播放多媒体文件, 单击 " 暂停 " 按钮可暂停播放 o 1008

5 单击 " 退出 " 按钮, 会弹出确认对话框 CForm2) 如果用户按 "Yes" 键, 程序结束 ; 如果按 "No" 键, 返回主窗体下面是 Unit1 的代码部分, 请在下划线处完成程序填空 implementation { $R 铸. dfm} uses 1 procedure TForml. Button1ClickCSender: TObject);/ / 打开文件 if 2 then MediaPlayerl. FileName: =3 MediaPlayer 1. Open; MediaPlayer 1. Display: = Panel1 ; // 将 Panel1 做为播放屏幕 MediaPlayerl. DisplayRect: =Rect(O, O, Panell. Width, Panel1. Height); procedure TForm1. Button2ClickCSender: TObject) ; // 播放 MediaPlayer 1.4 procedure TForml. Button3Click(Sender: TObject) ; // 暂停岛 1ediaPlayer l. Pause; procedure TForm1. Button4ClickCSender: TObject) ;// 退出 if 5 =mryes then c\ose; end. 1009

27. (1 0 分, 每空 2 分 ) 本程序实现一个简单的借书界面程序的设计界面和运行界面如下图所示 : 该程序涉及到数据库中的两张表 : books( 图书信息 ) 和 borrow( 借书记录 ) 表的结构为: books(bno, 书号, bname 书名, num 现有册数 ) borrowcrno 读者号, bno 书号, rdate 还书日期 ) 其中, rno 和 bno

6 27. (1 0 分, 每空 2 分 ) 本程序实现一个简单的借书界面程序的设计界面和运行界面如下图所示 : 该程序涉及到数据库中的两张表 : books( 图书信息 ) 和 borrow( 借书记录 ) 表的结构为: books(bno, 书号, bname 书名, num 现有册数 ) borrowcrno 读者号, bno 书号, rdate 还书日期 ) 其中, rno 和 bno 都是字符型 (3 位 ) 在用户界面, 操作员选中一本书输入借书证号后, 按 " 借书 " 键完成借书功能, 即在 borrow 表中插入一条借书记录, 并将 books 表中该书现有册数减 1 该界面要实现以下合法性检查 : 当该读者已经借了此书, 不能再借当所借的书现有册数为 0, 不能再借在 Forml 上建立的数据库组件对象及连接关系如下 : Databasel-Table lc 与 books 表相连 ) - DataSourcel-DBGridl ( 显示图书信息 ) Databasel-Table2C 与 borrow 表相连, 用于插入借书记录 ) Databasel-Query1 其中为 Tablel 建立了 3 个永久宇段 : Tablel bnoc 书号 ) Tablel bnamcc 书名 ) Tablelnum ( 现有册数 ) Queryl 的 SQL 语句如下 : select bno from borrow where rnc=, r 口 o and bno=, bno 下面是 Unit1 的代码实现部分, 请完成程序填空 : 1010 irnplementation { $ R 祷. dfm}

7 procedure TF orm1. Buttonl Click (Sender: TObject) ; / /" 借书 " 键 q uery 1. Close; query1. ParamByNameCrno'). Value: =1 query1. ParamByName(,bno'). Value: =2 queryl.open; if queryl['bno 丁 <> null then showmessage( 该读者正在借阅此书,) ; exlt; if 3 then showmessage (' 该书已全部借出,) ; exlt; table2. 4 ([editl. Text, tablelbno. Value, date 十 15J);// 插入借书记录 table 1.5 table1num. Value: =table1num. Value-1;/ / 现有册数减 1 tablel. Post; end. 得分评卷人五编程题 (10 分 ) 28. 本程序设计界面及运行界面如下图所示踵幽幽幽幽醋蜡摇摇摇 l 血 EE-- 醋蘸制蟠 1011

8 该程序的功能是 z 用户在界面上的两个编辑框 CEdit1 Edit2) 内分别输入两个正整数 M 和 N(M<N), 单击 " 计算 " 按钮 (Button1), 程序求出 M~N 之间所有能被 3 Memo1 对象中依次显示请编写单击 " 计算 " 按钮的事件处理程序 procedure TForml. Button1Click(Sender: TObject); 整除的数, 并在 1012

9 试卷代号 :2235 国家开放大学 ( 中央广播电视大学 )2014 年秋季学期 " 开放专科 " 期末考试 Delphi 程序设计试题答案及评分标准 ( 供参考 ) 2015 年 1 月 - 单项选择题 (30 分, 每题 3 分 } l. D 2. A 3. C 4. B 5. D 6. A 7. A 8. D 9. C 10. B 二判断题 { 请给正确的打上 "~", 错误的打上 "X", 10 分, 每题 2 分 ) 11. X 12. X 13..J 14. X 15..J 三填空题 (20 分, 每空 2 分 } 16. 事件 17. 顺序分支和循环 18.. dpr( 或 dpr) 19. Picture 20. MainMenu 2 1. 数据库连接组件数据源组件 22. sqr(cos(a 十 b))/(sqr(a)+x 善 y)-b 或 cos(a 十 b) 头 cos(a 十 b)/(a 祷 a 十 X 祷 y)-b 23. LineTo 24. Items 四程序填空题 { 共 30 分, 每题 10 分 ) 25. (1 0 分, 每空 2 分 ) ( text ( text ( RadioGroup1 ( text 1013

10 ( y 26. (1 0 分, 每空 2 分 ) ( unít2 ( opendialog1. Execute ( opendialog1. FileName ( Play ( form2. ShowModal 27. (1 0 分, 每空 2 分 ) ( edit1. Text ( table1bno. Value ( table1num. Value=o 4 lns 巳 rtrecord ( Edit 五编程题 (1 0 分 ) 28. procedure TForm1. ButtonlClick(Sender: TObject); var m, n, 1: lnteger; m: =StrTolntCedit1. Text); n: =StrTolnt(edit2. Text); Memo1. Clear; for i, = m to n do if i MOD 3=0 then memo 1. Lines. 八 dd (l nttostr (i)) ; end: 1014

5. 工具栏上的一个 SpeedButton 按钮如果要设置为状态按钮, 则正确设置的方法是 ( ) A. 将 SpeedButton 按钮的 Grouplndex 属性设置为 0, 且 Al l owal IUp 属性设置为 True B. 将 SpeedButton 按钮的 Grouplndex

5. 工具栏上的一个 SpeedButton 按钮如果要设置为状态按钮, 则正确设置的方法是 ( ) A. 将 SpeedButton 按钮的 Grouplndex 属性设置为 0, 且 Al l owal IUp 属性设置为 True B. 将 SpeedButton 按钮的 Grouplndex 试卷代号 : 2 2 3 5 座位号 I I I 中央广播电视大学 2 0 1 0-2 0 1 1 学年度第二学期 " 开放专科 " 期末考试 Delphi 程序设计试题题号 I - I 二三四五总分分数 I I I I I I I 2011 年 7 月得分评卷人一单项选择题 ( 3 0 分, 每题 3 分 ) 1. Delphi 程序设计的基本特点是 ( ) A. 可视化程序设计

6. 工具栏上的 组按钮如果要构成互斥关系 ( 如 " 左对齐 " " 居中 " " 右对齐勺, 它们的 GroupIndex 属性正确的设置是 ) A. Grouplndex 属性值都为 O B. Grouplndex 属性值非 0, 且互不相同 C. GroupIndex 属性值非 0, 且相同

6. 工具栏上的组按钮如果要构成互斥关系 ( 如 " 左对齐 " " 居中 " " 右对齐勺, 它们的 GroupIndex 属性正确的设置是 ) A. Grouplndex 属性值都为 O B. Grouplndex 属性值非 0, 且互不相同 C. GroupIndex 属性值非 0, 且相同