一 选择题 (30分)
1、下列关于Delphi6的叙述中，哪种是不正确的（ D ）
A) Delphi6属于第四代语言
B) Delphi6基于面向对象编程方法，是一种可视化开发工具
C) Delphi6结构严谨、数据类型丰富
D) Delphi6的主窗口就是窗体Form
2 . 定义构造函数时用到的保留字是定义构造函数时用到的保留字是（b）
A Dstroy B destructor C constructor D create
3．INTEGER型数据是32位无符号数（b）
A 错误 B 正确
4．下列组件中不能获得焦点的是（C）
A edit B Listbox C Memo D MainMenu
5．以下运算符中运算优先级最低的是（）
A not B or C >= D *
6．TEIDT组件中编辑框内字符数可以不受限制（）
A 正确 B 错误
7. label标签中文本不可以换行（）
A 正确 B错误
8．Delphi 中所以类都是由Tobject类继承下来的，所以类都是它的子类（）
A 正确 B错误
9．Pascal单元扩展文件名是（A）
A .pas B .dps C .dpr D .dfm
10下列组件中不是可视组件的是（）
A MaskEdit B TImagelist C Tlable D Radiobutton
11可以通过在components板上按下（）键，同时单击选择的组件，在Form上建立任意多个组件
A shift B ctrl C ctrl+shift D以上都可以
12．编译一个项目（Application）的快捷键是（）
A F5 B. F7 C . F8 D 、F9
13．Object Pascal 不支持的注释类型是（A）
A B .{......} C .// D .(*....*)
14．过程声明中多个不同类型的参数之间用什么符号隔开（D）
A 点句号 B 冒号 C 逗号 D 分号
15．TEDIT组件的Passwordchar属性取值可以决定是否为密码输入状态，该属性可取下列那一个值可改变这种输入状态（）
A ．#3 B．#10 C．#0 D．*
16、一个子类将自动继承其父类所有成员,其中不包括的是（）
A 对象 B 属性 C 域 D 方法
17、 以下不是对象编辑器的作用是（）
A选择对象 B设置属性 C添加事件 D移动控件
18、以下那些不是面向对象的特性（D
）
A 封装 B 继承 C 多态 D方法
.5, 4.5)
21以下哪个不属于数据库管理系统的功能( )
A描述数据库 B维护数据库 C数据传输 D数据监听19．Pascal单元文件的扩展名是（ C）
(A) .dps (B) .dpr (C).pas (D) .dfm
20以下正确的枚举类型定义是：（A ）
（A） type weekdays = (monday,Tuesday,wednesday);
(B) type colors = (red, blue, green, red);
(C)type num =(1..3, 8..10);(D)type realtype =(1.5, 2.5, 3
22．Tabel:Ttabel；则程序中Tabel.open语句的作用与语句
Tabel.Active:=True等价（）
A 错误 B. 正确
23以下哪种不是 Delphi 6中数据集的主要表现形式：( )
A表（Table） B查询(Query) C存储过程(storedproc) D SQL编辑器
24．下列哪种类型的常量不能用来定义子界类型?( )
A．实型数据（Real） B．整型（Integer）
C．字符型（Character） D．用户定义的任何顺序类型
25．下列组件中哪种属于非可视组件？( )
A．Tbutton B．Tedit C．Tlabel D．TopenDialog
1、在菜单的设计中设置快捷键的方式为_____&加字母_________________.
2方法MoveBy（n） 当n为负,则将记录指针___上_____移动n条记录
3．打开的数据集Table通过BDE访问一个Paradox表，则调用Table的_______方法可以使数据集table 的记录指针指向第一个记录。
4下面的语句用来删除Tmemo组件的第2行，请补充完整：
memo1.lines.delete( );
5.在修改数据前检查Tquery组件的状态，发现处于浏览（ Dsbrowse）状态，该Tquerry组件的request live属性已经为真，则调用该Tquerry组件的___ ______方法可以将其改为可修改状态。
6、 Delphi数据库控制组件包括_____________,________________两类
四 读程序（20分）
1、判断以下子界类型定义的语句是否正确，如果错误请改正：
(A) type num = 1.0 .. 100.20; ______________________
(B) type num = 1 .. 100; _______________________
(C) const
x=1;
y=21;
type
num1=x..y;
num2=x..y-x; _______________________
(D) type num = 'z' .. 'a' ; _______________________
2．将String类型的s的值赋给p，请补充完整：
var
s:string;
p:pInteger;
begin
s:='11.23';
p:=_____ __(s);
end;
3．Var
S1,S2:String;
Begin
S1:= 'abcdefghi＇
S2:=Copy(S1,0,3);
End;
则程序运行后S1:=______________
4 有如下程序段
program Project1;
{$APPTYPE CONSOLE}
t y p e
PInteger = ^Integer;
v a r
Y: Shortint;
I: Integer;
PI: PInteger;
P: Pointer;
b e g i n
Y := 2;
I := 3;
PI := @I;
Writeln('I: ',PI^);
P := @Y;
I := Integer(P^);
Writeln('I: ',I);
PI := P;
Writeln('PI^: ',PI^);
e n d .
则运行结果为：I:____
I:____
PI^:______