2025年计算机二级Delphi常见题型试题及答案

2025年计算机二级Delphi常见题型试题及答案一、选择题1.关于Delphi集成开发环境（IDE），以下描述错误的是（）A.代码编辑器支持语法高亮和自动完成B.对象观察器（ObjectInspector）用于设置组件属性和事件C.工程管理器（ProjectManager）只能管理当前工程的单元文件D.窗体设计器中可通过拖放操作添加VCL组件2.以下关于对象Pascal语言的基本语法，正确的是（）A.变量声明必须在var关键字后，且类型不可省略B.字符串常量使用单引号，支持用两个单引号表示一个单引号字符C.布尔类型只有True和False两个值，与整数1和0严格等价D.过程（Procedure）和函数（Function）的区别仅在于是否有返回值3.若在窗体中放置一个TEdit组件（命名为edtPassword），要求输入时显示“”号，需设置的属性是（）A.edtPassword.MaxLength:=16B.edtPassword.PasswordChar:=''C.edtPassword.EchoChar:=''D.edtPassword.HideSelection:=True4.TListBox组件（命名为lbxItems）中判断第3个条目（索引从0开始）是否被选中，正确的表达式是（）A.lbxItems.Items[2].SelectedB.lbxItems.Selected[2]C.lbxItems.ItemIndex=2D.lbxItems.Items.Selected(2)5.以下异常处理结构中，能确保无论是否发生异常都执行清理代码的是（）A.try...except...endB.try...finally...endC.onErrordo...D.exception...raise...end6.使用TQuery组件（命名为qryStudent）执行SQL查询“SELECTFROMStudentsWHEREAge>18”，正确的代码顺序是（）①qryStudent.Open;②qryStudent.SQL.Clear;③qryStudent.SQL.Add('SELECTFROMStudentsWHEREAge>18');④qryStudent.Close;A.④→②→③→①B.②→③→①→④C.①→②→③→④D.③→②→④→①7.TStringList组件（命名为slData）设置Sorted属性为True后，以下操作会触发自动排序的是（）A.slData.Add('Apple');B.slData[0]:='Banana';C.slData.Delete(2);D.slData.LoadFromFile('data.txt');8.TImage组件（命名为imgLogo）加载当前目录下“logo.bmp”图片，正确的代码是（）A.imgLogo.Picture.LoadFromFile('logo.bmp');B.imgLogo.Image.LoadFromFile('logo.bmp');C.imgLogo.LoadFromFile('logo.bmp');D.imgLogo.Picture.Graphic.LoadFromFile('logo.bmp');9.TCheckBox组件（命名为chkAgree）的Checked属性类型是（）A.Integer（0-2）B.Boolean（True/False）C.TCheckBoxState（cbUnchecked,cbChecked,cbGrayed）D.String（'Checked'/'Unchecked'）10.TButton组件（命名为btnOK）设置Default属性为True后，其功能是（）A.按下Enter键时触发Click事件B.按钮外观变为默认样式（如蓝色边框）C.按钮成为窗体的默认接受按钮，自动获得焦点D.按钮禁用时显示为灰色二、程序填空题1.以下代码实现“计算1到n的累加和”功能，其中n从edtInput（TEdit）输入，结果显示在lblResult（TLabel）。请补全空白处代码。procedureTForm1.btnCalculateClick(Sender:TObject);varn,sum:Integer;beginifTryStrToInt(edtInput.Text,n)thenbeginsum:=0;for______①______dosum:=sum+i;lblResult.Caption:='累加和为：'+IntToStr(sum);endelseShowMessage('请输入有效整数');end;2.以下代码使用TADOQuery组件（qrySales）查询“Sales”表中2024年的记录，结果显示在dbgrdSales（TDBGrid）。请补全数据库连接和查询代码。procedureTForm1.FormCreate(Sender:TObject);beginadoConn1.ConnectionString:='Provider=SQLOLEDB;DataSource=LocalDB;InitialCatalog=CompanyDB;IntegratedSecurity=SSPI';tryadoConn1.______②______;//打开数据库连接qrySales.Connection:=adoConn1;qrySales.SQL.Text:='SELECTFROMSalesWHEREYear(SaleDate)=2024';qrySales.______③______;//执行查询dbgrdSales.DataSource:=dsSales;//dsSales已关联qrySalesexceptonE:ExceptiondoShowMessage('数据库连接失败：'+E.Message);end;end;三、程序改错题1.以下代码意图实现“计算两个数的商”，并处理除零异常，但存在3处错误，请指出并改正。procedureTForm1.btnDivideClick(Sender:TObject);vara,b,result:Double;beginifTryStrToFloat(edtA.Text,a)andTryStrToFloat(edtB.Text,b)thenbegintryresult:=a/b;ifb=0thenraiseException.Create('除数不能为零');lblResult.Caption:='结果：'+FloatToStr(result);exceptonE:ExceptiondoShowMessage(E.Message);end;endelseShowMessage('请输入有效数字');end;错误1：__________________________改正：__________________________错误2：__________________________改正：__________________________错误3：__________________________改正：__________________________2.以下代码意图将TMemo组件（memInput）中的内容按行逆序存入TListBox（lbxOutput），但运行后未正确显示，存在2处错误。procedureTForm1.btnReverseClick(Sender:TObject);vari:Integer;sl:TStringList;beginsl:=TStringList.Create;trysl.Assign(memInput.Lines);fori:=0tosl.Count1dolbxOutput.Items.Add(sl[sl.Counti]);finallysl.Free;end;end;错误1：__________________________改正：__________________________错误2：__________________________改正：__________________________四、编程题1.设计一个“学生信息添加”功能，要求：窗体包含TEdit组件（edtName、edtAge）分别输入姓名和年龄，TButton（btnAdd）触发添加操作，TLabel（lblMessage）显示提示信息。验证规则：姓名非空，年龄在15-25之间（含边界）。使用TADOQuery组件（qryStudent）将数据插入“Students”表（字段：Name（varchar）、Age（int））。要求处理数据库操作异常，显示具体错误信息。请编写btnAdd的Click事件处理代码。2.编写程序实现“文本文件统计”功能：通过TOpenDialog选择一个文本文件（.txt）。统计文件中的单词数量（单词由字母组成，不区分大小写，单词间用空格、逗号或换行分隔）。在TLabel（lblCount）中显示统计结果。要求：使用TStringList读取文件内容，通过循环和字符串处理实现统计逻辑。答案及解析一、选择题1.C（工程管理器可管理多个工程，支持工程组）2.B（A可省略类型默认Variant；C布尔与整数需显式转换；D过程无返回值，函数有）3.B（TEdit的PasswordChar属性控制回显字符）4.B（TListBox的Selected属性是布尔数组，索引对应条目是否选中）5.B（finally块无论是否异常都会执行）6.A（执行查询前需关闭连接，清空原有SQL，添加新SQL，再打开）7.A（Add操作触发自动排序；修改、删除、加载文件需手动调用Sort）8.A（TImage的Picture属性管理图形加载）9.C（TCheckBox支持三态：未选中、选中、灰色）10.A（Default为True时，按Enter键触发Click）二、程序填空题1.①i:=1ton（循环变量i从1到n累加）2.②Open（打开数据库连接）；③Open（执行查询并返回记录集）三、程序改错题1.错误1：异常检测顺序错误（先计算a/b再判断b=0无意义）改正：将“ifb=0thenraise...”移到“result:=a/b;”之前错误2：除零操作会直接触发运行时异常（b=0时a/b已抛出异常，后续代码不会执行）改正：删除“ifb=0then...”，直接通过except捕获异常错误3：未处理b=0时的输入（TryStrToFloat允许b=0，但数学上不合法）改正：在if条件中添加“and(b<>0)”修改后代码：ifTryStrToFloat(edtA.Text,a)andTryStrToFloat(edtB.Text,b)and(b<>0)thenbegintryresult:=a/b;lblResult.Caption:='结果：'+FloatToStr(result);exceptonE:ExceptiondoShowMessage(E.Message);end;end2.错误1：循环索引越界（sl.Counti当i=0时为sl.Count，超出0到sl.Count-1范围）改正：sl[sl.Count1i]错误2：循环方向错误（从0到sl.Count-1添加会导致顺序错误）改正：将循环改为“fori:=sl.Count1downto0do”四、编程题1.btnAdd的Click事件代码：procedureTForm1.btnAddClick(Sender:TObject);varsName:string;iAge:Integer;beginsName:=Trim(edtName.Text);ifsName=''thenbeginlblMessage.Caption:='姓名不能为空';Exit;end;ifnotTryStrToInt(edtAge.Text,iAge)or(iAge<15)or(iAge>25)thenbeginlblMessage.Caption:='年龄需为15-25之间的整数';Exit;end;tryqryStudent.SQL.Clear;qryStudent.SQL.Add('INSERTINTOStudents(Name,Age)VALUES(:Name,:Age)');qryStudent.ParamByName('Name').Value:=sName;qryStudent.ParamByName('Age').Value:=iAge;qryStudent.ExecSQL;lblMessage.Caption:='添加成功';exceptonE:ExceptiondolblMessage.Caption:='添加失败：'+E.Message;end;end;2.文本文件统计功能代码：procedureTForm1.btnCountClick(Sender:TObject);varsl:T