exit;
end ;
if thenbeginshowmessage( 该书已全部借出 );
exit ;
end;
/插入借书记录 ;
table1num.value := table1num.value - 1 ;
/ 现有册数减 1 table1.po 。

35、st ;
end;
end.- 五、编程题（ 10 分）本程序设计界面及运行界面如下：程序功能是：用户输入一个 3 位正整数后 ， 按 “确定 ”键 ， 该数字的个位、十位、百位数字分别显示在输出框中 。
如果输入的数据不在规定范围之内 ， 程序要给出错误提示 。
请编写单击 “确定 ”按钮的事件处理程序 。
【篇三： delphi 复习题答案版】ss=txt 持 。
3、要想使窗体中的某个控件获得焦点 ， 则需调用方法 。
文本的格式 。
p645、由于 tdbgrid 控件和 tdbnavigator控件是自动地访问数据集控件中所有可6、函数 format( 本场%已进了 1 个球！ ,李 铁 返) 回的字符串为本场李铁已进了 。

36、 1 个球!。
7、tedit 控件的 maxlength 属性是设置 8、想在 button 按钮上设置快捷方式 ， 需要在 caption 属性中应用符号 9、通过数据库字段对 象（例如： ttalbe 部件的字段对象）的属性可以读取字段值 ， 并且将 它转换成字符串类型 。
10、delphi 为用户提供一种 append 方法 ， 用来以便与在文件末尾添加文本。
11、常量是一种内容不能改变的标识符 ， 常量声明采用保留字 12 、delphi 的计时器的 interval 属性设置为 1000， 即是每隔秒会被触发一次 。
1、以下正确的枚举类型的定义是（ c ） 。
（a）type vowel=( a, e, 。

37、 （i b）, typt en u, m=u(1.)3, 8.10)（c）type color=(red, blue, black) （d）type realtype=(1.5, 2.5,3.5, 4.5) 2 、已知如下子界类型定义及变量声明： type ntype= -10 .10;
var m: ntype;
n: integer;
问下列语句哪一个可能产生错误：（ b ） 。
（a）n := m;
（b）m :=n;
（c）n := abs(m);
（d）n := n+m;
3 、下列哪些符号哪一个是 delphi6 中的合法变量名（ a ） 。
（a）ab5 （b）0ab （c）then （d 。

38、）ab8 4 、下面哪个是 delphi工程文件的扩展名（ b ） 。
（a）.pas （b）.dpr （c）.cfg （d）.dfm 5 、memo 控件的 align属性用于调整该对象在窗口中的对齐方式 ， 当需要该控件顶部对齐时 ， 其值可以设置为（ a） 。
（a）altop （b）alclient （c）albotton （d）alright 6 、设有一个自定义过程声明如下： procedure silly(a: integer;
var b: integer);
var c: integer;
begina:=1;
b:=12;
c:=14;
end;
执行下述程序段： a:=4;
b:=8;
c:=6 。

39、;
silly(b, a);
则 a, b, c 的值分别是什么？（a）(12,4,6) （b）(4,1,14) （c）(12,8,6) （d）(12,1,6) 7 、下列（ c ）语句不是标准的 sql 语言中的 。
（a）select （b）insert （c）rename （d）delete 8 、下列常量说明语句中哪个（ c ）是合法的 。
（a）const c:=(a6.8) ；（b）constc: 6.8 ； （c）const c=6.8 ；（d）constc:=10 and 20 ； 9、设有如下程序段：s: = 100 ;
n: = 3 ;
for ch := a to e dobegini 。

40、f not odd(n) then s := s n ;
n := n + 5;
end;
假设所有变量均已说明 ， 程序执行后 s 的值是：（a） 97（b） 89 （c）74（d）58 10 、下面哪一条 delphi6 语句能够实现如下功能 ， 在列表框 listbox1 的第 5 行中插入一个新选项欢迎使用 delphi （ c ） 。
（a）listbox1.item.insert(5, 欢迎使用delphi （);
b）listbox1.item.add( 欢迎使用 delphi , 5) ;
（c）listbox1.item.insert(4, 欢迎使用 delphi ) ;
（d）li stbo 。

41、x1.item.add(4, 欢迎使用 delphi ) ;
11、几何图形控件 shape 位于工具栏上的 additional 页中 ， 用于在窗体上绘制一些常见的几何图形 ， 下面哪个图形是不能由 shape 绘制的（ d ） 。
（a）圆角正方形（ b）矩形 （c）圆形 （d）菱形12、有以下程序段： i :=1;
repeat j :=j*i;
i :=i+2;
until j2*i;
假设所有变量均已说明 ， 该循环体的执行次数是（ ） 。
（a）1 （b）2（c）3（d）4三、判断题1、函数 pos(s0, s) 返回子字符串 s0 在字符串 s 中的位置 ， 若 s0 在s 中 ， 则返回为 0 。
(对)3、ed 。

42、it 控件既可用来供用户输入单行和多行文本也可以用来显示它们 。
4、组合框 comboxbox 兼有 editbox和 listbox 两者的功能 ， 其 seltext 属性是用来存储显示于编辑区中被选中项的内容 。
(对) 5、在 object pascal 语法中 ， 函数的返回值通过函数名或预定义的 result 带回 ，6、当容器控件的位置、可视性以及有效性属性发生改变时 ， 其中的子控件也发生同样的变化 。
7、delphi 使用的就是 object pascal 语言 ，object pascal 和 turbopascal 是完全相同的 。

来源：(未知)

【学习资料】网址：/a/2021/0413/0021925158.html

标题：delphi|delphi面试题及答案( 五 )