51.26 div 3的值是什么？

A.9      B.8        C.8.7     D.8.667

52.以下标识符命名正确的是哪一个？

A.Lotus_1_2_3       B.xyz%set        C.sum wage       D.string

53.以下说法不正确的是哪一个？

A.子界类型定义中下界常数和上界常数必须为同一类型。

B.Pascal语言中可以把一个师叔赋值给一个整型变量，系统会自动取整。

C.Ansistring变量是自动分配空间，末尾以Null结尾。

D.在枚举类型定义时，可以指定某一个特定的枚举值对应的序号。

54．Type  aarrays=[1…8,1…5] of integer ，改类型定义了多少个下标元素？

A.45       B.54                  C.48                  D.40

55. 32 AND 27的值是多少？

A.59       B.0                    C.27                 D.32

56.S:=0;

For  I:=1  to  10 do

   Begin

       If (I mod  2)=0  then  s:=s+I

       Else

          Continue;

   End;

S的值是多少？

A.25     B.30        C.0      D.10

57.X:=10/Y当y为0是触发的异常是什么？

A.Einerror     B.EoutofMemory        C.EdivByzero    D.EintOverFlow

58.要将Tshape对象的形状修改为正方形，需要修改的属性是什么？

A.shape       B.brush          C.style                D.font

59.在Delphi中，声明了一个方法后把光标移动到它的上方，按下什么键，系统自动产生实现代码框架？

A．Ctrl+alt+c                        B.alt+shift+c  

C.ctrl+shift+c                       D.ctrl+c

60.Delphi的所有类都是从什么类继承下来的？

A.Tcomponent                         B.Tobject           

C.Tstream                            D.Tnull

61.源断点可以设置在单元文件的什么位置上？

A.注释                              B.可执行代码上            

C.空白行                            C.变量说明部分

62．Tlabel组件中文本换行显示需要将哪个属性设置为真？

A.Transparent                     B.WordWrap    

C.Caption                          D.AutoSize

63.设有如下声明，以下哪一个语句是合法的？

Function   func1(x,y:integer):integer;

Str1:string[10];

I,j,k:integer;

A.I:=x;                            B.setlength(str1);

C.result:=str1[j];               D.str1[y]:=k;

64.如果表中某一个字段不是该表的主键，但是该字段是另一个表的主键字段，可以在本表中将该键设置为什么？

A.关键字            B.索引字            C.外键                D.主键

65．Tedit组件的PasswordChar属性决定组件输入的数据是否是密码输入，该属性取什么值后，Tedit组件不是密码输入

A.＃3               B.＃10              C.＃0              D.*

66．假定x=2，y=1,z=0,表达式（（x-y）>=3 and not((y mod 2)=2)的值是多少？

A.True             B.false             C.2.5              D.0

67.Tform组件form1上放置一个Tpanel1,panel1上放置一个Tbutton组件button1,则button1.owner的值是什么？

A.Form1            B.panel1            C.button1         D.空值

68．定义构造函数时用到的保留字是什么？

A.Class            B.implementation    C.create         D.construction

69.单元文件的扩展名是什么？

A. .dcu            B. .dfm               C. .pas          D. .dpr

70.下列组件中属于可视组件的是哪一个？

A.Tdatasource     B.Topendialog        C.Ttable         D. Tscrollbar

71.覆盖一个虚拟方法，必须指定相同的参数列表，同时使用哪一个关键字？

A. Overloat       B.dynamic             C. override      D.virtual

72．Tradiogroup组件是通过设置什么属性放置单选按钮的？

A.Rows             B.columns             C.items           D.dropdowncolumn

73．Tquery组件的什么方法可以实现SQL语句的优化？

A.Open             B. execsql            C.prepare        D.active

74．Tquery组件能够获取返回的数据集的方法是哪一个？

A.Sql              B.open                 C.exec            D.close

75.TDBcombobox组件中既可以选择列表中的选项，又可以直接输入没有的内容，style应该采用哪一种风格？

A.Csdropdown     B.csdropdownlist    C.cssimple         D.csownerdrawfixed

76．如何在‘abcd’字符串中添加回车换行控制符的方法是什么？

A.‘abcdenter’     B.‘abcd’+enter     C.‘abcd’+#10    D.strcopy(‘abcd’,#10)

77.设有过程procedure  pro(VAR x,y:integer);变量a,b为整型变量，其值分别为5，6，则合法的过程调用语句是哪一条？

A.Pro(5,6)         B.pro(5,b)         C.pro(a,6)       D.pro(a,b)

78.Tedit组件中编辑框内字符数目最大值为多少？

A.0                  B.255              C.128             D.任意

79.Tform组件的BorderStyle的属性决定窗体的类型，该属性取决于下列哪一个值后，Tform可以改变大小？

A.bsdialog          B.bssingle        C.bssizeable   D.bsnone

80.下列代码中将要执行多少次showmessage()语句？

Procedure  Tform1.button1click(sender:Tobject);

Var  arr:Tstringlist;

I:integer;

Begin

Arr:=tstringlist.create;

For I:=0 to 5 do

 Begin

   Arr.add(inttostr(i));

   If (I mod 2)>0 then showmessage(arr[i]);

End

End;

A.0                B.2                   C.3                 D.5

81.可以通过设置Tdbnavigator组件的什么属性来确定显示的按钮？

A.Visiblebuttons   B.constrains           C.anchors          D.helpkeyword

82.在菜单edit项中的Scale功能是什么？

A.组件对齐         B.组件缩放             C.组件的层叠次序        D.组件旋转

83．关于自定义异常的说法正确的是哪一个？

A.自定义异常在实际运行时还是触发的是系统异常信息。

B.自定义异常都必须从Tobject继承。

C.自定义异常必须通过在程序中主动抛出产生。

D.自定义异常必须从系统异常的特定对象中派生。

84．语句messagebox(‘我有几个按钮？’，‘猜测看’，MB_RETRYCANCEL)执行时显示多少个按钮？

A.1         B.2           C.3            D.任意个

85．在一个过程中动态生成一个可视化组件对象后，要通过哪个方法才能将组件插入指定的窗体，才能使用该对象？

A.Components.add      B.insertcontrol()     C.insertcomponent     D.controls.add

86.object Pascal中声明一个常量用下列哪个关键字？

A.Type                B.const               C.class               D.var

87.如果有例程如下，则输入的结果时I=什么？

Var   I:shortint

Begin

  I:=hight(shortint);

  Write(‘I=’,I);

End;

A.255                 B.127                 C.256                  D.128

88.以下代码

Procedure   P(x:real;var  y:real);

begin

y:=y+x*x;

X:=y+y;

end;

89.在程序中带入参数a,b其中a=5,b=6,执行p(a,b)后，a和b分别是多少？

A.5，6                B.5,31                 C.62,31               D.62,6

90.运行一个项目的快捷键是哪一个？

A.Ctrl+F9             B.F9                   C.ctrl+F5             D.F8

91.Object Pascal 不支持哪一种注释？

A.{}                  B.(**)                 C.//                  D.**

92.用面向对象的思路看待“哺乳动物”、“动物”、“马猴”、“猴子”，它们之间的关系是什么？

A.猴子是马猴的父类，哺乳动物是动物的父类。

B.猴子是哺乳动物的父类，马猴是动物的子类。

C.猴子是动物的子类，哺乳动物是动物的父类。

D.猴子是马猴的父类，动物是猴子的父类。

93．在一个字符串中嵌入一个控制字符的方法是在控制字符的ASCII值前加上哪个控制符？

A.*                       B.#                   C.&                   D.@

94.Delphi 应用程序的入口程序的扩展名是哪一个？

A. .dpr                   B. .pas            C. .exe              D. .dfm

95．有如下例程

try

1 myobj:=Tmyobj.create(self);

2 if myfunc(myobj) then

      3 raise exception.create(‘myfunc fail’);

finally

freeandnil(myobj);

4 raise;

end;

有错误的语句是哪一条？

A.1                         B.2                  C.3                    D.4

96．下列组件中不能获取焦点的是哪一个？

A.Tedit                     B.Tlabel             C.Trichedit            D.Ttreeview

97.窗体中组件的外观属性存储在对应的什么文件中？

A. .dcu                     B. .unt              C. .dfm                D. .pas

98.以下代码是将string类型的s的值赋予P, 请补充完整。

Var   s:string;

P:Pchar;

Begin

  S:=’hello’;

  P:=        (s);

End;

A.Pchar                 B.inttostr           C.strcopy             D.strcmp

99.用户通过在组件面板上按下哪一个键，同时单击选择的组件，可以在form上建立任意多个组件？

A.Ctrl                  B.shift              C.tab                 D.shift+ctrl

（出处：DelphiFans.com）