2025年秋国开电大《Delphi程序设计》形考任务阶段测验2答案

2025年秋国开电大《Delphi程序设计》形考任务阶段测验2答案一、单项选择题（每题2分，共20分）1.在Delphi类定义中，成员默认的访问权限是（）。A.publicB.privateC.protectedD.published答案：B解析：Delphi中类成员若未显式声明访问修饰符，默认权限为private，仅在类内部可访问。2.以下关于构造函数的描述，错误的是（）。A.构造函数名必须为CreateB.可通过override关键字覆盖父类构造函数C.构造函数无返回值D.子类构造函数需先调用父类构造函数答案：A解析：Delphi中构造函数默认名为Create，但也可自定义名称（需配合重写），因此A错误。3.事件处理过程的标准参数类型是（）。A.TObjectB.TComponentC.TFormD.TControl答案：A解析：事件处理过程通常定义为procedure...(Sender:TObject);，Sender参数类型为TObject。4.TEdit控件的Text属性用于（）。A.显示提示文本B.存储输入的文本内容C.设置字体样式D.控制可见性答案：B解析：TEdit的Text属性直接对应控件中用户输入或程序设置的文本内容。5.要实现多态，父类方法需声明为（）。A.virtualB.staticC.abstractD.override答案：A解析：虚方法（virtual）允许子类通过override覆盖，实现运行时多态；abstract为抽象方法，需子类实现。6.TListBox控件的Items属性类型是（）。A.TStringsB.TStringListC.TObjectListD.TCollection答案：A解析：Items属性为TStrings类型，用于存储列表中的字符串项，支持Add、Clear等操作。7.数据库组件TQuery的SQL属性用于（）。A.设置数据库连接字符串B.存储SQL查询语句C.绑定数据感知控件D.执行事务操作答案：B解析：TQuery的SQL属性是TStrings类型，用于编写SELECT、INSERT等SQL语句。8.异常处理中，用于捕获特定异常类型的关键字是（）。A.tryB.exceptC.on...doD.finally答案：C解析：onE:Exceptiondo结构可捕获指定类型的异常（如E:EConvertError），执行对应处理。9.以下关于继承的描述，正确的是（）。A.子类无法访问父类private成员B.多继承在Delphi中直接支持C.覆盖父类方法需使用overload关键字D.所有类默认继承自TObject答案：D解析：Delphi中所有类的根类是TObject；子类无法访问父类private成员（protected可访问）；Delphi不支持多继承；覆盖方法用override。10.TForm的OnCreate事件触发时机是（）。A.窗体显示前B.窗体关闭后C.控件创建前D.程序结束时答案：A解析：OnCreate事件在窗体实例化完成、显示前触发，常用于初始化控件或加载数据。二、填空题（每空2分，共20分）1.在Delphi中，类的声明以关键字______开始，以______结束。答案：class；end2.构造函数中调用父类构造函数的语法是______，析构函数中调用父类析构函数的语法是______。答案：inheritedCreate;；inheritedDestroy;3.事件处理过程的参数Sender表示______，其类型通常为______。答案：触发事件的对象；TObject4.TMemo控件的Lines属性与TEdit的______属性类似，均为______类型。答案：Text；TStrings5.数据库编程中，TDataSource组件的作用是______，其DataSet属性需关联______组件。答案：连接数据集与数据感知控件；TQuery或TTable三、简答题（每题10分，共30分）1.简述面向对象编程中“封装”的含义及Delphi的实现方式。封装是面向对象的核心特性之一，指将数据（属性）和操作（方法）捆绑为一个整体（类），并通过访问修饰符控制外部对内部成员的访问权限。在Delphi中，通过public、private、protected等关键字实现封装：public成员可被任何代码访问；private成员仅类内部访问；protected成员可被类本身及子类访问。例如，定义一个TUser类时，将姓名（FName）设为private，通过public方法SetName和GetName间接访问，避免外部直接修改数据，保证数据安全性。2.说明事件驱动编程的特点，并举例Delphi中事件处理的典型流程。事件驱动编程以事件（如鼠标点击、键盘输入）为程序执行的核心，程序等待事件触发并调用对应的处理过程。其特点包括：非顺序执行（由事件触发顺序决定）、异步性（事件可能随机发生）、模块化（事件处理过程独立）。在Delphi中，典型流程为：（1）在对象查看器（ObjectInspector）中选择控件（如TButton）；（2）找到事件列表（如OnClick）；（3）双击事件名自动提供事件处理过程框架（如procedureTForm1.Button1Click(Sender:TObject);）；（4）在过程中编写具体逻辑（如显示消息框）。当用户点击按钮时，系统触发OnClick事件，调用该处理过程执行代码。3.比较TQuery和TTable组件在数据库操作中的区别及适用场景。TTable和TQuery均为Delphi中访问数据库的组件，但功能和适用场景不同：（1）数据操作范围：TTable直接操作单个数据库表，仅支持对单表的增删改查；TQuery通过SQL语句可操作多表（如JOIN），支持复杂查询（如分组、排序）。（2）灵活性：TTable操作依赖内置方法（如Append、Delete），适合简单单表操作；TQuery通过编写SQL语句实现灵活查询，适合复杂业务逻辑。（3）性能：TTable对单表操作效率较高（无需解析SQL）；TQuery执行复杂SQL时需数据库解析，但适用范围更广。示例：若需从“学生”表中查询所有年龄>18的记录，用TTable需设置Filter属性（Filter:='Age>18'），而用TQuery可直接写SQL：SELECTFROM学生WHEREAge>18，后者更直观。四、编程题（每题15分，共30分）1.编写一个Delphi程序，实现以下功能：（1）界面包含两个TEdit控件（分别输入姓名、年龄）、一个TButton控件（标题“添加”）、一个TListBox控件（显示学生列表）；（2）点击“添加”按钮时，将姓名和年龄组合为“姓名（年龄岁）”格式添加到TListBox；（3）处理年龄输入非数字的异常（如用户输入“abc”），弹出消息框提示“年龄必须为数字”。实现步骤：（1）创建新工程，在Form1上添加：Edit1（姓名输入，Text属性初始为空）Edit2（年龄输入，Text属性初始为空）Button1（Caption设为“添加”）ListBox1（用于显示结果）（2）双击Button1，编写OnClick事件处理过程：procedureTForm1.Button1Click(Sender:TObject);varNameStr,AgeStr:string;Age:Integer;beginNameStr:=Edit1.Text.Trim;//获取姓名并去除首尾空格AgeStr:=Edit2.Text.Trim;ifNameStr=''thenbeginShowMessage('姓名不能为空');Exit;//姓名为空时直接返回end;tryAge:=StrToInt(AgeStr);//尝试转换年龄为整数ifAge<0thenraiseException.Create('年龄不能为负数');//自定义异常ListBox1.Items.Add(Format('%s（%d岁）',[NameStr,Age]));//添加到列表框Edit1.Text:='';//清空输入框Edit2.Text:='';exceptonE:EConvertErrordo//捕获类型转换异常（如非数字输入）ShowMessage('年龄必须为数字');onE:Exceptiondo//捕获其他自定义异常（如负数）ShowMessage(E.Message);end;end;（3）代码说明：使用Trim函数处理输入，避免空格干扰；先检查姓名是否为空，为空时提示并退出；try...except块捕获StrToInt可能引发的EConvertError异常（非数字输入）；自定义异常处理年龄负数情况，提高输入合法性；成功添加后清空输入框，提升用户体验。2.定义一个动物类层次结构，要求：（1）基类TAnimal，包含虚方法Speak（返回叫声字符串）；（2）子类TDog（继承TAnimal），覆盖Speak方法返回“汪汪”；（3）子类TCat（继承TAnimal），覆盖Speak方法返回“喵喵”；（4）编写测试代码，创建TAnimal、TDog、TCat对象数组，遍历调用Speak方法并输出结果。实现代码：unitAnimalUnit;interfaceusesSysUtils;typeTAnimal=classpublicfunctionSpeak:string;virtual;//虚方法，允许子类覆盖end;TDog=class(TAnimal)publicfunctionSpeak:string;override;//覆盖父类虚方法end;TCat=class(TAnimal)publicfunctionSpeak:string;override;//覆盖父类虚方法end;implementation{TAnimal}functionTAnimal.Speak:string;beginResult:='（无特定叫声）';//基类默认实现end;{TDog}functionTDog.Speak:string;beginResult:='汪汪';end;{TCat}functionTCat.Speak:string;beginResult:='喵喵';end;end.测试代码（在Form的OnCreate事件中）：procedureTForm1.FormCreate(Sender:TObject);varAnimals:arrayofTAnimal;i:Integer;beginSetLength(Animals,3);Animals[0]:=TAnimal.Create;//基类对象Animals[1]:=TDog.Create;//子类对象Animals[2]:=TCat.Create;//子类对象fori:=0toHigh(Animals)doMemo1.Lines.Add(Animals[i].Sp