Delphi 程序设计试题.pdf

试卷代号 2 23 5座位号 中央广播电视大学20112012学年度第二学期 开放专科 期末考试 Delphi程序设计试题 2012年7月 题号四五总分 一 一一 分数 得分 评卷人 一 单项选择题 30分 每题3分 1 Delphi程序设计的基本特点是 A 可视化程序设计B 代码程序设计 c 事件驱动编程D A和C 2 IV 下不是Delphi中对象编辑器的作用是 A 选择对象B 设置属性 c 添加事件D 编译程序 定制Delphi选项 3 x是小于100的非负数 的ObjectPascal表达式是 A 0 x 0 x 0 AND x 0 OR x 100 4 利用Image对象的哪个属性设置 可以使加载的图像自动放大 或缩小 以适应Image 的显示区域 A StretchB AutoSize B dpr D dfm C AlignD Center 5 工具栏上的一个SpeedButton按钮如果要设置为状态按钮 则正确设置的方法是 A 将SpeedButton按钮的GroupJndex属性设置为0 且A1lowA1IUp属性设置为True B 将SpeedButton按钮的GroupJndex属性设置为0 且A1lowA1lUpJ副主设置为False c 将SpeedButton按钮的GroupJndex属性设置为非O值 且A1lowA1lUp属性设置为1iue D 将SpeedButton按钮的GroupJndex属性设置为非O值 且A1lowA1lUp属性设置为False 6 Pascal单元文件的扩展名是 A dps C pas 1395 7 下列说法正确的是 A 组件必须是可视的 这样用户才能使用 B Delphi中组件就是控件 二者是完全相同的 C控件都是可视的 D 按钮 Button 是组件 而窗体 Form 则不是组件 8 以下能够触发编辑框 Edit 组件OnChange事件的操作是 A 鼠标单击编辑框B 鼠标双击编辑框 c 在编辑框中选择文本D 在编辑框中输入文本 9 以下叙述中错误的是 A 一个项目包含不止一种类型的文件 B 窗体的Show方法的作用是显示该窗体 c 窗体的Hide方法和Release方法的作用完全相同 D 若项目文件中有多个窗体 可以根据需要指定一个窗体为主窗体 10 只能输出 而不能输入的数据感知控件是 A DBEdit C DBRadioGroup 得分评卷人 B DBText D DBCheckBox 二 判断题 请给下列论述中正确的打上U 错误的打土 X 10 分 每题2分 1 1 时钟Timer组件的时间 间隔是由Interval属性控制 例如其值为1000时表示时间 间隔是1秒 12 在Delphi环境中 组件页上的组件是 对象 的概念 在窗体上建立的按钮是 类 的 概念 13 打开的数据集Table通过BDE访问一个数据表 则 调用Table的First方法可以 使记录指针指向table的第 个记录o 14 在DataControls组件页上 只有DBNavigator组件可以不用指定DataField属性值 15 图形组件没有输入焦点 不能接受用户的输入 它只具有向用户显示的功能 得分l评卷人 三 填空题 20分 每空2分 16 结构化程序设计要求程序中仅采用三种控制结构 其中每种结构只能有 个人口和一个出口 17 现实世界中对象具有自己的状态和行为 对应着 面向对象技术中的对象可以具有 自己的和方法 1396 18 Delphi应用程序中项目文件的扩展名是 19 在设计阶段 利用Image对象的属性 可以加载一幅图片 20 Delphi有三种控制循环的语句 repeat语句 语句 for语句 21 下面的语句用来删除Tmemo组件的第4行 请补充完整z memo1 lines deleteC 22 Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成 如果用 户要查询数据库中的一条信息 该指令通过用户界面组件发出 经数据源组件到达数据集组 件 数据集组件利用组件与数据库建立连接 并读取数据库 中的数据 而后又经过组件将数据送到用户界面组件中显示 S2Ca b 与数学表达式c v a对应的ObjectPascal表达式是 a 飞Z 24 利用对象的LineTo等绘图方法 可以绘制基本图形 得分 评卷人 四 程序填空题 30分 每题10分 一 仁 13亨丁 1 下面是单击 运算 按钮的事件处理程序 请根据功能要求完成程序填空 procedureTForm1 Button1ClickCSender TObject 运算 var xl x2 y Integer begin xl StrToIntCEditl x2 StrToIntCEdit2 Case ItemIndexof 1397 0 Y xl十x2 I Y xl x2 2 Y xl铸x2 3 y xlDivx2 End Edit3 IntToStr end 一一 一一一一一一一一一 一一 一一 一一 一一一一 一 一一一一一一 一一一一 一一一 26 10分 每空2分 本程序由主窗体form1和子窗体form2组成 设计界面如下图所示 拉玩丽由罐罐蠢 t二二工工工工二二盘问邱主i 是否退出 二 豆豆1 JS勘I 二 E如 J T 3 如iI l 毒 A 1 Form 甲需镰露露 主窗体Form1上建立的对象有Panell MediaPlayerl OpenDialogl Button1 打开文 件 Button2 播放 Button3 暂停 Button4 退出 子窗体Form2上建立的对象有Labell BitBtm1 Yes BitBtm2 No 单击 打开文件 按钮 会弹出打开文件对话框 用户指定一个要播放的文件后 单击 播 放 按钮可播放多媒体文件 单击 暂停 按钮可暂停播放 单击 退出 按钮 会弹出确认对话框 Form2 0如果用户按 YES 键 程序结束 如果按 No 键 返回主窗体 下面是Unitl的代码部分 请在下划线处完成程序填空 一一一一一一一 一一一一一一 一一 一一一一一一 一一一一一一 一一 一 一 一一甲 一一 一 一一 一 一 implementation R祷 dfm uses procedureTForml Button1Click Sender TObject 打开文件 begin if 1398 then begin MediaPlayerl FileName MediaPlayerl Open MediaPlayer1 Display Panel1 将Panen做为播放屏幕 MediaPlayerl DisplayRect Rect O O Panell Width Panell Height end end procedureTForml Button2ClickCSender TObject 播放 begin MediaPlayerL z end procedureTForml Button3ClickCSender TObject 暂停 begin MediaPlayerl Pause end procedureTForml Button4C1ickCSender TObject 退出 begin if mrYesthen close end end 27 10分 每空2分 本程序实现一个简单的选课界面 设计界面和运行界面如下图所示 u撞蘸黯弩且居单 F石司 一一宁市 R霜 翻翻 课程信息i i果号课各学分时间各额阜 cOl物理411i99 J 化学 lc0221498 c03外语1 l课号课各学分时间各额二 IcOl物化理 411199 21499 号c 023外掌 语 49 123 4 j牛 主干部 1主J 噎jj恩 学号 庐衍了 i选i果 该程序涉及到数据库中的两张表 course表 课程信息 和sc表 选课记录 表结构如下t course cno课号 cname课名 credit学分 ctirn巳时间 quota名额 scCsno学号 cno课号 grade成绩 在用户界面 操作员选中一门课 输入学号后 按 选课 键完成选课功能 即在sc表中插 入一条选课记录 并将cour se表中该课程名额减1 1399 该界面要实现以下合法性检查z 当该学生巳经选过此课 不能再选 当课程名额为0 不能再选 在Forml上建立的数据库组件对象及连接关系如下z Database1 Table1 与course表相连 DataSouree1 DBGrid1 显示课程信息 Database1 Query1 Query2 其中为Table1建立了永久 字段 Table1eno 课号人Table1ename 课程名人Table1quota 名额 等 Query1的SQL语句如下 selecteno fromse wheresno snoandeno eno Query2的SQL语句如下 InsertInto se values sno eno null 下面是Unit1的代码实现部分 请完成程序填空 一一一一一一一一一一一一一一一一 一一一一一一一一一一一一一一一一一一 implementation R祷 dfm procedureTForml Button1Cliek Sender TObjeet 选课 begin queryl Close queryl ParamByName sno Value queryl ParamByName eno Value table1eno Value queryl Open if nullthen begin showmessage 已选过该课程 exit end if 0then begin showmessage 没有名额 eXIt end query2 Close 1400 query2 ParamByNameC sno Value edit1 Text query2 ParamByNameC eno Value table1eno Value query2 table1 table1quota Value table1quota Value 1 课程名额减1 tablel Post end end 得分 评卷人 五 编程题 l0分 28 下图是本程序的设计界面 左 和运行界面 右 一一一一一一一一一一一 在form1上建立的对象有 Labell LabelS Edit1 Edit4 Button1C除键 和CheckBox1等 该程序实现除法运算 用户输入两个操作数 按除键后 整除结果显示在结果框中 输入的操作数必须是l SO之间的整数 如果输入有误 程序要给出错误提示信息 输入 有错 请重新输入 如果 显示余数 复选框选中 则除法余数显示在余数框中 否则不显示余数 请编写单击 除键 按钮的事件处理程序 procedureTForm1 Button1ClickCSender TObject begin end 1401 试卷代号 2 23 5 中央广播电视大学20 112012学年度第二学期 开放专科 期末考试 Delphi程序设计试题答案及评分标准 供参考 2012年7月 一 单项选择题 30分 每题3分 1 D 6 C 2 D 7 C 3 C 8 D 4 A 9 C 5 C 10 B 二 判断题 请给正确的打上 1口1 J12 X13 J14 X1臼5 J 三 填空题 归20分 每空2分 16 顺序 分支和循环 17 属性 18 dpr 或dpr 19 Picture 20 while 21 3 22 数据库连接数据源 23 sqr cos a b sqr a 铃x a或cos a b 铃cos a b a祷a提到 a 24 Canvas 四 程序填空题 共30分 每题10分 25 10分 每空2分 text text RadioGroup1 text y 26 10分 每空2分 unit2 opendialogl Execute 1402 opendialogl FileName Play form2 ShowModal 27 10分 每空2分 editl Text query1 cno table1quota Value ExecSQL Edit 五 编程题 10分 28 procedureTForml Button1Click S