1. 下列函数头合法的是（ ）
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;);
2. 已知函数如下：
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)的值是( )
A、 0
B、 1
C、 -1
D、 -2
E、 2
3. 下列类型中合法的是（ ）
A、 TYPE a=10..10;
B、 TYPE b=10..5;
C、 TYPE c=(10);
D、 TYPE d=10.0..20.0;
E、 TYPE e=random(9)..1
4. 已知 Var a:array['a'..'e',1..4,boolean] of real;
则数组a中包含的元素的个数为（）
A、 5
B、 20
C、 40
D、 11
E、 22
5. 已知 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、 数组中的总和
E、 无法确定
6. 已知Var f:file of integer;则f所代表的文件是（ ）
A、 ASCII码文件
B、 二进制文件
C、 文本文件
D、 存放整数的文本文件
E、 HTML文件
7. 在VCL中（ ）是TDBListBox的父类
A、 TCustomListBox
B、 TListBox
C、 TDBDataset
D、 TDatabase
E、TDBEdit
8. 为让控件显示弹出式提示框文字，需用到控件的（）属性
A、 Handle
B、 Hint
C、 ShowHint
D、 Showing
E、Visible