一：选择题
1.定义构造函数时用到的保留字是（）
d Dstroy b，destructor c，constructor d，create
2．过程声明中多个不同类型的参数之间用什么符号隔开？
A， 点句号
B， 冒号
C， 逗号
D， 分号
3．定义一个书签的快捷键是：
b 其他三项都不是
c shift+N （N =1，2，3，4、、、、）
d ctrl+N （N =1，2，3，4，、、、、）
d． control+N （N =1，e． 2，f． 3，g． 4、、、）
4．TEDIT组件的Passwordchar属性取值可以决定是否为密码输入状态，该属性可取下列那一个值可改变这种输入状态（）
a．#3 b．#10 c．#0 d．*
5．假定x=2，y=1，z=0，（（x+y）>=3）and not ((y mod 2)=2)的值是（）
a．false b. 2.5 c. 0 d. true
6．下面那个组件不能够同时访问不同的数据表（）
a．database b .query c. table d. session
7.用面向对象的思想看待"哺乳动物"，"动物"，"马猴"，"猴子"，它们之间的关系为（）
a． 猴子是马猴的父类，b． 哺乳动物是动物的父类
c． 猴子是哺乳动物的父类，d． 马猴是动物的子类
e． 猴子是动物的子类，f． 哺乳动物是动物的父类
g． 猴子是马候的父类，h． 动物是猴子的父类
8．INTEGER型数据是32位无符号数（）
a．错误 b.正确
9．下列组件中不能获得焦点的是（）
a．edit b. label c.
10．以下运算符中运算优先级最低的是（）
a．not b. or c. .>= d. *
11.对象类不能直接继承和直接使用其父类的（）
a. public 方法b. public域 c.rivate方法 d.protected 方法 e.protected域
12．TEIDT组件中编辑框内字符数可以不受限制（）
a 正确 b. 错误
13．下列函数或过程声明错误的是（）
a function myFun（var name:string）
b cedure myproc(const name :age:string)
c function myFun(const name:string)
d procedure myproc(name:string:'hello world';age:string)
14.声明了一个方法后把光标移动到它的上方，按下（）键后系统自动产生实现代码框架
a．ctrl+alt+c b. alt+shift+c c. ctrl+shift+c d.\ctrl+c
15.一个类的析构函数最多为（）
a．2 b. 0 c. 1\ d.没限制
16．Myarray:array[0-10] of Byte,该数组占（）字节
a. 80 b.11 c.256 d.10
17.label标签中文本不可以换行（）
a 正确 b.错误
18．Delphi 中所以类都是由Tobject类继承下来的，所以类都是它的子类（）
a.正确 b.错误
19．在delphi 中日期时间类Tdatetime的实际数据类型是（）
a string
20．用户既可以选择Tcomobox的列表项，又可以手工输入列表中没有的数据（）
a．正确\ b.错误
21．Pascal单元扩展文件名是（）
a. .dps b. .dpr
22．Tabel:Ttabel；则程序中Tabel.open语句的作用与语句Tabel.Active:=True等价（）
a. 错误 b. 正确
23．下列组件中是可视组件的是（）
a. Ttimer b. TOpendialog c.Ttable d.Tbevel
e.Tchart f.TImagelist
24.可以通过在components板上按下（）键，同时单击选择的组件，在Form上建立任意多个组件
a． shift b. ctrl c. ctrl+shift d.
25．有 以下代码：
procedure p(x:real;var y:real)
begin
y:=y+x*x
end;()
a.正确 \ b.错误
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
26．编译一个项目（Application）的快捷键是（）
a.F5 b.F7 c.F8 d.其他三项都不是
27．Object Pascal 不支持的注释类型是（）
a. /*......*/ b.{......} c.// d.(*....*)
28．可以通过设置TDBNavigator 组件的Visible Buttons属性来确定需要显示那些按钮，但是不能一个按钮都不显示（）
a. 正确 b.错误\
29．下面程序中循环执行次数为（）
I:=1;
Repeat
n:=I*I;
I:=I+1;
Until n>I
a. o b.1 \ c.2 d.3
30.Tform的show 和showmodal两种方法都能触发onshow事件（）
a.正确 b. 错误\
30．在Tform组件Form1上放置一个Tpanel组件panel1,panel1上放置一个Tbutton组件Button1,则Button.ower的值是（）
a.Application b.self c. form1 d.panel1\
30.在一个字符串中嵌入一个控制字符的方法是用#号后面跟控制字符的ASCII码值（）
a.正确\ b.错误
30．以下组件没有输入焦点的是（）
a. b. c. d.
31.Delphi 中各种进制的数据取值范围不同（）
a.正确 b.错误 \
二：填空题
30．打开的数据集Table通过BDE访问一个Paradox表，则调用Table的_frist____方法可以使数据集table 的记录指针指向第一个记录。
31．下面语句用来删除Tmemo组件的第2行，请补充完整：
memo1.lines delete( );
32．将String类型的s的值赋给p，请补充完整：
var
s:string;
p:pchar;
begin
s:='hello';
p:=______strochar____(s);
end;
33.在修改数据前检查Tquery组件的状态，发现处于浏览（ Dsbrowse）状态，该Tquerry组件的request live属性已经为真，则调用该Tquerry组件的___edit______方法可以将其状态该为可修改。
34．有如下程序段，请补充完整：
Type
Mycolor=(red=1,white=10,black=20)
Var
L :mycolor;
Begin
L:=black;
Written('black is',ord(L));
End
Black is______20___
三：操作题
35．显示可以让Delphi 显示编译进度
36．请写出一个关于描述学生信息的数据结构：
1． 姓名2． （name）类型String
3． 性别（Sex） 类型为boolean
4． 身份证号（idcard）类型是一列长度为18的字符数值
5． 出生日期 （Birthdate）类型为Tdatetime
6． 家庭住址（Address），7． 类型为短字符串类型
8． 联系电话（phone）类型是一个，9． 长度为11的字符串数组，10． 有一个指11． 针类型的变量属于 Tstudent
备注：请从下面两种结构中选择一种，并补充：
1 控制台结构
program :project1
{$Apptype.console}
use
sysunits
begin
end.
2.单元结构
unit unit1;
interface
implementation
end.
37.定义一个父类 Tparent,两个子类 Tchild1,Tchild2从父类继承。
38．自定义一个异常类
将code edit 配色方案由当前default改为classic书签单元
39．编写一个求幂的程序，它有3个Tedit
一个用来输入底数，一个用来输入指数，一个用来显示求幂结果，还有一个求幂按钮。
40)有如下例程：Var i：Shortintbegini：= High(Shortint)Write('I='，I)；End；则输出结果是：i=______
有如下例程：Var i：Shortintbegini：= High(Shortint)Write('I='，I)；End；则输出结果是：i=______
-------------------------------------------------------------------------------------------------
下列代码中将要执行多少次Showmessage语句？Procedure Tform1.Button1Click(Sender：Tobject)；Var arr：TStringList；i：integer；beginarr：=tstringlist.create；for i：=0 to 5 dobeginarr.ad
用户可以通过在Components板上按下_______键，同时单击选择的组件，在form上建立任意多个组件
---------------------------------------------------------------------------------------------
下列代码中将要执行多少次Showmessage语句？Procedure Tform1.Button1Click(Sender：Tobject)；Var arr：TStringList；i：integer；beginarr：=tstringlist.create；for i：=0 to 5 dobeginarr.ad
用户可以通过在Components板上按下_______键，同时单击选择的组件，在form上建立任意多个组件。
-----------------------------------------------------------------------------------------------
Form1中3个Button按钮3个，操作 使它们居中对齐，并且按钮之间距离相等。
解答：先安shift键连续选定1个Button按钮，再在菜单栏中单击Edit，在弹出菜单中选择Align,在弹出对话框选择Center in windows后点击OK，依次类推操作
余下2个Button按纽。选中Button2,在object inspector的properties列表中查看
TOP的值，然后修改Button1，Button3的TOP值（如：Button2的TOP值为144，则Button1为144/2=72，Button3为144+144/2=216）即可！
----------------------------------------------------------------------------------------------
自定义一个类,给该类添加一个属性：
1、类名为TMyControl，从TCustomControl继承。
2、定义一个属性，属性名称为IntegerProp,属性类型为Integer，并为属性设置一个可以读写的字段。
3、在Uses中写出所使用的单元。
备注：
请从下面两种结构中选择一种，并添加具体的代码。
(1)控制台结构
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;