7. 下列说法正确的是 ( ) A. 组件必须是可视的, 这样用户才能使用 B. Delphi 中组件就是控件, 二者是完全相同的 C 控件都是可视的 D. 按钮 (Button) 是组件, 而窗体 (Form) 则不是组件 8. 以下能够触发编辑框 (Edit) 组件 OnChange 事件的操作

Size: px

Start display at page:

Download "7. 下列说法正确的是 ( ) A. 组件必须是可视的, 这样用户才能使用 B. Delphi 中组件就是控件, 二者是完全相同的 C 控件都是可视的 D. 按钮 (Button) 是组件, 而窗体 (Form) 则不是组件 8. 以下能够触发编辑框 (Edit) 组件 OnChange 事件的操作"

畔斐仇
5 years ago
Views:

1 试卷代号 : 座位号中央广播电视大学学年度第二学期 " 开放专科 " 期末考试 Delphi 程序设计试题 2012 年 7 月题号四五总分分数一一一得分评卷人一单项选择题 ( 3 0 分, 每题 3 分 } 1. Delphi 程序设计的基本特点是 ( ) A. 可视化程序设计 B. 代码程序设计 c. 事件驱动编程 D. A 和 C 2. IV. 下不是 De l p hi 中对象编辑器的作用是 ( ) A. 选择对象 B. 设置属性 c. 添加事件 D. 编译程序, 定制 De l p hi 选项 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. 利用 Im ag e 对象的哪个属性设置, 可以使加载的图像自动放大或缩小, 以适应 Ima g e 的显示区域? ( ) A. Stretch B. AutoSize C. Align D. Center 5. 工具栏上的一个 SpeedButton 按钮如果要设置为状态按钮, 则正确设置的方法是 ( ) A. 将 SpeedButton 按钮的 GroupJndex 属性设置为 0, 且 A1lowA1IUp 属性设置为 True B. 将 SpeedButton 按钮的 GroupJndex 属性设置为 0, 且 A1low A1lUp J 副主设置为 Fal se c. 将 SpeedButton 按钮的 Group J ndex 属性设置为非 O 值, 且 A1 lowa1 lup 属性设置为 1i ue D. 将 SpeedButton 按钮的 GroupJndex 属性设置为非 O 值, 且 A1lowA1lUp 属性设置为 False 6. Pascal 单元文件的扩展名是 ( ) A. dps C. pas B. dpr D. dfm 1395

2 7. 下列说法正确的是 ( ) A. 组件必须是可视的, 这样用户才能使用 B. Delphi 中组件就是控件, 二者是完全相同的 C 控件都是可视的 D. 按钮 (Button) 是组件, 而窗体 (Form) 则不是组件 8. 以下能够触发编辑框 (Edit) 组件 OnChange 事件的操作是 ( ) A. 鼠标单击编辑框 B. 鼠标双击编辑框 c. 在编辑框中选择文本 D. 在编辑框中输入文本 9. 以下叙述中错误的是 ( ) A. 一个项目包含不止一种类型的文件 B. 窗体的 S h ow 方法的作用是显示该窗体 c. 窗体的 H i de 方法和 Re l ea se 方法的作用完全相同 D. 若项目文件中有多个窗体, 可以根据需要指定一个窗体为主窗体 10. 只能输出而不能输入的数据感知控件是 ( ) A. DBEdit C. DBRadioGroup B. DBText D. DBCheckBox 得分评卷人二判断题, 请给下列论述中正确的打上 U...) ", 错误的打土 " X " ( 1 0 分, 每题 2 分 ) ( ) 1 1. 时钟 Timer 组件的时间间隔是由 Interval 属性控制, 例如其值为 1000 时表示时间间隔是 1 秒 ( ) 12. 在 Delphi 环境中, 组件页上的组件是 " 对象 " 的概念, 在窗体上建立的按钮是 " 类 " 的概念 ( ) 13. 打开的数据集 Table 通过 BDE 访问一个数据表, 则调用 Table 的 First 方法可以使记录指针指向 t a b le 的第 - 个记录 o ( ) 14. 在 Data Con trol s 组件页上, 只有 DBNa vigator 组件可以不用指定 Da tafi eld 属性值 ( ) 15. 图形组件没有输入焦点, 不能接受用户的输入, 它只具有向用户显示的功能得分 l 评卷人三填空题 ( 2 0 分, 每空 2 分 ) 16. 结构化程序设计要求程序中仅采用三种控制结构, 其中每种结构只能有个人口和一个出口 17. 现实世界中对象具有自己的状态和行为对应着, 面向对象技术中的对象可以具有自己的和方法 1396

18. Delphi 应用程序中项目文件的扩展名是 19. 在设计阶段, 利用 Image 对象的属性, 可以加载一幅图片 20. Delphi 有三种控制循环的语句 : repeat 语句, 语句, for 语句 2 1. 下面的语句用来删除 Tmemo 组件的第 4 行, 请补充完整 z memo1. lines. deletec ) ; 22.

3 18. Delphi 应用程序中项目文件的扩展名是 19. 在设计阶段, 利用 Image 对象的属性, 可以加载一幅图片 20. Delphi 有三种控制循环的语句 : repeat 语句, 语句, for 语句 2 1. 下面的语句用来删除 Tmemo 组件的第 4 行, 请补充完整 z memo1. lines. deletec ) ; 22. Delphi 程序与数据库之间进行数据交换一般要由多个数据库组件协作完成如果用户要查询数据库中的一条信息, 该指令通过用户界面组件发出, 经数据源组件到达数据集组件数据集组件利用组件与数据库建立连接, 并读取数据库中的数据, 而后又经过组件将数据送到用户界面组件中显示 S2 Ca +b). 与数学表达式 c? v +a 对应的 O bj e c t Pascal 表达式是 a- ) 飞 Z 24. 利用对象的 L i neto 等绘图方法, 可以绘制基本图形得分评卷人四程序填空题 ( 30 分, 每题 1 0 分 }.:" ' 仁 :13 亨丁 : 1 一下面是单击 " 运算 " 按钮的事件处理程序, 请根据功能要求完成程序填空 procedure TForm1. Button1ClickCSender: TObject);// 运算 var xl, x2, y : Integer; xl : = StrToIntC Edit l. 1 x2 : = Case 3 StrToIntC Edit2. 2 ) ;. ItemIndex of 1397

4 0: Y : = xl 十 x2 ; I: Y : = xl - x2; 2: Y : = xl 铸 x2; 3: y : = xl Div x2; End; Edit3. 4 : = IntToStr( 5 一一 - 一一一一一一一一一 - 一一 ----, 一一 - 一一一一一一一 - 一一一一一一, 一一一一 - 一一一 26. (1 0 分, 每空 2 分 ) 本程序由主窗体 f o rm1 和子窗体 f o rm2 组成, 设计界面如下图所示 : 1: Form],,,': 甲需镰露露拉玩丽由罐罐蠢 t 二二工工工工二二盘问邱主 i E 如 J{T3 如 i I~ l~..., 毒 A., 是否退出 : 二 :;: 豆豆 1 : J S 勘 I ; 二主窗体 Fo rm1 上建立的对象有 P a n e l l. MediaPlayerl. OpenDialogl. Button1 ( 打开文件 ) B u t to n 2 ( 播放 ) Bu t t o n3 ( 暂停 ) B u tto n4 ( 退出 ) 子窗体 Fo rm2 上建立的对象有 La b e ll. BitBtm1 (Yes) BitBtm2(No) 单击 " 打开文件 " 按钮, 会弹出打开文件对话框用户指定一个要播放的文件后, 单击 " 播放 " 按钮可播放多媒体文件, 单击 " 暂停 " 按钮可暂停播放单击 " 退出 " 按钮, 会弹出确认对话框 ( Fo r m 2 ) 0 如果用户按 " Y E S " 键, 程序结束 ; 如果按 "No" 键, 返回主窗体下面是 U n i tl 的代码部分, 请在下划线处完成程序填空一一一一一一一 - 一一一一一一 - 一一 - 一一一一一一 - 一一一一一一 - 一一 -- 一 - 一 - - 一一甲一一 - 一 ~ 一一 - 一 -- 一 implementation {$ R 祷. dfm} uses 1 procedure TForml. Button1Click(Sender: TObject); / / 打开文件 1398 if 2 then

5 MediaPlayerl. FileName: =3, MediaPlayerl. Open; MediaPlayer1. Display : = Panel1;!! 将 Pan en 做为播放屏幕 MediaPlayerl. DisplayRect : =Rect(O,O,Panell. Width,Panell. Height); procedure TForml. Button2ClickCSender: TObject);!! 播放 MediaPlayerL(z procedure TForml. Button3ClickCSender: TObject); /! 暂停 MediaPlayerl. Pause; procedure TForml. Button4C1ickCSender: TObject);!! 退出 if ( = mryes then close; end. 27. (1 0 分, 每空 2 分 ) 本程序实现一个简单的选课界面设计界面和运行界面如下图所示 : 翻翻 R 霜 l 课号课各学分时间各额二 ~Ic O l 物化理 ~ 4 - ~ 号 c 023 外掌语 """.,.-ιj 牛. F 石司 γ 一一宁市 u 撞蘸黯弩且居单课程信息 i i 果号课各学分时间各额阜 col 物理 4 11 i99...j ~lc02 化学 c03 外语 1. 主干部 : 1 主 J : 噎 j j 恩学号 : 庐衍了 i 选 i 果该程序涉及到数据库中的两张表 : course 表 ( 课程信息 ) 和 sc 表 ( 选课记录 ) 表结构如下 t course(cno 课号,cname 课名, credit 学分,ctirn 巳时间, quota 名额 ) sccsno 学号,cno 课号,grade 成绩 ) 在用户界面, 操作员选中一门课输入学号后, 按 " 选课 " 键完成选课功能, 即在 sc 表中插入一条选课记录, 并将 co u r se 表中该课程名额减

6 该界面要实现以下合法性检查 z 当该学生巳经选过此课, 不能再选当课程名额为 0, 不能再选在 F o rm l 上建立的数据库组件对象及连接关系如下 z Database1-Table1 ( 与 co u r s e 表相连 ) -Da t aso u r e e 1 -DBGr i d 1 ( 显示课程信息 ) Database1-Query 1 Query2 其中为 Ta b l e 1 建立了永久字段 : Table1eno( 课号人 Table1ename( 课程名人 Table1quota ( 名额 ) 等 Query1 的 SQL 语句如下 : select eno from se where sno = : sno and eno = : eno Query2 的 SQL 语句如下 : Insert Into se values( : sno, :eno, null ) 下面是 U n i t 1 的代码实现部分, 请完成程序填空 : 一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一 - implementation { $ R 祷. dfm} procedure TForml. Button1Cliek(Sender: TObjeet); / / 选课 queryl. Close; queryl. ParamByName( sno'). Value:= 1, queryl. ParamByName( eno'). Value: = table1eno. Value; queryl. Open; if 2 <> null then showmessage(, 已选过该课程,) ; exit ; if 3 = 0 then showmessage( 没有名额, ) ; exit; query2. Close; 1400

7 query2. ParamByNameC sno'). Value: = query2. ParamByNameC eno'). Value: = edit1. Text; table1eno. Value; query2. 4 table1. 5 table1quota. Value:= table1quota. Value - 1;// 课程名额减 1 tablel. Post ; end. 得分评卷人五编程题 (l0 分 ) 28. 下图是本程序的设计界面 ( 左 ) 和运行界面 ( 右 ) : 一一一一一一一一一一一在 form1 上建立的对象有 : Labell ~ LabelS Edit 1 ~ Edit4 Button 1 C 除键 ) 和 CheckBox1 等该程序实现除法运算用户输入两个操作数, 按除键后, 整除结果显示在结果框中输入的操作数必须是 l ~ S O 之间的整数如果输入有误, 程序要给出错误提示信息 " 输入有错, 请重新输入 " 如果 " 显示余数 " 复选框选中, 则除法余数显示在余数框中, 否则不显示余数请编写单击 " 除键 " 按钮的事件处理程序 procedure TForm1. Button1ClickCSender: TObject); 1401

8 试卷代号 : 中央广播电视大学学年度第二学期 " 开放专科 " 期末考试 Delphi 程序设计试题答案及评分标准 ( 供参考 ) 一单项选择题 ( 30 分, 每题 3 分 } 2012 年 7 月 1. D 2. D 3. C 4. A 5. C 6. C 7. C 8. D 9. C 10. B 二判断题 ' 请给正确的打上 1 口 1..J 12. X 13..J 14. X 1 臼 5..J 三填空题 { 归 2 0 分, 每空 2 分 } 16. 顺序分支和循环 17. 属性 18.. dpr ( 或 dp r ) 19. Picture 20. while 数据库连接数据源 23. sqr(cos(a~b» /(sqr(a) 铃 x)~a 或 cos(a~b) 铃 cos(a~b) /(a 祷 a 提到 ~a 24. Canvas 四程序填空题 { 共 30 分, 每题 1 0 分 } 25. (1 0 分, 每空 2 分 ) ( text ( RadioGroup1 ( text ( y 26. (1 0 分, 每空 2 分 ) ( unit 2 ( opendialogl. Execute 1402

9 ( opendialogl. FileName ( Play ( form2. ShowModal 27. (1 0 分, 每空 2 分 ) ( editl. Text ( query1['cno'] ( table1quota. Value ( ExecSQ L ( Edit 五编程题 (1 0 分 } 28. procedure TForml. Button1Click(Sender: TObject); var x,y,z : Integer ; x : = strtoint(editl. Text) ; y : = strtoint(edit2. Text) ; if «x>=l) and (x<=50»and «y>=l) and (y<=50» then Z : = x div y ; edit3. Text : = inttostr(z); ifcheckbox1.checked then edit4. Text: = inttostr(x mod y) else edit4. Clear ; end else showmessagec 输入有错, 请重新输入, ) ; exit; 1403

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. 可视化程序设计