Delphi程序员笔试题目
一. 选择题（共40道）
1. 用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（）。
A、 F12和F11
B、 F12和F13
C、 F12和Ctrl+F12
D、 F12和Alt+F12
E、F12和Shift+F12
2. 某函数如下：
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
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
[解决办法]
20. 已知 Var a:array[\ 'a\ '..\ 'e\ ',1..4,boolean] of real;
没这语法
出题人的代码风格不好
没有递进、大小写混乱
[解决办法]
这有点象学校里的期末考试....不大象面试!
[解决办法]
一. 选择题（共40道）
1. 用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（）。
A、 F12和F11
B、 F12和F13
C、 F12和Ctrl+F12
D、 F12和Alt+F12
E、F12和Shift+F12
选B
[解决办法]
哈哈，这题比较恶搞，F13
1. 用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（）。
A、 F12和F11
B、 F12和F13
C、 F12和Ctrl+F12
D、 F12和Alt+F12
E、F12和Shift+F12
[解决办法]
好
