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.
欧路云怎么样?欧路云主要运行弹性云服务器,可自由定制配置,可选加拿大的480G超高防系列,也可以选择美国(200G高防)系列,也有速度直逼内地的香港CN2系列。所有配置都可以在下单的时候自行根据项目 需求来定制自由升级降级 (降级按天数配置费用 退款回预存款)。2021年7月14日美国 CERA 弹性云服务器 上新 联通CUVIP 线路!8折特惠中!点击进入:欧路云官方网站地址付款方式:PayPa...
PQ.hosting怎么样?PQ.hosting是一家俄罗斯商家,正规公司,主要提供KVM VPS和独立服务器,VPS数据中心有香港HE、俄罗斯莫斯科DataPro、乌克兰VOLIA、拉脱维亚、荷兰Serverius、摩尔多瓦Alexhost、德国等。部分配置有变化,同时开通Paypal付款。香港、乌克兰、德国、斯洛伐克、捷克等为NVMe硬盘。香港为HE线路,三网绕美(不太建议香港)。免费支持wi...
BuyVM针对中国客户推出了China Special - STREAM RYZEN VPS主机,带Streaming Optimized IP,帮你解锁多平台流媒体,适用于对于海外流媒体有需求的客户,主机开设在拉斯维加斯机房,AMD Ryzen+NVMe磁盘,支持Linux或者Windows操作系统,IPv4+IPv6,1Gbps不限流量,最低月付5加元起,比美元更低一些,现在汇率1加元=0.7...