2025年计算机二级Delphi教材试题及答案

2025年计算机二级Delphi教材试题及答案一、单项选择题（每题2分，共30分）1.以下关于Delphi集成开发环境（IDE）的描述中，错误的是（）A.代码编辑器支持语法高亮和自动完成B.对象检查器（ObjectInspector）用于查看和设置对象的属性、事件C.工程管理器（ProjectManager）只能管理当前打开的一个工程D.窗体设计器（FormDesigner）支持可视化拖拽组件2.在Delphi中，TButton组件的默认事件是（）A.OnCreateB.OnClickC.OnDblClickD.OnMouseDown3.要设置TEdit组件的输入内容为密码格式（显示星号），应修改其（）属性A.PasswordCharB.TextC.HintD.MaxLength4.以下关于TListBox组件的说法，正确的是（）A.只能显示文本信息B.Items属性用于存储列表项，类型为TStringsC.Selected属性返回当前选中项的索引D.Clear方法用于删除当前选中项5.若要在Delphi中连接SQLServer数据库，最常用的数据库连接组件是（）A.TADOConnectionB.TIBConnectionC.TSQLConnectionD.TODBCConnection6.在Delphi面向对象编程中，以下关于继承的描述错误的是（）A.子类可以继承父类的公有（public）成员B.子类可以重写（override）父类的虚方法（virtual）C.所有类最终都继承自TObjectD.多继承（一个子类继承多个父类）是Delphi支持的特性7.执行以下代码后，变量i的值为（）vari:Integer;begini:=5;ifi>3thenifi<6theni:=i2elsei:=idiv2;end;A.5B.10C.2D.78.TDateTime类型变量存储的是（）A.日期和时间的字符串表示B.从1970年1月1日起的秒数C.从0001年1月1日起的天数（整数部分）和当天的时间（小数部分）D.固定长度的14位数字（YYYYMMDDHHMMSS）9.以下异常处理结构中，正确的是（）A.try...except...endB.try...finally...except...endC.try...on...do...endD.try...catch...end10.要将TMemo组件中的内容保存到文本文件，应使用（）方法A.Memo1.Lines.SaveToFileB.Memo1.Text.SaveToFileC.Memo1.SaveToFileD.FileWrite(Memo1.Text)11.在数据感知组件（如TDBGrid）中，用于连接数据集（如TADOQuery）的中间组件是（）A.TDataSourceB.TDataModuleC.TDataSetD.TDBConnection12.以下关于过程（Procedure）和函数（Function）的描述，错误的是（）A.函数必须有返回值，过程没有返回值B.过程和函数都可以通过参数返回多个值（使用var参数）C.函数的声明以function开头，过程以procedure开头D.过程和函数都不能在另一个过程/函数内部定义13.执行以下代码后，ListBox1中显示的项数是（）ListBox1.Items.Add('苹果');ListBox1.Items.Insert(0,'香蕉');ListBox1.Items.Delete(1);A.1B.2C.3D.014.若要限制TEdit组件只能输入数字，应在其（）事件中添加验证代码A.OnChangeB.OnKeyPressC.OnEnterD.OnExit15.以下关于TForm窗体的说法，错误的是（）A.窗体的BorderStyle属性决定其边框样式B.窗体的Show方法显示模态对话框（阻塞其他窗口）C.窗体的Close方法触发OnClose事件D.窗体的Name属性用于在代码中引用该窗体对象二、程序填空题（每空3分，共30分）题目：实现一个学提供绩录入窗体，要求如下：窗体包含TEdit（edtName）用于输入姓名，TEdit（edtScore）用于输入分数（0-100），TButton（btnSave）用于保存点击保存按钮时，检查姓名是否为空、分数是否为有效数值且在0-100之间有效数据通过TADOQuery组件（aqyMain）插入到数据库的t_student表（字段：s_name,s_score）使用异常处理机制捕获数据库操作错误部分代码如下，请补充缺失部分：procedureTForm1.btnSaveClick(Sender:TObject);varsName:string;iScore:Integer;beginsName:=Trim(edtName.Text);//检查姓名是否为空if①thenbeginShowMessage('姓名不能为空！');edtName.SetFocus;Exit;end;//检查分数是否有效ifnotTryStrToInt(Trim(edtScore.Text),iScore)thenbeginShowMessage('分数必须为整数！');edtScore.SetFocus;Exit;end;if②thenbeginShowMessage('分数必须在0-100之间！');edtScore.SetFocus;Exit;end;//数据库操作tryaqyMain.Connection:=③;//假设已在数据模块中配置好连接aqyMain.SQL.Clear;aqyMain.SQL.Add('INSERTINTOt_student(s_name,s_score)VALUES(:name,:score)');④;//设置参数值aqyMain.ParamByName('score').AsInteger:=iScore;⑤;//执行插入操作ShowMessage('保存成功！');//清空输入框edtName.Text:='';edtScore.Text:='';exceptonE:ExceptiondoShowMessage('保存失败：'+⑥);end;end;三、程序设计题（共40分）题目：设计一个图书管理系统的查询窗体，具体要求如下：1.窗体包含以下组件：TEdit（edtKeyword）：用于输入书名关键字TButton（btnSearch）：点击后执行查询TDBGrid（dbgrdBooks）：显示查询结果TADOConnection（adoConn）：连接Access数据库（数据库路径：'D:\BookDB.accdb'）TADOQuery（adoQry）：执行查询操作TDataSource（dsBooks）：连接数据集和DBGrid2.功能要求：点击查询按钮时，检查关键字是否为空（空则查询所有图书）使用参数化查询防止SQL注入，查询t_book表（字段：b_id（编号）、b_title（书名）、b_author（作者）、b_price（价格））查询条件：书名包含输入的关键字（模糊查询）查询结果显示在DBGrid中处理数据库连接异常（如无法连接数据库时提示错误）请编写btnSearch按钮的OnClick事件处理代码。答案一、单项选择题1.C2.B3.A4.B5.A6.D7.B8.C9.A10.A11.A12.D13.A14.B15.B二、程序填空题①sName=''②(iScore<0)or(iScore>100)③dmMain.adoConn（假设数据模块名为dmMain，连接组件为adoConn）④aqyMain.ParamByName('name').AsString:=sName⑤aqyMain.ExecSQL⑥E.Message三、程序设计题procedureTForm1.btnSearchClick(Sender:TObject);varsKeyword:string;beginsKeyword:=Trim(edtKeyword.Text);//配置数据库连接adoConn.ConnectionString:='Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\BookDB.accdb;PersistSecurityInfo=False';try//连接数据库ifadoConn.ConnectedthenadoConn.Close;adoConn.Connected:=True;//构造查询SQLadoQry.Close;adoQry.SQL.Clear;ifsKeyword=''thenadoQry.SQL.Add('SELECTb_idAS编号,b_titleAS书名,b_authorAS作者,b_priceAS价格FROMt_book')elsebeginadoQry.SQL.Add('SELECTb_idAS编号,b_titleAS书名,b_authorAS作者,b_priceAS价格FROMt_book');adoQry.SQL.Add('WHEREb_titleLIKE:keyword');adoQry.ParamByName('ke