Delphi模拟试卷A

模拟试卷A一、填空题(10分，每空1分)1、现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和。2、当程序运行时，要求窗体中的某个按钮不再响应鼠标单击操作，可以将该按钮的属性设置为False即可。3、当程序运行时，要求窗体中的文本框初始状态呈现空白，则在设计时，应当在此文本框的属性窗口中，把此文本框的属性设置成空白。4、Delphi是基于面向对象技术的。在Delphi中，属性表示对象中的数据，方法是对象能够执行的动作，是能够引起对象反应的条件。5、对于下面的条件表达式：x=－1ANDx0ORx1ANDx=4当x=2时，该表达式输出为。6、参数一般分为两类，其中，调用一个过程或函数时指定的参数称为实际参数（实参），而在过程和函数定义时说明的参数称为。7、Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。如果用户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组件。数据集组件利用组件与数据库建立连接，并读取数据库中的数据，而后又经过组件将数据送到用户界面组件中显示。8、Image组件可通过设置其属性为True使之根据图像自动调整大小；而通过设置其属性为True，使其加载的图片能自动调整大小以适应Image。二、单项选择题（20分，每题2分）1、Delphi程序设计的基本特点是（）。A．可视化程序设计B．代码程序设计C．事件驱动编程D．A和C2、修改窗体的标题时，应当在属性页中设置的属性是（）。A．CaptionB．NameC．TextD．Label3、下列变量命名正确的是（）。[e-mail]..14、“x是小于100的非负数”的ObjectPascal表达式是（）。A．0≤x100B．x=0,x100C．(x=0)AND(x100)D．(x=0)OR(x100)5、设a=True，b=True，c=False，以下表达式值为False的是（）。A．aorborcB．(notaorb)and(borc)C．not(aandbandc)D．aandband(12in[1..10])6、表达式20＋17div2的值是（）。A．37B．35C．28D．187、下面说法正确的是（）。A．Label和Edit组件都可以用于用户输入数据。B．组框（GroupBox）组件和面板（Panel）组件都有Caption属性，都可在边框显示Caption标题内容。C．位图按钮（BitBtn）组件与按钮（Button）组件的主要区别是可以在位图按钮上同时显示文本信息和位图，而一般的按钮组件只能显示文本信息。D．状态条组件一般放置在窗体的底部，用于显示应用程序的执行状态及相关的提示信息，状态条无法划分多个区域，所以只能显示一条信息。8、下列程序段被执行后，x的值是（）a:=false;b:=false;c:=false;x:=15;ifathenx:=x-10;elseifbthenx:=x-5;elseifcthenx:=20;elsex:=25;A．5B．15C．20D．259、数据库组件中，能够具体实现对数据库的读写操作、被称为数据库组件的核心的组件是（）A．数据源组件B．用户界面组件C．数据集组件D．数据感知控件10、下列对象不能响应Click事件的是（）A．列表框B．图片框C．窗体D．计时器三、判断题，请给下列论述中正确的打上“√”，错误的打上“”（10分，每题1分）1、()一个数组中的各元素的数据类型必须相同。2、()在ObjectPascal中，一个类的声明一般要遵循如下格式。Type类名＝class(父类名)类成员End；3、()constc:=10的说明语句是合法的。4、()若已在窗体中加入了一个打开文件对话框OpenDialog组件：要求在运行时，打开对话框时只显示扩展名为DOC的文件，则对对话框的Filter的属性进行设置，设置可以是：'WordDOCFiles|*.DOC'。5、()MediaPlayer组件只能播放avi文件，不能播放Midi音乐。6、()Canvas对象的MoveTo（x，y）方法和LineTo（x，y）方法都将使（x，y）点成为画笔的当前位置。7、()每个数据感知控件都必须指定datasource和datafield两个属性值。8、()QuickReport组件用于产生报表，它只有一个组件。9、()时钟Timer组件的时间间隔是由Interval属性控制，该属性的计量单位是秒，即其值为1，则表示时间间隔为1秒。10、()xnrsin212的ObjectPascal表达式是n*sqr(r)*sin(x)/2四、程序填空题（共40分）1、（10分）本程序由form1（主窗体）和form2（子窗体）组成，程序运行界面如下图所示。在主窗体上，建立一个memo1对象、两个button对象和一个savedialog1对象。在memo1中可以输入、编辑文本。按“保存文件”按钮，程序弹出保存文件对话框，用户指定文件名后，保存memo1中的内容到指定文件中。按“退出”按钮，以模式窗体打开form2，让用户确认是否退出程序。程序代码如下：procedureTForm1.Button1Click(Sender:TObject);//“保存文件”按钮beginif①thenmemo1.Lines.SaveToFile(②);end;procedureTForm1.Button2Click(Sender:TObject);//“退出”按钮beginif③=mrYesthen④;end;2、（10分）本程序的功能是计算一名同学的语文、数学、英语3门课程的平均成绩。本程序用户界面如下图所示。界面由两个标签（Label1，Label2），一个按钮（Button1），一个编辑框组件（Edit1）组成。程序运行后，用户单击“输入并计算平均值”按钮，程序会3次弹出Inputbox输入框，要求用户依次输入3个成绩。成绩输入完毕后，程序会在编辑框中显示三门课的平均成绩。程序代码如下：ProcedureTForm1.Button1Click(Sender:TObject);vari,Score,Sum,avg:Integer;Label1Label2Edit1Button1cn:String;beginEdit1.Clear;Sum:=0;FORi:=1TO3DOBEGINcn:=inputbox('输入该学生单科成绩','请输入','0');Score:=StrToInt(cn);Sum:=①;END;avg:=②;Edit1.Text:=IntToStr(avg);end;3、（20分）我们在mydb数据库中创建了一个Paradox数据表EmailBook.db，用于保存学生的邮件地址。表中包含姓名(name)、性别(sex)、邮箱地址(email)3列信息。然后我们创建了一个数据库管理程序，用于对EmailBook.db进行操作。以下为程序设计界面。设计界面中建立的普通组件对象有：Label1：标签（查询姓名）Edit1：编辑框（用于接收查询的姓名）Button1：查询按钮；Button2：插入记录按钮；Button3：删除记录按钮；Button4：退出按钮；建立的数据库组件对象有：Database1：与mydb数据库连接Table1：对应mydb数据库中的EmailBook.db表Datasource1：与Table1相连DBGrid1：连接Datasource1数据源窗体实现如下功能：输入姓名后，按“查询”按钮，如果找到该学生，DBGrid1中会定位到该学生记录；在编辑框中输入姓名、性别、Email后，按“插入记录”按钮，将在数据库表中插入一条记录；DBGird1db1按“删除记录”按钮，会删除DGGrid1中显示的数据表中的当前记录。请根据上述功能完成下列各小题：（1）指明下面各个数据库组件的主要属性的设置：Database1.DatabaseName:=‘mydb’;Database1.Connected:=True;Table1.DatabaseName:=①;Table1.TableName:=‘EmailBook.db’;Table1.Active:=②;Datasource1.DataSet:=③;DBGrid1.DataSource:=④;（2）程序填空ProcedureTForm1.Button1Click(Sender:TObject);//“查询”按钮varLocOp:Tlocateoptions;beginlocOp:=[lopartialkey,locaseinsensitive];IfNotTable1.Locate('name',⑤.text,LocOp)Then//调用数据集查找方法Showmessage('没有此姓名记录');End;ProcedureTForm1.Button2Click(Sender:TObject);//“插入记录”按钮BeginTable1.⑥;//插入一条空记录Table1.⑦:=Edit2.Text;//修改当前记录name列值Table1.⑧:=Edit3.Text;//修改当前记录sex列值Table1.⑨:=Edit4.Text;//修改当前记录email列值Table1.Post;//提交修改End;procedureTForm1.Button3Click(Sender:TObject);//“删除记录”按钮beginTable1.⑩;end;（五）编程题（10分）本程序运行界面如下图所示。用户输入一个整数，单击“判断奇偶性”按钮（Button1），程序给出判断结果。请编制单击按钮事件处理程序。