6. 通常控制组件在窗体中的可见属性是 ( ) A. Visible B. Name C. Showing D. Hint 7. 现建立一个简单报表, 要求其中要包含报表的汇总栏, 则在 Bands 属性的子属性中, 需要选择的是 ( ) A. ColumnHeader B. Detail C. T

Size: px

Start display at page:

Download "6. 通常控制组件在窗体中的可见属性是 ( ) A. Visible B. Name C. Showing D. Hint 7. 现建立一个简单报表, 要求其中要包含报表的汇总栏, 则在 Bands 属性的子属性中, 需要选择的是 ( ) A. ColumnHeader B. Detail C. T"

亥颓孔
5 years ago
Views:

1 试卷代号 : 座位号 [[] 中央广播电视大学学年度第二学期 " 开放专科 " 期末考试 Delphi 程序设计试题题号 I - I 二三四五总分分数 I I I I I I I 2013 年 7 月得分评卷人 - 单项选择题 ( 3 0 分, 每题 3 分 } 1. 下面哪句话对 D el p hi 的描述是正确的 ( ) A. 只能用于数据库客户端开发的工具 B. Delphi 的编程语言全部是面向过程的 C. Delphi 的编程语言是 Java D. 面向对象的可视化的开发环境 2. 结构化程序设计的基本原则或特特点不包括 ( ) A. 多态性 B. 自顶向下 c. 模块化 D. 逐步求精 3. 表达式 div 2 的值是 ( ) A. 66 C 一个 Delphi 应用程序必有一个 ( A. 执行程序 c. 数据 B. 79 D. 80 ) 文件和至少一个单元文件 B. 项目 D. 图形 5. 最适合于在工具栏上放置的工具按钮是 ( 1168 A. Button c. SpeedButton B. RadioButton D. BitBtrn

2 6. 通常控制组件在窗体中的可见属性是 ( ) A. Visible B. Name C. Showing D. Hint 7. 现建立一个简单报表, 要求其中要包含报表的汇总栏, 则在 Bands 属性的子属性中, 需要选择的是 ( ) A. ColumnHeader B. Detail C. Title D. Summary 8. 任何控件都有的属性是 ( ) A. BackColor B. Caption C. Name D. BorderStyle 9. 数据库组件中, 提供了对数据库读写操作功能的核心组件是 ( ) A. 数据源组件 B. 用户界面组件 C. 数据集组件 D. 数据感知控件 10. Delphi 中可以实现绘制直线的方法是 ( ) ACPAR 'ZAP-w OE VJ+L ne BDmL hun PAe 创30 T 得分评卷人 I I I 二判断题 { 请给下列论述中正确的打上 "...; ", 错误的打上 " X ", 1 0 分, 每题 2 分 ) ( )11. 函数 i n t ( )=2. 0 计算是正确的 ( )12. Delphi 是面向对象的可视化的开发环境, 编程语言采用 ObjectC ( )13. 所有的 D e l p h i 控件都有一个 N ame 属性 ( )14. ((x>=5)or(x<=-5))and(x in[l.. 9J) 当 x = 1 0 时, 表达式的值为假 ( 或 false) ( )15. 在一个项目中, 第一个建立的窗体固定就是主窗体, 并且再也不设置其他窗体为主窗体得分 l 评卷人 I-r-l 三填空题 ( 2 0 分, 每空 2 分 ) 16. 结构化程序设计的基本原则是取消 goto 语句, 程序中仅采用顺序和循环三种控制结构 1169

3 17. 一个对象是由属性方法和事件所组成属性表示对象中的数据, 是对象能够执行的动作, 是能够引起对象反应的条件 in 2 (x-y) 18. 与数学表达式 s 对应的 Object Pascal 表达式是 in(x2 _y2 19. Li s tbo x 对象列表框中的内容是通过属性来进行设置的 20. 调用主窗体的方法, 可以结束程序关闭窗体 2 1. 如果让界面上的一个按钮在运行的时候变为不可见, 需要将它的属性设为 Fa l s e 22. 利用 DBGr i d 的 23. 通过 Animate 对象的属性, 可以设置 DBGr id 每一列的标题和对齐方式等属性设置, 可以指定系统标准的 AVI 动画演示 24. 在 D e l p h i 集成开发环境中, 如果想要直接设置或者修改对象的属性, 可以通过对象查看器 ( O bj e c t Inspector) 中的窗口直接进行设置得分 l 评卷人 I / I 四程序填空题 ( 30 分, 每题 1 0 分 ) 25. (1 0 分, 每空 2 分 ) 应用程序的用户界面如下图所示 : 1170 功能说明 : 该界面是一个教师信息录入界面

4 用户在编辑框 ( Ed i t!) 中输入姓名, 利用单选按钮 ( Radi og ro up l ) 指定性别, 利用组合框 (ComboBoxl) 选择或直接输入所在系, 利用列表框 ( ListBoxl) 指定职称当输入完上述信息后, 单击 " 确定 " 按钮, 教师信息将显示在右边的 Memol 编辑窗口中下面是开发过程, 请完成填空部分 z 通过 Ra d i ogro up l 的 Items 属性设置两个单选按钮 (" 男 " 和 " 女勺, 并将属性 1 设置为 2 ( 按钮摆两列 ) 通过 C omb obo 乱的 2 属性设置下拉选单中的系名通过 Li s tboxl 的 I t ems 属性设置列表框中的职称列表 " 确定 " 按钮的单击事件处理程序如下 z procedure TForml. ButtonlClick(Sender:TObject); memol. Lines. Add(editl. 3 if radiogroupl. 4 );11 加入编辑框的内容 =0 thenli 判断选择了哪个按钮 memol. Lines. Add( 男 ' ) else memol. Lines. Add(' 女 ') ; memol. Lines. Add(comboboxl. Text);1 I 加入系的文本 memol. Lines. AddClistboxl. ( [listbox!. itemindex]) ;I I 加入职称 26. (1 0 分, 每空 2 分 ) 本程序由主窗体 fo r m l 和子窗体 fo r m2 组成, 设计界面如下图所示 : 主窗体上建立的对象有 P a n el1 A n imate 1 B u tt o n 1 ( 加载 A VI 文件 ) B u t t o n 2 ( 退出 ) Button3( 播放 ) Button4( 停止 ) 和 OpenDialog1 1171

5 子窗体上建立的对象有 L a b e ll B i t B tm l (Yes) BitBtm2(No) 单击 " 加载 A VI 文件 " 按钮, 会弹出打开文件对话框用户指定一个. avi 的文件后, 动画文件加载到 A n ima t el 显示区中单击 " 播放 " 按钮可播放动画, 单击 " 停止 " 按钮可停止播放单击 " 退出 " 按钮, 会弹出确认对话框 C F o r m 2 ) 如果用户按 " Y e s" 键, 程序结束 ; 如果按 "No" 键, 返回主窗体下面是 U n i tl 的代码部分, 请在下划线处完成程序填空 implementation {$ R 美. dfm} uses 1 procedure TForml. ButtonlClickCSender:TObject);// 加载 AVI 文件 if 2 then animatel. FileName: =3 procedure TForml. Button2ClickCSender: TObject);// 退出 if 4 =mryes then close; procedure TForml. Button3ClickCSender: TObject); / / 播放 animate1. Play(l,animate1. FrameCount,O) ; procedure TForml. Button4Click(Sender:TObject) ;/ / 停止 end animate 1. 5

6 27. (1 0 分, 每空 2 分本程序的功能是实现对 d ep 表 ( 系 ) -student 表 ( 学生 ) 的主从查询用户可以依次查询系的记录, 也可以通过指定系号, 查找并定位到指定的记录每当显示一个系的记录后, 系统自动显示该系的学生记录设计界面和运行界面如下 z 在 F o rml 上建立的主要对象及连接如下 z Databasel 一 Tablel C 与 dep 表相连 ) - DataSourcel-DBEditl-DBEdit3 Databasel-Queryl-DataSource2- DBGrid1C 显示学生信息 ) Editl. Buttonl C 查找 ) Button2C 下一记录 ) Button3C 上一记录 ) 等 Queryl 的 SQL 语句是 : select 祷 from student where dno= :dno 下面是 Un itl 单元的代码实现部分, 请完成程序填空 implementation { $ R 势. dfm} procedure TForml. Button2ClickCSender:TObject);// 下一记录 tablel. 1 procedure TForml. Button3ClickCSender: TObject) ;// 上一记录 1173

7 table l. 2 procedure TForml. ButtonlClick(Sender: TObject);// 查找 table1. 3 ('dno',editl. Text, [ ] ) ; procedure TForml. TablelAfterScroll(DataSet:TDataSet); queryl. Close; queryl. ParamByNameC'dno'). Value: =4 queryl. 5 end. 五编程题 (10 分 } 28. 某俱乐部拟对注册会员实施收费, 每位会员按整月每月收费 500 元整但是对注册时期较长的会员有价格优惠规则如下 : 注册 6 个月以下 ( 含 6 个月 ) 每月收费金额不变,6 至 12 个月实行 9 折收费,12 个月以上 ( 不含 12 个月 )7 折收费编程在 " 注册月数 " 框中输入会员欲注册的月数, 单击 " 计算 " 按钮后在 " 应收金额 " 框中显示应收会费总钱数单击 " 结束 " 按钮结束程序本程序设计界面及运行界面如下 : 1174

8 请编写单击 " 计算 " ( B u t to n l) 按钮的事件处理程序 procedure TForml. ButtonlC1ick(Sender: TObject); procedure TForml. Button2Click(Sender:TObject) ; Close; 1175

9 试卷代号 : 中央广播电视大学学年度第二学期 " 开放专科 " 期末考试 Delphi 程序设计试题答案及评分标准 ( 供参考 2013 年 7 月一单项选择题 ( 3 0 分, 每题 3 分 ) 1. D 2. A 3. C 6. A 7. D 8. C 二判断题 (1 0 分, 每题 2 分 ) 11..J 12. X 13..J 三填空题 ( 2 0 分, 每空 2 分 ) 16. 分支 17. 方法事件 18. sqr(sin(x- y» / sin(sqr(x) - sqr(y» 19. Item s 20. Close 21. Visible 22. Columns 23. CommonAVI 24. 属性或 Properties 四程序填空题 ( 30 分, 每题 1 0 分 ) 25. (1 0 分, 每空 2 分 ( Colum n (Items ( T ext ( Item Index (Items B 9. C 14..J 5. C 10. D 15. X

10 26. (1 0 分, 每空 2 分 ) ( unit 2 ( opendialog l. Execute ( opendialog l. FileName ( form2. ShowModal ( stop 27. (1 0 分, 每空 2 分 ) ( Next ( Pr ior ( Locat e ( tablel ['dno'] ( O pen 五编程题 ( 1 0 分 } 28. procedure TForml. ButtonlClick(Sender:TObject); Var mon: Integer; Money: Real; mon: =StrToInt(editl. Text); IF mon< = 6 Then Money: =500 铃 mon Else IF mon<=12 Then Money: =500 头 mon 铃 o. 9 Else Money: =500 蒋 mon 铃 0.7; edit2. text: =FloatToStr(Money); 1177

5. 最适合于在工具栏上放置的工具按钮是 ( ) 0 A. Button B. RadioButton C. SpeedButton D. BitBtm 6. 通常控制组件在窗体中的可见属性是 ( ) A. Visible B. Name C. Showing D. Hint 7. 现建立一个简单报

5. 最适合于在工具栏上放置的工具按钮是 ( ) 0 A. Button B. RadioButton C. SpeedButton D. BitBtm 6. 通常控制组件在窗体中的可见属性是 ( ) A. Visible B. Name C. Showing D. Hint 7. 现建立一个简单报试卷代号 :2235 座位号 OJ 国家开放大学 ( 中央广播电视大学 )2015 年春季学期 " 开放专科 " 期末考试 Delphi 程序设计试题 (A) 2015 年 7 月国四五总分一单项选择题 (30 分, 每题 3 分 } 1. 下面哪句话对 Delphi 的描述是正确的 ( ) A. 只能用于数据库客户端开发的工具 B. Delphi 的编程语言全部是面向过程的 C. Delphi