《2022年Delphi程序设计试题及答案 .pdf》由会员分享，可在线阅读，更多相关《2022年Delphi程序设计试题及答案 .pdf（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、一、填空题（20 分，每空2 分）1、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有一个入口和。2、现实世界中对象具有自己的状态和行为。与此相对应，面向对象技术中的对象可以具有自己的和方法。3、Delphi 的一个项目由若干文件组成，其中与窗体文件对应的文件是。4、在设计阶段，ListBox 对象列表框中的内容是通过属性来进行设置的。5、调用主窗体的方法，可以结束程序。6、如果要在窗体上设计一个主菜单，首先要建立对象。7、当 Query 对象中存储一条Delete 语句时，执行该语句需要调用Query 的方法。8、与数学表达式对应的 Object Pascal
2、表达式是9、通过 Animate 对象的属性设置，可以指定系统标准的AVI 动画演示。10、利用对象的 LineTo 等方法，可以绘制基本图形。二、单项选择题（20 分，每题2 分）1、下面哪句话比较准确地定义了Delphi（）。A面向对象的可视化的开发环境B多媒体制作工具C数据库的客户端开发工具D高级编程语言2、下面哪个功能键可以调出Delphi 的联机帮助信息（）AF1 键BF2 键CF3 键DF4 键3、“x 是小于 10 的非负数”的Object Pascal 表达式是（）A0 x=0)AND(x=0,x=0)OR(x10)4、工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中
3、”、“右对齐”），它们的GroupIndex 属性正确的设置是（）名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 9 页 -AGroupIndex 属性值都为0 BGroupIndex 属性值非0，且互不相同CGroupIndex 属性值非0，且相同DGroupIndex 属性值互不相同5、利用 Image 对象的哪个属性设置，可以使Image 对象的显示区域随着调入图像的大小自动调整以显示全图（）AStretch BAutoSize CAlign DCenter 6、现建立一个简单报表，仅包含报表标题栏、数据列标题栏和数据栏，则在Bands 属性的子属性中，不需要选择的是（）A
4、HasColumnHeader B Detail CTitle DSummary 7、在窗体上建立多页面，需要首先建立的对象是（）A TabControl BPageControl C HeaderControl D PageScroller 8、既可以通过选择输入、又可以直接输入的数据感知控件是（）ADBRadioGroup BDBListBox CDBComboBox DDBCheckBox 9、如果要求每当光标进入edit 编辑框中时，编辑框都清空，可以在哪个事件处理程序中编写代码实现（）AOnClick BOnMouseMove COnKeyPress DOnEnter 10、下面哪个
5、组件不是容器组件（）AForm BPanel CGroupBox DMemo 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 9 页 -三、判断题（10 分，每题1 分）请给下列论述中正确的打上“”，错误的打上“”1、（）在 Delphi 环境中，组件页上的组件是“类”而不是“对象”。2、（）按钮组件和编辑框组件能够响应的事件有些是相同的。3、（）在对文件的操作中，reset是建立并打开一个新文件。4、（）编辑框edit 中的内容能够设置为只读（即不能输入）。5、（）OpenDialog 组件的功能是指定一个文件名，并将文件内容加载到指定的编辑区中。6、（）在一个项目中，可以有多
6、个窗体，但只能有一个主窗体。7、（）在 Data Controls 组件页上，有的数据控件没有datafield 属性。8、（）在程序运行期间，一个Table 对象只能固定和一个关系表相连。9、（）要想在数据集中增加计算字段，必须先将数据集的字段全部置为动态字段。10、（）在设计阶段，如果在Query 对象的 SQL 语句中设置了参数，则必须在Query 的Params属性中为参数设置数据类型。四、程序填空题（40 分，每题10 分）1、（10 分，每空2 分）本程序由主窗体form1 和子窗体form2 组成，设计界面如下图所示：主窗体上建立的对象有Image1、Button1（加载图片）、
7、Button2（退出）、OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“加载图片”按钮，会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1 显示区中。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是 Unit1 的代码部分，请在下划线处完成程序填空。名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 9 页 -implementation$R*.dfm uses;procedure TForm1.Button1Click(Send
8、er:TObject);begin if then Image1.Picture.LoadFromFile();end;procedure TForm1.Button2Click(Sender:TObject);begin if=mrYes then;end;end.-2、（10 分，每空2 分）数据库 mydb 中有关系表student，其结构如下：student（sno 学号，sname姓名，sex性别，birthday 生日）现编写一个学生信息浏览程序，设计界面和运行界面如下图所示。在下划线处填写相应数据库组件的属性值：Database1.DatabaseName:mydb 名师资料总结
9、-精品资料欢迎下载-名师精心整理-第 4 页，共 9 页 -Table1.DatabaseName:mydb Table1.TableName:student Table1.Active:Datasource1.DataSet:DBNavigator1.DataSource:DBEdit2.DataSource:DBEdit2.DataField:3、（10 分，每空2 分）本程序的功能是对books 表（图书信息）进行浏览，设计界面和运行界面如下图所示。其中，“在借册数”是根据当前显示的书号和borrow 表（借书记录）的数据动态计算得到的。用户还可以输入指定书号，查找并定位到指定的记录。在
10、 form1 上建立的主要对象有：Database1、Table1、Query1、DataSource1、DBEdit1DBEdit3 Edit1Edit2、Button1Button3 等其中 Database1与 mydb 数据库相连，Table1 对象与 books 表相连，DBEdit1、DBEdit2、DBEdit3分别和 bno（书号）、bname（书名）、author（作者）各列相连。Query1 的 SQL 语句是：select count(*)num from borrow where bno=:bno 下面是 Unit1 单元的代码实现部分，请完成程序填空。-名师资料总结-
11、精品资料欢迎下载-名师精心整理-第 5 页，共 9 页 -implementation$R*.dfm procedure TForm1.Button1Click(Sender:TObject);/查找begin table1.(bno,edit2.Text,);end;procedure TForm1.Button2Click(Sender:TObject);/下一记录begin table1.;end;procedure TForm1.Button3Click(Sender:TObject);/上一记录begin table1.;end;procedure TForm1.Table1Afte
12、rScroll(DataSet:TDataSet);begin query1.Close;query1.:=table1bno;query1.Open;edit1.Text:=inttostr();end;end.名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 9 页 -4、（10 分，每空2 分）本程序实现一个简单的选课界面。设计界面和运行界面如下图所示：该程序涉及到数据库中的两张表：course（课程表）和sc（选课表），表结构如下：sc（sno 学号，cno 课程号，grade成绩）course（cno 课号，cname课名，quota 名额）其中：sno 和 cno 都是
13、字符型。在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在sc 表中插入一条选课记录，并将course 表中该课程的名额减1。该界面要实现以下合法性检查：l 当该学生已经选过此课，不能再选。l 当所选课程名额已为0，不能再选。在 Form1 上建立的数据库组件对象及连接关系如下：Database1Table1（与 course表相连）DataSource1DBGrid1（显示课程信息）Database1Table2（与 sc 表相连，用于插入选课记录）Database1Query1 其中为 Table1 建立了 3 个永久字段：Table1cno（课程号）、Table1
14、cname（课程名）、Table1quota（名额）。Query1 的 SQL 语句如下：select cno from sc where sno=:sno and cno=:cno 名师资料总结-精品资料欢迎下载-名师精心整理-第 7 页，共 9 页 -下面是 Unit1 的代码实现部分，请完成程序填空：-implementation$R*.dfm procedure TForm1.Button1Click(Sender:TObject);/“选课”键begin query1.Close;query1.ParamByName(sno).Value:=;query1.ParamByName(c
15、no).Value:=;query1.Open;if query1cno null then begin showmessage(已选过此课);exit;end;if then begin showmessage(没有名额);exit;end;table2.(edit1.Text,table1cno.Value,null);table1.Edit;名师资料总结-精品资料欢迎下载-名师精心整理-第 8 页，共 9 页 -table1quota.Value:=table1quota.Value-1;/名额减 1 table1.;end;end.-五、编程题（10 分）下图是本程序的设计界面（左）和运行界面（右）：在 form1 上建立的对象有：Edit1Edit4、Button1（输出）、RadioGroup1。该程序的功能是：用户在Edit1Edit3 中分别输入3 个整数，并指定输出最大或最小数，然后按“输出”键，输入数据中的最大或最小数将显示在Edit4 中。请编写单击“输出”按钮的事件处理程序。名师资料总结-精品资料欢迎下载-名师精心整理-第 9 页，共 9 页 -