A.fsNormalB.fsMIDChildC.fsMIDFormD.fsStayOnTopE.fsDeskT……

单项选择题发生在鼠标左键单击控件时的事件是（）

A.OnMouseDown
B.OnMouseUp
C.OnClick
D.OnDbClick
E.OnEnter

单项选择题为让控件显示弹出式提示框文字，需用到控件的（）属性。

A.Handle
B.Hint
C.ShowHint
D.Showing
E.Visible

单项选择题在VCL中（）是TDBListBox的父类

A.TCustomListBox
B.TListBox
C.TDBDataset
D.TDatabase
E.TDBEdit

单项选择题已知Var f：file of integer；则f所代表的文件是（）

A.ASCII码文件
B.二进制文件
C.文本文件
D.存放整数的文本文件
E.HTML文件

单项选择题已知Var a：array[1..10] of integer； 执行后输出的是（）

A.数组中的平均值
B.数组中的最大值
C.数组中的最小值
D.数组中的总和
E.无法确定

单项选择题调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行。可通过（）菜单项进行。

A.A
B.B
C.C
D.D
E.E

单项选择题下面关于属性的论述正确的是（）。

A.属性能实现write方法
B.属性能实现read方法
C.属性可以只读或只写
D.属性可以公开或非公开
E.属性不能直接存取

单项选择题Query组件没有Table组件那样的（）属性。

A.DataSource
B.TableName
C.Filtered
D.Database
E.UpdateObject

单项选择题Delph没有用到的文件类型有（）。

A..frm
B..pas
C..dfm
D..dpr
E..res

单项选择题一个对象类可以继承和直接使用它的父类的所有成员，除了（）

A.public域
B.private域
C.protected域和private域
D.protected域和方法
E.private域和方法

单项选择题以下哪个组件不可以由用户输入编辑文本？（）

A.TEdit
B.TcomboBox
C.TMaskEdit
D.Tlabel
E.TStringGrid

单项选择题某函数如下： 若调用语句y：=check（3725，3），运行后y值为（）

A.7
B.5
C.2
D.0

单项选择题用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（）。

A.F12和F11
B.F12和F13
C.F12和Ctrl+F12
D.F12和Alt+F12
E.F12和Shift+F12

问答题本程序设计界面及运行界面如下： 程序功能是：用户输入一个3位正整数后，按“确定”键，该数字的个位、十位、百位数字分别显示在输出框中。如果输入的数据不在规定范围之内，程序要给出错误提示。 请编写单击“确定”按钮的事件处理程序。

问答题本程序实现一个简单的借书界面。程序的设计界面和运行界面如下图所示： 该程序涉及到数据库中的两张表：books（图书信息）和borrow（借书记录）。表的结构为： books（bno，书号，bname书名，num现有册数） borrow（rno读者号，bno书号，rdate还书日期） 其中，rno和bno都是字符型（3位）。 在用户界面，操作员选中一本书、输入借书证号后，按“借书”键完成借书功能，即在borrow表中插入一条借书记录，并将books表中该书现有册数减1。 该界面要实现以下合法性检查： 当该读者已经借了此书，不能再借。 当所借的书现有册数为0，不能再借。 在Form1上建立的数据库组件对象及连接关系如下： Database1－Table1（与books表相连）－DataSource1－DBGrid1（显示图书信息） Database1－Table2（与borrow表相连，用于插入借书记录） Database1－Query1 其中为Table1建立了3个永久字段：Table1bno（书号）、Table1bname（书名）、Table1num（现有册数）。 Query1的SQL语句如下： 下面是Unit1的代码实现部分，请完成程序填空：