试卷代号：2235 座位号☐ 中央广播电视大学2011一2012学年度第一学期“开放专科”期末考试 Delphi程序设计 试题 2012年1月 题号 二 三 四 五 总 分 分 数 得 分 评卷人 一、单项选择题(30分，每题3分)】 l.Delphi程序设计的基本特点是()。 A.可视化程序设计 B.代码程序设计 C.事件驱动编程 D.A和C 2.窗体与数据模块的扩展名是( A..dcu B..dfm C..pas D..dpr 3.下列哪个常量说明语句是正确的？（ ) A.const x :=(c<16) B.const x:16 C.const x:=16 D.const x 16 4.“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) 5.Delphi支持3种类型的代码注释，以下哪种类型注释是错误的？() A.(}注释 B.(**)注释 C.//注释 D.++十注释 1447
试卷代号 2 2 3 座位号仁口 中央广播电视大学 0 11 2 0 2学年度第一学期"开放专科"期末考试 Delphi 程序 设 2012 年1 |题号 - |分数 I I I I I I 得分|评卷人 一、单项选择题 0分，每题 3分) 1. Delphi 设计 基本 )。 A. 视化 C. 件驱 2. 数据模 扩展 )。 B.代码程序设计 D. 和C A. . dCll B. . dfm C. .pas D. .dpr 3. ( ) A. canst x : = (c < 16) B. canst x : 16 C. canst x : = 16 D. canst x = 16 4."x 于100 e c Pascal 表达式 )。 A. 0 ζx < 100 B. x >= O. x<100 C. (x >=0) AND (x < 100) D. (x >= 0 ) OR (x<lOO) 5. Delphi 持3 种类 代码注释 哪种 型注 ( ) A.{}注释 (铸祷)注释 C. II 注释 十 + 1447
6.表达式30+19div2的值是()。 A.37 B.49 C.39 D.40 7.在RadioGroup组件中有4个单选框，当选中第2个单选框时，RadioGroup组件中的 ItemIndex属性值应为()。 A.0 B.1 C.2 D.3 &.以下能够触发编辑框(Edit)组件OnChange事件的操作是()。 A.鼠标单击编辑框 B.鼠标双击编辑框 C.在编辑框中选择文本 D.在编辑框中输人文本 9.现建立一个简单报表，仅包含报表标题栏、数据栏和汇总栏，则在Bads属性的子属性 中，不需要选择的是()。 A.Title B.Detail C.HasColumnHeader D.Summary 10.只能输出、而不能输人的数据感知控件是()。 A.DBEdit B.DBText C.DBRadioGroup D.DBCheckBox 得分 评卷人 二、判断题，请给下列论述中正确的打上“√”，错误的打上“X”(10 分，每题2分】 ( )11.const c:=80的说明语句是合法的。 ( )12.Memol.Lines..delete(1);是用来别除Memo组件的第1行。 ()l3.Tobject是delphi的基类，系统中的每一个类都是Tobject的子类。 ()14.对象的Name属性值可以为空。 ()15.一个Query对象同一时刻只能存储一条SQL语句。 1448
6. 式30 十19 div 值是 A. 37 C. 39 B. 49 D. 40 7. 在RadioGroup 组件 有4 第2 选框 RadioGroup It 值应 A. O C. 2 B. 1 D. 3 8. 能够 框(Edit) 件OnChange 作是 )。 A. 标单 辑框 B. 标双击 C. 辑框 选择 D. 人文本 9. 立一 报表标 在Bands 中，不需要选择的是( )。 A. Title C. HasColumnHeader B. Detail D. Summary 10. 而不 数据感 控件是 )。 A. DBEdit C. DBRadioGroup B. DBText D. DBCheckBox |得分|评卷人| I I I 二、判断题，请给下列论述中正确的打上"~"，错误的打上 (10 分，每题 2分} ( )11. canst c : = 80 是合法 ( )12. Memol. Lines. delete( 1 );是用来删除 o组件的第 1行。 ( ) 13. Tobject 是delphi 一个类 是Tobject 子类 ( )14. 的Name ( )1 e r 对象 存储 1448
得分 评卷人 三、填空题(20分，每空2分) 16.在面向对象的程序设计中，对象的属性用变量来表示，对象的 用代码来实现。 17.结构化程序设计要求程序中仅采用 、分支和循环三种控制结构。Delphi有 三种控制循环的语句：repeat语句，while语句， 语句。 18.调用主窗体的 方法，可以结束程序。 19.利用 对象的LineTo等绘图方法，可以绘制基本图形。 20.在设计阶段，利用Image对象的 属性，可以加载一幅图片。 2l,时钟组件(Timer)常称为“定时器”，它每隔固定的时间间隔可以触发一个 事件。 22.Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用 组件与数据库建立连接，并读取数据库中的 数据，而后又经过 组件将数据送到用户界面组件中显示。 23.与数学表达式ina+b)+a对应的Ob6 ecPascal表达式是 9-x 1449
|得分|评卷人| I I I 三、填空题 0分，每空 2分} 16. 在面 对象 设计 对象 变量来表示 用代码来实现。 17. 构化程序设计 仅采 三种控制循环的语句: repeat while 、分支和循环三种控制结构。 ph 语句。 18. 用 主窗 19. 利用 方法，可以结束程序。 对象的 o等绘图方法，可以绘制基本图形。 20. 属性，可以加载一幅图片。 1. 时 钟 组 Timer) 每 隔 间 间 隔 可 发 一 事件。 22. Delphi 序与 据库 进行 交换 数据库组 协作完 如果 户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组 件。数据集组件利用 数据，而后又经过 组件与数据库建立连接，并读取数据库中的 组件将数据送到用户界面组件中显示。 sin2(a 23. 学表 对应的Object Pascal 式是 1449
得分 评卷人 四、程序填空题（共30分，每题10分） 24.(10分，每空2分) 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。界面如 图。其中，运算符是一个含有4个单选按纽的RadioGroup组件，名称为RadioGroupl,标题分 别为“+”、“-”、“*”和“/”。程序运行后，在Editl.Edit2中输人两个整数值，选中一个单选 按钮后单击命令按钮，相应的计算结果显示在Edt3,程序运行情况如图所示。 Edit】 Edit2 Edit3 Fot】 @石区 操作数1 操作数2 运算结果 雨 一运算符 + 一 CX 计算 RadioGroupl But tonl 请填入适当的内容，将程序补充完整。 procedure TForm1.ButtonlClick(Sender:TObject); var x1,x2,y Integer; begin x1 :StrTolnt(Edit1.1 x2 :StrTolnt(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; 1450
四、程序填空题{共 0分，每题 0分) |得分|评卷人| I I I 24. (1 本程序根据用户选择的运算符对输入的二个操作数进行运算，并显示运算结果。界面如 图。其中，运算符是一个含有 4个单选按纽的 p组件，名称为 ro l，标题分 别为"+"、"一"、"祷"和"/"。程序运行后，在 tl. Edit2 输入两 个单 按钮后单击命令按钮，相应的计算结果显示在 3，程序运行情况如图所示。 Edit] Edit2 Edit3 … s … … V A • … r … Button1 请填入适当的内容，将程序补充完整。 procedure TForml. ButtonlClickCSender: TObject); Radi oGr OLlp1 var xl , x2 , y : Integer; xl : = StrTolnt( Edit l. x2 : = StrTolnt( Edit2. Case begin •Item lndex of 0: y : = xl 十x2 ; I: y : = xl - x2; x2; 3: y : = xl Div x2; End; Edit3. ( : = IntToStrC 2: y : = xl end; 1450
25.(10分，每空2分) 数据库mydb中有关系表student,其结构如下： student(sno学号，sname姓名，sex性别，birthday生日) 现编写一个学生信息浏览程序，设计界面和运行界面如下图所示： Formi 学号 DBEdit1 性别 DBEdit3 1001 性别男 姓名 DBEdit2 生日.DBEdit4 姓名 赵卫 生日1982-4-25 在下划线处填写相应数据库组件的属性值： Databasel.DatabaseName mydb Tablel.DatabaseName mydb Tablel.TableName student Tablel.Active ① Datasourcel.DataSet ② DBNavigator1.DataSource ③ DBEdit2.DataSource ④ DBEdit2.DataField ⑤ 26.(10分，每空2分) 本程序实现-一个简单的选课界面。设计界面和运行界面如下图所示： Forml 回× 7Forml 课程信总：国国 课程信急： 课程号课程名 名额 课程号课程名 名额· c01 物理 200 Hco1 物理 199 c02 化学 100 c02 化学 9 c03 外语 50 c03 外语 49 c04 力学 149 c04 力学 149- 学号： Editl 选课 國国 学号： 040001 选课 该程序涉及到数据库中的两张表：course(课程表)和sc(选课表)，表结构如下： sc(sno学号，cno课程号，grade成绩) course(cno课号，cname课名，quota名额) 其中：sno和cno都是字符型。 在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在s℃表中插 入一条选课记录，并将course表中该课程的名额减1。 该界面要实现以下合法性检查： 1451
25. (10 空2 数据库 ydb中有关系表 t，其结构如下: student (S110 性别 birthday 现编写一个学生信息浏览程序，设计界面和运行界面如下图所示: -酣睡酣嚼露 学号障国 姓名 蘸恶意同二届;主 :二字号:阿问:陈括费 ;如萨市旦陆牛二露: 注中兰卡?!宝宝: ，.四丽…回国国酣替罪 在下划线处填写相应数据库组件的属性值 Database1. DatabaseName : 'mydb Table1. DatabaseName : mydb Table1. TableName : student Table1. Active Datasource1. DataSet DBNavigator1. DataSource DBEdit2. DataSource DBEdit2. DataField 26. (10 每空 本程序实现一个简单的选课界面。设计界面和运行界面如下图所示: 险町百..醋蜡罐翻 该程序涉及到数据库中的两张表:course( 程表 和sc( ，表结构如下: sc(sno ，cno ，grade course(cno ，cname ，quota 其中 o都是字符型。 在用户界面，操作员选中一门书、输入学号后，按"选课"键，完成选课功能，即在c表中插 入一条选课记录，并将 r s e表中该课程的名额减1。 该界面要实现以下合法性检查: 1451