杭州交通信息网淄博信业化工:急求Delphi习题答案+考试用。书不见了！
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/05 17:06:51
Delphi习题
一、选择题
用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（ ）。
A、 F12和F11
B、 F12和F13
C、 F12和Ctrl+F12
D、 F12和Alt+F12
某函数如下：
Function check(n,k:Integer):Integer;
Var 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值为：（ ）
A、 7
B、 5
C、 2
D、 0
以下那个组件不可以由用户输入编辑文本（）
A、 TEdit
B、 TcomboBox
C、 TMaskEdit
D、 Tlabel
Delph没有用到的文件类型有（）。
A、.frm
B、.pas
C、.dfm
D、.dpr
Query组件没有Table组件那样的( )属性。
A、 DataSource
B、 TableName
C、 Filtered
D、 Database
调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行。可通过（）菜单项进行。
A、 Run
B、 Step Over
C、 Trace Into
D、Run to Cursor
设a是布尔变量，其它是整型变量，下面正确的赋值语句是( )
A、 x=y div 7
B、 x:=y:=z+1
C、 a:=x=y mod z
D、 x+y:=z
表达式round(4.2) mod trunc(2.8)的值是（ ）
A、 0
B、 1
C、 2
D、 3
下列常量定义合法的是（ ）
A、 CONST width=7;
B、 CONST case='7';
C、 CONST 1A=7.9;
D、 CONST century=year div 100;
以下运算符中运算优先级最高的是（ ）
A、 +
B、 OR
C、 >=
D、 DIV
14. 已知a、b、c、d是同类型的简单变量，而且已有互不相同的值，执行下列语句：
b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是（）
A、 a,c
B、 a,d
C、 c,b
D、 b,a
以下语句的循环执行次数是（ ）
x:=37; y:=3
while y<=x do y:=y+y
A、 3
B、 4
C、 5
D、 6
程序 For I:=1 to 5 do
for j:=2 to I do
writeln('*');
输出的'*'个数为（ ）
A、 10
B、 15
C、 25
D、 30
18. 下列函数头合法的是（ ）
A、 function total(x:real);
B、 procedure ab(a,b:real):real;
C、 procedure sum;
D、 function f(var f:real):integer;
一个记录的域标识符不能和下列内容相同的是（）
A、 常量的标识符
B、 记录名
C、 类名
D、 同层的域标识符
已知 Var a:array['a'..'e',1..4,boolean] of real;
则数组a中包含的元素的个数为（）
A、 5
B、 20
C、 40
D、 11
已知 Var a:array[1..10] of integer;
k,I:integer;
程序段：
k:=1;
for I:=1 to 10 do
if a[I]>a[k] then
k:=I;
writeln(a[k]);
执行后输出的是( )
A、 数组中的平均值
B、 数组中的最大值
C、 数组中的最小值
D、 数组中的总和
为让控件显示弹出式提示框文字，需用到控件的（）属性
A、 Handle
B、 Hint
C、 ShowHint
D、 Showing
E、Visible
发生在鼠标左键单击控件时的事件是（）
A、 OnMouseDown
B、 OnMouseUp
C、 OnClick
D、 OnDbClick
E、OnEnter
用于异常处理的关键字不包括（ ）
A、try
B、except
C、finally
D、raise
E、error
一、选择题
用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（ ）。
A、 F12和F11
B、 F12和F13
C、 F12和Ctrl+F12
D、 F12和Alt+F12
某函数如下：
Function check(n,k:Integer):Integer;
Var 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值为：（ ）
A、 7
B、 5
C、 2
D、 0
以下那个组件不可以由用户输入编辑文本（）
A、 TEdit
B、 TcomboBox
C、 TMaskEdit
D、 Tlabel
Delph没有用到的文件类型有（）。
A、.frm
B、.pas
C、.dfm
D、.dpr
Query组件没有Table组件那样的( )属性。
A、 DataSource
B、 TableName
C、 Filtered
D、 Database
调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行。可通过（）菜单项进行。
A、 Run
B、 Step Over
C、 Trace Into
D、Run to Cursor
设a是布尔变量，其它是整型变量，下面正确的赋值语句是( )
A、 x=y div 7
B、 x:=y:=z+1
C、 a:=x=y mod z
D、 x+y:=z
表达式round(4.2) mod trunc(2.8)的值是（ ）
A、 0
B、 1
C、 2
D、 3
下列常量定义合法的是（ ）
A、 CONST width=7;
B、 CONST case='7';
C、 CONST 1A=7.9;
D、 CONST century=year div 100;
以下运算符中运算优先级最高的是（ ）
A、 +
B、 OR
C、 >=
D、 DIV
14. 已知a、b、c、d是同类型的简单变量，而且已有互不相同的值，执行下列语句：
b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是（）
A、 a,c
B、 a,d
C、 c,b
D、 b,a
以下语句的循环执行次数是（ ）
x:=37; y:=3
while y<=x do y:=y+y
A、 3
B、 4
C、 5
D、 6
程序 For I:=1 to 5 do
for j:=2 to I do
writeln('*');
输出的'*'个数为（ ）
A、 10
B、 15
C、 25
D、 30
18. 下列函数头合法的是（ ）
A、 function total(x:real);
B、 procedure ab(a,b:real):real;
C、 procedure sum;
D、 function f(var f:real):integer;
一个记录的域标识符不能和下列内容相同的是（）
A、 常量的标识符
B、 记录名
C、 类名
D、 同层的域标识符
已知 Var a:array['a'..'e',1..4,boolean] of real;
则数组a中包含的元素的个数为（）
A、 5
B、 20
C、 40
D、 11
已知 Var a:array[1..10] of integer;
k,I:integer;
程序段：
k:=1;
for I:=1 to 10 do
if a[I]>a[k] then
k:=I;
writeln(a[k]);
执行后输出的是( )
A、 数组中的平均值
B、 数组中的最大值
C、 数组中的最小值
D、 数组中的总和
为让控件显示弹出式提示框文字，需用到控件的（）属性
A、 Handle
B、 Hint
C、 ShowHint
D、 Showing
E、Visible
发生在鼠标左键单击控件时的事件是（）
A、 OnMouseDown
B、 OnMouseUp
C、 OnClick
D、 OnDbClick
E、OnEnter
用于异常处理的关键字不包括（ ）
A、try
B、except
C、finally
D、raise
E、error