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.
易探云怎么样?易探云香港云服务器比较有优势,他家香港BGP+CN2口碑不错,速度也很稳定。尤其是今年他们动作很大,推出的香港云服务器有4个可用区价格低至18元起,试用过一个月的用户基本会续费,如果年付的话还可以享受8.5折或秒杀价格。今天,云服务器网(yuntue.com)小编推荐一下易探云国内云服务器优惠活动,北京和深圳这二个机房的云服务器2核2G5M带宽低至330.66元/年,还有高配云服务器...
最近很多网站都遭受到了伪墙/假墙攻击,导致网站流量大跌,间歇性打不开网站。这是一种新型的攻击方式,攻击者利用GWF规则漏洞,使用国内服务器绑定host的方式来触发GWF的自动过滤机制,造成GWF暂时性屏蔽你的网站和服务器IP(大概15分钟左右),使你的网站在国内无法打开,如果攻击请求不断,那么你的网站就会是一个一直无法正常访问的状态。常规解决办法:1,快速备案后使用国内服务器,2,使用国内免备案服...
v5net当前对香港和美国机房的走优质BGP+CN2网络的云服务器进行7折终身优惠促销,每个客户进线使用优惠码一次,额外有不限使用次数的终身9折优惠一枚!V5.NET Server提供的都是高端网络线路的机器,特别优化接驳全世界骨干网络,适合远程办公、跨境贸易、网站建设等用途。 官方网站:https://v5.net/cloud.html 7折优惠码:new,仅限新客户,每人仅限使用一次 9...