2025年考纲的计算机二级Delphi试题及答案

2025年考纲的计算机二级Delphi试题及答案一、单项选择题（每题2分，共30分）1.在Delphi11Alexandria中，VCL（可视化组件库）的核心基类是？A.TObjectB.TComponentC.TControlD.TForm答案：B2.要使TEdit控件失去焦点时自动将输入内容转换为大写，应处理的事件是？A.OnChangeB.OnExitC.OnEnterD.OnKeyPress答案：B3.以下关于TStringList组件的描述，错误的是？A.可以通过Add方法添加字符串B.Clear方法用于清空所有字符串C.索引从0开始计数D.无法直接保存到文本文件答案：D4.若要在TForm窗体中动态创建一个TButton控件，正确的代码顺序是？①Button1:=TButton.Create(Self);②Button1.Parent:=Self;③Button1.Caption:='动态按钮';④Button1.Left:=100;Button1.Top:=50;A.①②③④B.①③④②C.①④③②D.①③②④答案：B5.执行以下代码后，变量i的值是？vari:Integer;begini:=1;whilei<5doifimod2=0theni:=i+2elsei:=i+1;end;A.5B.6C.4D.3答案：B6.在数据库编程中，TDataSource组件的主要作用是？A.建立数据库连接B.执行SQL查询C.连接数据集组件与数据感知组件D.管理事务答案：C7.以下能正确设置TImage控件显示D盘“logo.bmp”图片的代码是？A.Image1.Picture.LoadFromFile('D:\logo.bmp');B.Image1.LoadFromFile('D:\logo.bmp');C.Image1.Picture.Bitmap.LoadFromFile('D:\logo.bmp');D.Image1.Bitmap.LoadFromFile('D:\logo.bmp');答案：A8.若TComboBox控件的Style属性设置为csDropDownList，以下描述正确的是？A.用户可直接输入新内容B.只能从下拉列表中选择C.下拉列表不可见D.文本框内容不可编辑答案：B9.要捕获程序运行时的异常，应使用的结构是？A.if...then...elseB.case...of...C.try...except...D.repeat...until...答案：C10.以下关于TFileStream组件的描述，错误的是？A.用于处理二进制文件B.可以指定文件打开模式（如fmOpenRead）C.读取数据时需指定缓冲区大小D.不能用于文本文件读写答案：D11.在事件处理过程中，Sender参数的类型是？A.TObjectB.TControlC.TFormD.TButton答案：A12.执行以下代码后，Memo1中显示的行数是？varsl:TStringList;beginsl:=TStringList.Create;sl.Add('Line1');sl.Add('Line2');sl.Add('');sl.Add('Line4');Memo1.Lines.Assign(sl);sl.Free;end;A.3B.4C.5D.2答案：B13.若要设置TForm的启动位置为屏幕中心，应设置的属性是？A.Position:=poScreenCenterB.Align:=alClientC.AutoSize:=TrueD.BorderStyle:=bsSingle答案：A14.以下能正确实现“计算1到100累加和”的循环结构是？A.varsum,i:Integer;sum:=0;i:=1;repeatsum:=sum+i;i:=i+1;untili>100;B.varsum,i:Integer;sum:=0;fori:=1to100dosum:=sum+i;C.varsum,i:Integer;sum:=0;i:=1;whilei<=100dobeginsum:=sum+i;i:=i+1;end;D.以上都正确答案：D15.在数据库查询中，TQuery组件执行SQL语句后，若要获取记录数，应使用的属性是？A.RecordCountB.FieldCountC.EOFD.BOF答案：A二、填空题（每空2分，共20分）1.要设置TLabel控件的字体颜色，应修改其____属性。答案：Font.Color2.在Delphi中，____关键字用于释放动态创建的对象内存。答案：Free3.TTimer组件的____属性用于设置定时触发间隔（单位：毫秒）。答案：Interval4.若要让TEdit控件的输入内容显示为密码符号（如），需设置其____属性为True。答案：PasswordChar5.在文件操作中，使用____组件可以方便地读取或写入文本文件的行数据。答案：TStringList6.数据库连接组件TADOConnection的____属性用于设置连接字符串（如连接SQLServer）。答案：ConnectionString7.事件处理过程的标准定义格式为：procedure过程名(Sender:____);答案：TObject8.要使TForm窗体不可调整大小，应设置其____属性为bsSingle。答案：BorderStyle9.在循环结构中，____语句用于跳过当前循环剩余代码，继续下一次循环。答案：Continue10.若TCheckBox控件的Checked属性为True，表示该复选框处于____状态。答案：选中三、程序改错题（每题10分，共20分）【改错题1】以下代码试图实现“点击按钮时，将Edit1中的内容追加到D盘“log.txt”文件末尾”，但存在3处错误，请指出并修正。procedureTForm1.btnSaveClick(Sender:TObject);varfs:TFileStream;str:string;beginfs:=TFileStream.Create('D:\log.txt',fmOpenWrite);//①str:=Edit1.Text+1310;fs.WriteBuffer(str[1],Length(str));//②fs.Free;//③end;错误1及修正：原代码使用fmOpenWrite模式打开文件，该模式会覆盖原有内容。应改为fmOpenAppend（追加模式）或fmOpenReadWrite（读写模式）并移动到文件末尾。正确代码：fs:=TFileStream.Create('D:\log.txt',fmOpenReadWriteorfmShareDenyWrite);fs.Seek(0,soEnd);//移动到文件末尾错误2及修正：TFileStream写入字符串时，需考虑字符串的编码（如ANSI或Unicode）。Delphi默认使用Unicode，直接使用WriteBuffer可能导致乱码。应转换为字节数组或使用TStringList。修正方法（使用TStringList更简单）：varsl:TStringList;sl:=TStringList.Create;sl.LoadFromFile('D:\log.txt');sl.Add(Edit1.Text);sl.SaveToFile('D:\log.txt');sl.Free;错误3及修正：未处理文件不存在的情况。应添加异常处理。修正后代码（使用TStringList版本）：procedureTForm1.btnSaveClick(Sender:TObject);varsl:TStringList;beginsl:=TStringList.Create;tryifFileExists('D:\log.txt')thensl.LoadFromFile('D:\log.txt');sl.Add(Edit1.Text);sl.SaveToFile('D:\log.txt');finallysl.Free;end;end;【改错题2】以下代码试图实现“从数据库表‘商品’中查询价格大于100的记录，并显示在DBGrid中”，但存在2处错误，请指出并修正。procedureTForm1.btnSearchClick(Sender:TObject);beginADOQuery1.SQL.Text:='SELECTFROM商品WHERE价格>100';//①ADOQuery1.Open;DBGrid1.DataSource:=ADOQuery1;//②end;错误1及修正：未设置ADOQuery1的连接（Connection）属性。应确保ADOQuery1.Connection已正确关联到TADOConnection组件（如ADOConnection1）。错误2及修正：DBGrid的DataSource属性应关联到TDataSource组件，而非直接关联数据集。应添加TDataSource组件（如DataSource1），并设置DBGrid1.DataSource:=DataSource1，同时DataSource1.DataSet:=ADOQuery1。四、编程题（每题15分，共30分）【编程题1】设计一个Delphi程序，要求如下：（1）窗体上包含：TEdit（名称edtNumber，用于输入数字）、TButton（名称btnCalc，标题“计算”）、TLabel（名称lblResult，用于显示结果）。（2）点击“计算”按钮时，判断输入的数字是否为质数（素数）。（3）处理非数字输入的异常（如用户输入字母），并提示“请输入有效数字”。参考代码：procedureTForm1.btnCalcClick(Sender:TObject);varnum,i:Integer;isPrime:Boolean;begintrynum:=StrToInt(edtNumber.Text);ifnum<=1thenbeginlblResult.Caption:='不是质数';Exit;end;isPrime:=True;fori:=2toTrunc(Sqrt(num))doifnummodi=0thenbeginisPrime:=False;Break;end;ifisPrimethenlblResult.Caption:='是质数'elselblResult.Caption:='不是质数';exceptonE:EConvertErrordoShowMessage('请输入有效数字');end;end;【编程题2】设计一个Delphi程序，实现以下功能：（1）窗体上放置TMemo（名称memo1）、TButton（名称btnLoad，标题“加载文件”）、TButton（名称btnStats，标题“统计词频”）。（2）点击“加载文件”按钮时，使用“打开文件对话框”选择一个文本文件（.txt），并将内容显示在memo1中。（3）点击“统计词频”按钮时，统计memo1中每个单词（以空格分隔）的出现次数，并将结果按“单词:次数”格式显示在另一个TMemo（名称memo2）中。参考代码：procedureTForm1.btnLoadClick(Sender:TObject);varOpenDialog:TOpenDialog;beginOpenDialog:=TOpenDialog.Create(Self);tryOpenDialog.Filter:='文本文件|.txt';ifOpenDialog.Executethenbeginmemo1.Lines.LoadFromFile(OpenDialog.FileName);end;finallyOpenDialog.Free;end;end;procedureTForm1.btnStatsClick(Sender:TObject);varslWords,slStats:TStringList;i,count:Integer;word:string;beginslWords:=TStringList.Create;s