的是Delphi程序员笔试题

Delphi程序员笔试题

一.选择题(共40道)

1.用户开发程序时需要经常在窗体和编辑器窗口之间来回切换可使用快捷键()。

A、 F12和F11

B、 F12和F13

C、 F 12和Ctrl+F 12

D、 F12和Alt+F12

E、 F12和Shift+F12

2.某函数如下

Function check(n,k:Integer):Integer;

Var m:Integer;

Begin

Repeatm:=nmod 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、 .fr m

B、 .pas

C、 .d fm

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、 Ru n

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=ymodz

D、 x+y:=z

E、 x+y=a

10.表达式round(4.2)mod trunc(2.8)的值是()

A、 0

用什么方法可以在客户端验证用户的输入。一般情况下对作为一个对外发布的网站应该如何防止SQL注入的漏洞。

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;

设计题共1道

设计一个实用的Windows字体选择列表窗口。要求

1)用户可以在列表框中 TListBox选择字体

2)用户可以在微调框中 TSpinEdit调整字体大小

3)字体与大小以所见即所得的方式显示出来

E、 CONST5<>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;下列程序段中的错误为 ()casex<=2.0 of

0:x:=0;

1:x:=1end

A、 case表达式中有常数

B、 case常量和case表达式类型不一样

C、 赋值语句两边类型不一致

D、 case表达式为关系表达式

E、 case语法不规范

15.以下语句的循环执行次数是()x:=37;y:=3while y<=x do y:=y+y

A、 3

B、 4

C、 5

D、 6

E、 0

16.程序For I:=1 to 5 dofor j:=2 to I dowriteln(\'*\');

输出的\'*\'个数为()

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;beginif n=0 then f:=0else 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 doif 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、 HT M L文件

23.在VCL中()是TDBListBox的父类

A、 TCustomListBox

B、 TListBox

C、 TD BDataset

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、 fsM I D Fo rm

D、 fsStayO nT op

E、 fsDeskTop

27.使用Delphi多线程的优点是()

A、程序运行速度加快

以下程序的运行结果是

A、 computer,puter B、 computer,com

C、 computer,computer D、 computer,compu.ter以下程序的功能是

A、计算文件wj.txt内容的字节数

B、计算文件wj.txt的终止地址

C、计算文件wj.txt的起始地址

D、将文件指针定位到文件末尾

若输入B则以下程序运行后的输出结果是

A、 error.

B、 >=60

C、 >=85

D、 >=60<60error.