一、单选
1)下列符号哪一个是Delphi中的合法变量名（）
A6book    B if    C name[1]    D count1
2)下列常量说明中哪一个是合法的（）
A const c:=(b>4.5);
B const c:8.6;
C const c=3.2;
D const c:=”book ”;
3)下列实数中哪个是不合法的( )
A0.45E+02    B .25+2    C 25E -3    D 24.67
4)设n为整型变量，其值为4568，表达式（n mod 1000）div100 ( )
A分离出个位数字B分离出千位数字  C 分离出百位数字D分离出十位数字
5)有下面的程序段：
a:=false; b:=false; c:=true; x:=20;
if    a then x:=x-10; x:=30;
if    b then
if    c then x:=34;
else x:=15; 假设所有变量都已定义，程序段执行后x的值（）A15    B 20    C 34    D 30
6)有下面的程序段：
ch1:= 'z'; ch2:= 'x';
if ch1 <>'x' then
case ch2 of
'x': case ch1 of
'z': s:= 'xy';
'y': s:='xz';
end;
'y': s:='yy';
end; 假设所有变量均已说明，程序段被执行后s的值是（）。
A'xz'    B 'yy'    C 'xy'    D xy
7)有下面的程序段：
i:= 1;
repeat
n:= i * i; i:=i+2;
until n>2*i; 假设所有变量均已说明，循环体执行的次数（）。
A  1
B    2
C    3
D    4
8)有下面的程序段：
s:= 100; n:= 3;
for ch:= 'a' to 'e' do
if not odd(n) then s:=s-n;
n:=n+5; 假设所有变量均已说明，s的值（）。
A100    B 97    C 61    D 74
9)以下正确的枚举类型定义是：( )
A type vowel=('a','e','i','o','u');
B type num=(1..3,8..10);
C type color=(red,blue,greeen);
D type realtype=(1.5,2.5,3.5,4.5);
10)集合表达式[1,2,3]+[4,5,6,1,2]的值为：( )
A[1,2,3,4,5,6,1,2]    B [1,2,3]    C [4,5,6,1,2]    D [1,2,3,4,5]
11)Delphi没有用到的文件类型有（）
A、.frm
B、.pas
C、.dfm
D、.dpr
12)以下哪个组件不可以由用户输入编辑文本（）
A、TEdit
B、TcomboBox
C、TMaskEdit
D、Tlabel
13)下列常量定义合法的是（）
A、CONST width=7
B、CONST case=''7''
C、CONST 1A=7.9
D、CONST
5<>7
14)下列哪种表达式不能作为while语句的循环条件（）
A、i=1    B.、i:=1 C、true D、i<>1
15)下列哪个可以作为集合变量的基类型（）
A、integer    B 、word C、real    D 、byte
16)在修改数据前检查TQuery组件的状态，发现处于浏览状态，则调用该组件的什么
方法可以将其状态该为可修改（）
A、post
B、insert
C、edit
D、setkey
17)以下语句的循环体执行次数是（）
x:=37; y:=3
while y<=x do y:=y+y；
A、  3
B、  4
C、5
D、6
18)下列函数头具有传地址参数的是（）
A、function total(x:real);
B、procedure ab(a,b:real):real;
C、function total(const x:real):real;
D、function f(var f:real):integer;
19)Delphi中取值范围0到255的数据类型是（）
A、ShortInt
B、Byte
C、SmallInt
D、Word
20)以下关于事件的说法不正确的是（）
A、不一定要响应某个组件所定义的所有事件
B、多个组件可以共享同一个事件处理程序
C、根据需要可以响应任何组件的事件
D、单击Object Inspector中的事件处理程序名，Code Editor将自动进入该事件的代码段。
21)Delphi应用程序的执行入口为哪个文件（）
A、资源文件
B、单元文件
C、窗体文件
D、工程文件
22)以下哪个属性可以获得TEdit组件输入的文本内容（）
1.name B、caption C、text D、Tag
23)下列常量定义合法的是（）
A、CONST width:=8
B、CONST case=''7''
C、CONST 1A=7.9
D、CONST
width=9
24)下列哪种变量类型不能作为For的循环变量（）
A、字符  B.、枚举C、子界D、实数
25)集合类型的数据其序数范围（）
A、0..255
B、0..65535
C、0..63
D、0..31
26)Query组件没有Table组件哪个属性( )
A、active
B、TableName
C、name
D、Database
27)执行以下语句后s的值为（）
S:=0; n:=10
while n>0 do n:=n-1; S:=S+n;
A、0
B、45
delphi trunc函数C、55
D、9
28)下列函数头合法的是（）
A、function total(x:real);
B、procedure ab(a,b:real):real;
C、procedure sum;
D、function f(var f:real):integer;
29)下列子界类型定义合法的是（）
A、TYPE a=10..10;
B、TYPE b=10..5;
C、TYPE c=0..SQRT(10);
D、TYPE
d=10.0..20.0;
30)发生在鼠标左键双击控件时的事件是（）
A、OnkeyDown
B、onClick
C、OnDbClick
D、OnEnter
二、按要求写出程序结果
1、设有一个自定义过程声明如下：
procedure p(x: integer; var y: integer);
begin
x:=x-y; y:=y+x;
end;
执行下述程序段：a:=10;b:=4; p(a,b); p(a mod b ,a); 则a,b的值分别是什么？
2、设有一个自定义过程声明如下：
V ar n: integer; y, z :real;
procedure sub(m: integer; var s,z :real);
begin
y:=2*y; s:=s*y; z:=s/m;
end;
begin
n:=4; y:=3; z:=0;
sub(n,y,z);
end; 则n,y,z的值分别是什么？
3、设有一个自定义函数声明如下：
function f(a,b,c: integer):integer;
V ar t: integer;
begin
a:=3*a; t:=b div c;
f：=a+4*t；
end; 则f（1，2，f（1，2，3））的值？
4、设有一个事件过程声明如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
if lowercase(edit1.Text) = 'abcd' then
panel1.Caption := '欢迎使用本系统!'
else
begin
edit1.Tag := edit1.Tag + 1;
If edit1.Tag = 3 Then
begin
panel1.Caption := '对不起，您无权使用';
groupbox1.Enabled := False;
end
Else
panel1.Caption := '对不起，口令错!';
end;
end； 的初值为空，edit1.Tag初值为0, 如果edit1中已连续输入hello 两次，每次分别点击Button1，又输入abc后点击Button1, 则此时edit1.Tag的值? panel1显示的内容?
5、设有一个事件过程声明如下：
procedure TForm1.Button1Click(Sender: TObject);
var
k, f1, f2, f3 : Integer;
begin
memo1.Lines.Clear;
memo1.Lines.Add(' 1 1');
memo1.Lines.Add(' 2 1');
f1 := 1; f2 := 1;
For k := 3 To 5 do
begin
f3 := f1 + f2;
memo1.Lines.Add(format('%2d %3d',[k, f3]));
f1 := f2; f2 := f3;
end;
end; 点击Button1后memo1显示的内容?
4.Function check(n,k:Integer):Integer;
V ar 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值为？
5.有下面的程序段：
ch1:= 'z'; ch2:= 'x';
if ch1 <>'x' then
case ch2 of
'x': case ch1 of
'z': s:= 'xy';
'y': s:='xz';
end;
'y': s:='yy';
end; 假设所有变量均已说明，程序段被执行后s的值是？
6.有下面的程序段：
s:= 100; n:= 3;
for ch:= 'a' to 'e' do
if not odd(n) then s:=s-n;
n:=n+5; 假设所有变量均已说明，s，n的值？
7.设有一个自定义过程声明如下：
V ar n: integer; y, z :real;
procedure sub(m: integer; var s,z :real);
begin
y:=2*y; s:=s*y; z:=s/m;
end;
begin
n:=4; y:=3; z:=0;
sub(n,y,z);
end; 则n,y,z的值分别是什么？
8.有下面的程序段：
a：=false；b：=false；c：=true；x：=20；
if    a then x:=x-10; x:=30;
if not b then
if    c then x:=x+5;
else x:=15;
假设所有变量都已定义，程序段执行后x的值？
9.设有一个事件过程声明如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
if lowercase(edit1.Text) = 'abcd' then
panel1.Caption := '欢迎使用本系统!'
else
begin
edit1.Tag := edit1.Tag + 1;
If edit1.Tag = 3 Then
begin
panel1.Caption := '对不起，您无权使用';
groupbox1.Enabled := False;
end
Else
panel1.Caption := '对不起，口令错!';
end;
end； 的初值为a，edit1.Tag初值为0。如果点击Button1一次后，在edit1中输入hello再点击Button1, 则此时edit1.Tag的值? panel1显示的内容?
10.已知函数如下：
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)的值是？
11.有下面的程序段：
a:=false; b:=false; c:=true; x:=20;
if    a then x:=x-10; x:=30;
if    b then
if    c then x:=34;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。