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.
TMThosting发布了一个2021 Summer Sale活动,针对西雅图VPS主机提供月付7折优惠码,年付65折优惠码,独立服务器提供95折优惠码,本轮促销活动到7月25日。这是一家成立于2018年的国外主机商,主要提供VPS和独立服务器租用业务,数据中心包括美国西雅图和达拉斯,其中VPS基于KVM架构,都有提供免费的DDoS保护,支持选择Windows或者Linux操作系统。Budget ...
易探云怎么样?易探云香港云服务器比较有优势,他家香港BGP+CN2口碑不错,速度也很稳定。尤其是今年他们动作很大,推出的香港云服务器有4个可用区价格低至18元起,试用过一个月的用户基本会续费,如果年付的话还可以享受8.5折或秒杀价格。今天,云服务器网(yuntue.com)小编推荐一下易探云国内云服务器优惠活动,北京和深圳这二个机房的云服务器2核2G5M带宽低至330.66元/年,还有高配云服务器...
RAKsmart 商家从原本只有专注于独立服务器后看到产品线比较单薄,后来陆续有增加站群服务器、高防服务器、VPS主机,以及现在也有在新增云服务器、裸机云服务器等等。机房也有增加到拥有洛杉矶、圣何塞、日本、韩国、中国香港等多个机房。在年前也有介绍到RAKsmart商家有提供年付129元的云服务器套餐,年后我们看到居然再次刷新年付云服务器低价格。我们看到云服务器低至年79元,如果有需要便宜云服务器的...