Delphi期末考试试卷.doc

《Delphi期末考试试卷.doc》由会员分享，可在线阅读，更多相关《Delphi期末考试试卷.doc（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、汕 头 职 业 技 术 学 院2006-2007学年第一学期期末试卷（A）课程名称 Delphi 学分拟题人 审题人系（校区）班级姓名学号题 号12345678910总 分得 分一选择题（每题2分，共3 0分）. 1、以下标识符中哪个是合法的Delphi标识符？ 。 ADelphi 7 BDelphi.7 C_Delphi_7_ D1st_class 2、下列对TADOQuery组件ADOQuery1的SQL属性正确操作的语句是 AADOQuery1.SQL.Clear:=; B. ADOQuery1.SQL.Close; CADOQuery1.SQL.Add:=select * from t

2、able1; DADOQuery1.SQL.Text:=select * from table1; 3、 组件没有Items属性。 ATComboBox B. TListBox C. TMemo D. TRadioGroup 4、有序类型不包括以下的哪一个？ AReal B. Integer C. Char D. Boolean5、以下哪个组件是可视组件？ ATDBGrid BTADOQuery CTDataSource D TADOConnection 6、以下哪个不是关系型数据库？ AAccess BADO CSQL Server DOracle 7、 是一种提供访问各种数据类型的连接机制

3、，是基于OLE-DB之上的技术，是微软提出的新标准，且力图将它树为新的统一数据库接口. ADAO B. ODBC C. ADO D. BDE 8、以下哪个组件是通过SQL属性来获取数据的？ ATDataSource B. TADOConnection C. TADOTable D. TADOQuery 9、ConnectionString属性是用于设置要连接的数据库的，以下哪个组件无该属性？ ATDataSource B. TADOConnection C. TADOTable D. TADOQuery10、要让菜单项的名字之前显示一个勾，应该设置菜单项的 属性值为true。 ADefault

4、 B. Checked C. Enabled D. Visible 11、如果想在界面中直观地显示一些几何图形，就要用到TShape组件，以下 属性用于设置它的形状。 ABrush B. Pen C. Shape D. Name 12、设n为整型变量，且已赋值为1898，表达式(n mod 100) div 10表示： A分离出个位数字 B分离出十位数字 C分离出百位数字 D分离出千位数字13、设有如下程序段：i :=1; repeat n :=i*i; i :=i+2; until n2*i;假设所有变量均已说明，问其中循环体的执行次数是：A1 B2 C3 D414、如果用户不希望别人看到他

5、在文本编辑框中输入的字符，可以将TEdit的 属性设置为*。 APasswordChar B. Caption C. Text D. Name15、若要设置TLabel组件中的文本在水平方向上居中对齐，应将 属性值设为taCenter。 AAlignment B. Layout C. WordWrap D. Transparent二填空题（第10、11空每空1分，其它每空2分，共4 0分）.1、 Delphi是在原有（1） 语言的基础之上发展走来的。2、 表达式 Succ(H)+Pred(U) 的值为 (2) 。3、 用布尔表达式表示下列命题： y -10,-1,或者y1,10 (3) ；n是

6、m的倍数 (4)。4、 OOP是一种非常重要的编程思想，它的三个特征是 (5) 、（6） 、（7） ，与该编程思想相对应的是面向过程编程，C语言就是面向过程编程的典型代表。5、 异常处理有两种结构：try.except.end形成了一个（8）保护块，try.finally.end形成了一个（9）保护块。正常情况下，except后面的语句(10) （会/不会）被执行，finally后面的语句(11) （会/不会）被执行.6、 Raise方法的作用是： （12） .7、 TRadioButton组件的（13）属性为True时，该单选按钮处于选中状态。8、 TBitBtn叫位图按钮，它的（14）属性

7、用来设置按钮的种类，可以选择bkAbort,bkOK,bkNO等，对于这些常用的位图按钮，Delphi已给它们作好了显示的文字，还附上了相应的图标。9、 Delphi提供了公共对话框组件供编程者直接使用，要打开这些对话框需要编写相应代码，一般的打开方式是调用这些对象的（15）方法。10、 数据库系统由三大部分组成： (16) ，(17) ，(18) . 目前，(19) 型数据库系统应用最为广泛。11、 TADOConnection组件用于与数据库建立连接，它有一个 （20) 属性，这个属性用于控制连接数据库时是否弹出登陆对话框，当它为True时，无论在ConnectionString中是否包含

8、了用户密码码信息，程序都将弹出一个登陆对话框。该组件可以获取数据库的数据表信息，这需要用到 （21) 方法。三判断题（每题1分，共5分） 1、对象的Name属性值可以为空。 2、TLabel和 TEdit组件都可以用于用户输入数据。 3、TStatusBar组件一般放置在窗体的底部，可以分成几个窗口，每个窗口可以显示不同的信息。4、在窗体的FormCreate事件过程中定义的变量是全局变量。5、当程序运行时，如果要求窗体中的某个按钮不再显示，只需将该按钮的Visible属性设置为false。四（10分）声明一个水果类TFruit ，私有成员为FName(水果名，string类型)，FColor

9、(颜色,TColor类型)，FTaste(味道,Ttaste类型)，公共属性为Color，从FColor里获取属性值，通过SetColor方法设置属性值，默认值为red，公共方法有Infor过程，没有参数。五（15分）数据库Contact.mdb中有“公司”表和“联系人”表，结构如下：公 司：公司编号，公司名称，地址，城市，省区市，邮政编码，地区，国家，网站；联系人：联系人编号，公司编号，姓名，出生日期，籍贯，电话，电子邮箱；两表通过“公司编号”关联，在窗体上显示地区为“北京”的公司的所有联系人姓名及其所在公司名称，如下图所示：窗体上ADOConnection1组件已连接了Contact.md

10、b，请对数据库组件的相关属性进行设置：ADOConnection1.LoginPrompt:= (1) ADOQuery1.Connection:= (2) ADOQuery1.SQL.Text:= (3) ADOQuery1.Active:= (4) DataSource1.DataSet:= (5) DBGrid1.DataSource:= (6) DBNavigator1.DataSource:= (7) 窗体上“排序”按钮的功能是对记录以“公司名称”进行升序排列，“过滤”按钮的功能是只显示姓郑的联系人的信息，请编写代码完成相应功能:procedure TForm1.BtnSortCli

11、ck(Sender: TObject); /排序begin (8) end;procedure TForm1.BtnFilterClick(Sender: TObject); /过滤begin (9) end;汕 头 职 业 技 术 学 院2006-2007学年第一学期期末试卷答题卷（A）课程名称Delphi系（校区）班级姓名学号一（30分）选择题.题 号123456789101112131415答 案二（40分）填空题. 1（1） 2（2） 3（3） （4） 4（5） （6） （7） 5（8） （9） （10） （11） 6（12） 7（13） 8（14） 9（15） 10（16） （17）

12、 （18） （19） 11（20） （21） 三（5分）判断题（在题号后打勾或打叉）. 1. 2. 3. 4. 5.四（10分）定义类五（15分）编程（1） （2） （3） （4） （5） （6） （7） （8）（9）汕 头 职 业 技 术 学 院2006-2007学年第一学期期末试卷答案（A）一CDCAA BCDAB CBCAA二(1)Pascal (2) IT (3) y=-10 and y=1 and y=10 (4) n mod m = 0 (5)数据封装 （6）继承性 （7）多态性(8)异常响应 (9)资源 (10)不会 (11)会 (12)抛出异常 (13)Checked (14)

13、kind (15)Excete (16)数据库 (17)数据库管理系统 (18)数据库应用程序 (19)关系(20)LoginPrompt (21)GetTableNames三FFTFT四Type TFruit=Class private FName:string; FColor: string; FTaste: Ttaste; public property Color: string read FColor write SetColor default red; procedure Infor; end;五（1）false (2) ADOConnection1 (3) select 联系人.姓名,公司.公司名称 from 联系人,公司 where 联系人.公司编号=公司.公司编号 and 公司.地区 like 北京%(where 联系人.公司编号=公司.公司编号 and 公司.地区=北京)(4) true (5) ADOQuery1 (6) DataSource1 (7) DataSource1(8) ADOQuery1.Sort:=公司名称 ASC;(9) ADOQuery1.Filtered:=false; ADOQuery1.Filter:=姓名 like 郑%; ADOQuery1.Filtered:=true;