Delphi程序员笔试真题分享：
1. 某函数如下：
Function check(n,k:Integer):Integer;
Var m:Integer;
Begin
Repeat
m:=n mod 10;
n:=n div 10;
K:=k-1
Until k=0;
Check:=m
End;
若调用语句y:=check(3725,3),运行后y值为：()
A、 7
B、 5
C、 2
D、 0
2. 用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键()。
A、 F12和F11
B、 F12和F13
C、 F12和Ctrl+F12
D、 F12和Alt+F12
E、F12和Shift+F12
3. 以下那个组件不可以由用户输入编辑文本()
A、 TEdit
B、 TcomboBox
C、 TMaskEdit
D、 Tlabel
E、 TStringGrid
4. 一个对象类可以继承和直接使用它的父类的所有成员，除了：()
A、 public域
B、 private域
C、 protected域和private域
D、 protected域和方法
E、 private域和方法
5. Delph没有用到的文件类型有()。
A、.frm
B、.pas
C、.dfm
D、.dpr
E、.res
6. Query组件没有Table组件那样的( )属性。
A、 DataSource
B、 TableName
C、 Filtered
D、 Database
E、 UpdateObject
7. 下面关于属性的论述正确的是()。
A、 属性能实现write方法
B、 属性能实现read方法
C、 属性可以只读或只写
D、 属性可以公开或非公开
E、属性不能直接存取
8. 调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行。可通过()菜单项进行。
A、 Run
B、 Step Over
C、 Trace Into
D、 Trace To Next Source Line
E、Run to Cursor
9. 设a是布尔变量，其它是整型变量，下面正确的赋值语句是( )
A、 x=y div 7
B、 x:=y:=z+1
C、 a:=x=y mod z
D、 x+y:=z
E、x+y=a
10. 表达式round(4.2) mod trunc(2.8)的值是( )
A、 0
B、 1
C、 2
D、 3
E、 4
11. 下列常量定义合法的是( )
A、 CONST width=7;
B、 CONST case=\7\;
C、 CONST 1A=7.9;
D、 CONST century=year div 100;
E、 CONST 5<>7;
12. 以下运算符中运算优先级最高的是( )
A、 +
B、 OR
C、 >=
D、 DIV
E、 -
13. 已知a、b、c、d是同类型的简单变量，而且已有互不相同的值，执行下列语句：
b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是()
A、 a,c
B、 a,d
C、 c,b
D、 b,a
E、 无法确定
14. 已知有说明Var x:real;下列程序段中的错误为：( )
case x<=2.0 of
0:x:=0;
1:x:=1
end
A、 case表达式中有常数
B、 case常量和case表达式类型不一样
C、 赋值语句两边类型不一致
D、 case表达式为关系表达式
E、 case语法不规范
15. 以下语句的循环执行次数是( )
x:=37; y:=3
while y<=x do y:=y+y
A、 3
B、 4
C、 5
D、 6
E、 0
16. 程序 For I:=1 to 5 do
for j:=2 to I do
writeln(\*\);
输出的\*\个数为( )
A、 5
B、 10
C、 15
D、 25
E、 30
17. 下列函数头合法的是( )
A、 function total(x:real);
B、 procedure ab(a,b:real):real;
C、 procedure sum;
D、 function f(var f:real):integer;
E、 procedure FontListBoxKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState;);
18. 已知函数如下：
function f(n:integer):integer;
begin
if n=0 then f:=0
else if n>0 then f:=f(n-2)
else f:=f(n+3)
end;
则调用f(5)的值是( )
A、 0
B、 1
C、 -1
D、 -2
E、 2
19. 下列类型中合法的是( )
A、 TYPE a=10..10;
B、 TYPE b=10..5;
C、 TYPE c=0..SQRT(10);
D、 TYPE d=10.0..20.0;
E、 TYPE e=random(9)..1
20. 已知 Var a:array[\a\..\e\,1..4,boolean] of real;
则数组a中包含的元素的个数为()
A、 5
B、 20
C、 40
D、 11
E、 22
21. 已知 Var a:array[1..10] of integer;
k,I:integer;
程序段：
k:=1;
for I:=1 to 10 do
if a[i]>a[k] then
k:=I;
writeln(a[k]);
执行后输出的是( )
A、 数组中的平均值
B、 数组中的最大值
C、 数组中的最小值
D、 数组中的总和
E、 无法确定
22. 已知Var f:file of integer;则f所代表的文件是( )
A、 ASCII码文件
B、 二进制文件
C、 文本文件
D、 存放整数的文本文件
E、 HTML文件
23. 在VCL中( )是TDBListBox的父类
A、 TCustomListBox
B、 TListBox
C、 TDBDataset
D、 TDatabase
E、TDBEdit
24. 为让控件显示弹出式提示框文字，需用到控件的()属性
A、 Handle
B、 Hint
C、 ShowHint
D、 Showing
E、Visible
25. 发生在鼠标左键单击控件时的事件是()
A、 OnMouseDown
B、 OnMouseUp
C、 OnClick
D、 OnDbClick
E、OnEnter
26. 下列值中不是FormStyle属性的可能值的是( )
A、 fsNormal
B、 fsMIDChild
C、 fsMIDForm
D、 fsStayOnTop
E、fsDeskTop
27. 使用Delphi多线程的优点是( )
A、程序运行速度加快
B、不需要考虑同步访问共享资源与内存
C、程序编写更简单
D、可以在后台运行线程
E、不会是Windows出错
28. 有多种方法可以在OLE文档接收器中放置对象，但不包括( )
A、使用特定的菜单命令嵌入对象
B、从剪贴板粘贴对象，来建立新嵌入对象
C、从剪贴板粘贴-链接对象，来建立新嵌入对象
D、由服务器生成的文件中建立新对象。
E、通过ODBC接口，传递对象
29. 用于异常处理的关键字不包括( )
A、try
B、except
C、finally
D、raise
E、error
30. 以下说法不正确的是( )
A、VCL组件是Delphi最有效和最有用的组件
B、COM是OLE和ActiveX的基础
C、COM对象可用于任何Windows编程环境
D、VCL组件是COM对象
E、典型的COM对象包含在扩展名为.DLL或.OCX的文件中
31. 以下关于事件的说法不正确的是( )
A、不一定要响应某个组件所定义的所有事件
B、多个组件可以共享同一个事件处理程序
C、根据需要可以响应任何组件的事件
D、单击Object Inspector中的事件处理程序名，Code Editor将自动进入该事件的代码段。
E、事件的Sender参数是用来决定哪个组件产生了此事件
32. Delphi中取值范围0到255的数据类型是()
A、ShortInt (-128~127)
B、Byte 0~255
C、SmallInt -32768~32767
D、Real
E、Word