一、选择题（共20道，每道3分）
1．对于下面的条件表达式：（（3 <= x）AND （x < 0）） OR （x in [1..10]） 当x = 3 时， 该表达式的值为：
TRUE
FALSE
x
都不对
2．Delphi 的所有类都是从什么类继承下来的（ ）。
Tcomponent
Tobject
Tstream
Tnull
3．窗体与数据模块的扩展名是（ ）。
.dcu
.dfm
.pas
.dpr
4．设a是布尔变量，其它是整型变量，下面正确的赋值语句是( )
x=y div 7
a =x+y
x :=y mod z +3
x+y:=z +2
5．下列类型中合法的是（ ）。
TYPE a=10..10;
TYPE b=10..5;
TYPE c=0..SQRT(10);
TYPE d=1..20;
6．3>2 AND FALSE 的结果是：（ ）。
3
2
FALSE
TRUE
7．Delphi的一个项目由若干文件组成，其中与窗体文件对应的文件是（ ）。
单元文件
以“.~”为后缀名的文件
以“.grd”为后缀名的文件
以上都不对
8．Delphi的一个项目由若干文件组成，其中主程序文件的默认名是：（ ）
project1.dpr
project1.~
project1.p
project1.pas
9．Delphi没有用到的文件类型有（ ）。
.frm
.pas
.dfm
.dpr
10．Delphi的一个项目由若干文件组成，其中文件名后缀含有“~”的文件是：（ ）
代码文件
临时文件
无用文件
备份文件
11．Delphi应用程序中单元文件的扩展名是：（ ）
*.pas
*.uit
*.u
*.~
12．Delphi应用程序中项目文件的扩展名是*.()。
dpr
pas
Grd
db
13．表达式round(4.2) mod trunc(2.8)的值是（ ）。
0
1
2
3
14．结构化程序设计中，对于程序中采用的三种控制结构，要求每种结构只能有（）个入口和一个出口。
一
二
三
四
15．如果让界面上的一个按钮变为不可用，需要将它的哪一个属性设为False。
Close
Enabled
Grid
See
16．设a、x、y、z等都是整型变量，下面正确的赋值语句是( ) 。
x=y div 7
x+y=a
x :=y mod z
x+y:=z
17．设n为整型变量，且已赋值为1898，表达式(n mod 100) div 10表示：( )。
分离出个位数字
分离出十位数字
分离出百位数字
分离出千位数字
18．调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行。可通过（ ）菜单项进行。
Run
Step Over
Trace Into
Trace To Next Source Line
19．下列常量定义合法的是（ ）
CONST width=7;
CONST case=\’7\’;
CONST 1A=7.9;
CONST century=year div 100;
20．下面的函数引用将返回字符串“笔记本电脑100台！”的是：( )。
format(‘%s电脑%d台！’，[‘笔记本’,100])
format(‘%s电脑%d台！’，[100 ,‘笔记本’])
format(‘电脑%s %d台！’，[‘笔记本’,100])
format(‘%d电脑%s台！’，[‘笔记本’,100])
二、判断题（共10道，每道3分）
21．粘贴时，如果作为容器的组件已被选择，剪贴板中的组件会当作容器组件的子组件来粘贴。
对
错
22． ( (x>=5) OR (x<=-5) ) AND ( x in [1..9] ) 当x=10时，表达式的值为真（或true）
对
错
23．Delphi菜单中的“Run Into Cursor”菜单项，用于调试程序时，执行执行点所在的源代码行，并停留在下一个源代码行。
对
错
24．Delphi是面向对象的可视化的开发环境，编程语言采用Object C。
对
错
25．大多数组件的属性可以在运行时改变，而且，有些只能在运行时刻改变。
对
错
26．结构化程序设计要求程序中仅采用顺序、分支2种控制结构，其中每种结构只能有一个入口和二个出口。
对
错
27．同一类的不同对象如何区分，主要通过对象的属性的不同属性取值来区分。
对
错
28．Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。
对
错
29．对象具有属性和方法，这是对象的主要特征。
对
错
30．一个对象可以具有多个属性，但只能有一个方法。
对
错
三、程序阅读题（共1道，每道10分）
31．
阅读下面的程序段，其中edit1~edit3均为编辑框组件，当 s 为 3 ，edit1输入数字9 ， edit2输入数字3的时候，执行下面的程序段，请选择edit3应显示的内容为。
var
x,y,z,s :integer;
begin
x:= strtoint(edit1.Text);
y:= strtoint(edit2.Text);
case s of
0: z:= x+y ;
1: z:= x-y ;
2: z:= x*y ;
3: z:= x div y;
end;
edit3.text:=inttostr(z);
if s=3 then
if (x mod y<>0)then
edit3.text:=Edit3.text+\’ — \’+ inttostr(x mod y) ;
end;
执行后，edit3显示的内容为：
3
2
1
0
