计算机学院《Delphi程序设计》模拟试卷2及答案

计算机学院《Delphi程序设计》模拟试卷2一、填空题（20分，每空2分）1、现实世界中对象具有自己的状态和行为。对应着，面向对象技术中的对象可以具有自己的属性和。2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有和一个出口。3、Delphi应用程序中单元文件的扩展名是。4、与数学表达式对应的ObjectPascal表达式是。5、对于下面的条件表达式：（（3<=x）AND（x<0））OR（xin[1..10]）当x=3时，该表达式的值为。6、ListBox对象列表框中的内容是通过属性来进行设置的。7、如果想设计DBGrid对象的列标题和对齐方式，可以对DBGrid对象的属性进行设置。8、时钟组件（Timer）能有规律的以一定时间间隔触发事件9、能够实现格式化输入的编辑框组件是10、利用对象的LineTo等方法，可以绘制基本图形。二、单项选择题（20分，每题2分）1、Delphi程序设计的基本特点是（）。可视化程序设计B．代码程序设计C．事件驱动编程 D．A和C2、进度显示组件ProgressBar的当前进度可以通过（）属性设置。A．Step B．Scroll C．Position D．Max3、下列变量命名正确的是（）。A．7ABCB．My7C．page@2D．cmd..14、“x是小于200的非负数”的ObjectPascal表达式是（）。A．0≤x<200 B．x>=0,x<200 C．(x>=0)AND(x<200) D．(x>=0)OR(x<200)5、在窗体上建立多页面的用户界面，需要首先建立的对象是（）A．TabControlB．PageControlC．HeaderControlD．PageScroller6、能够删除edit1中内容的语句是（）。A．edit1.Clear; B．edit1.Focused；C．edit1.Text=null; D．edit1.text:='\0';7、现建立一个简单报表，仅包含数据列标题栏、数据栏和汇总栏，则在Bands属性的子属性中，不需要选择的是（）A．HasColumnHeaderB．DetailC．SummaryD．Title8、下面哪个功能键可以调出Delphi的联机帮助信息（）A．F1键B．F2键C．F3键D．F4键9、以下能够触发编辑框（Edit）组件OnChange事件的操作是（）A．鼠标单击编辑框 B．鼠标双击编辑框C．在编辑框中选择文本 D．在编辑框中输入文本10、以下叙述中错误的是（）A．一个项目包含不止一种类型的文件。B．窗体的Show方法的作用是显示该窗体。C．窗体的Hide方法和Release方法的作用完全相同。D．若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体。三、判断题（10分，每题1分）请给下列论述中正确的打上“√”，错误的打上“”1、()在事件处理程序中定义的变量，其生命周期仅限于该过程。2、()在Delphi程序运行时动态设置属性的一般格式是：<对象名>.<属性名>:=<属性值>;3、()constc:=100的说明语句是合法的。4、()若已在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只显示扩展名为TXT的文件，则对通用对话框的Filter的属性进行设置，设置可以是：'TXTFiles|*.TXT'。5、()在一个项目中可以有一个以上的主窗体。6、()在程序运行期间，一个Table对象只能固定和一个关系表相连。7、()时钟Timer组件的时间间隔是由Interval属性控制，该属性的单位是秒。8、()QuickReport组件用于产生报表，它只有一个组件。9、()编辑框edit的ReadOnly属性如果设置为true，在代码中还是可以对text属性赋值。10、（）在Delphi环境中，组件页上的组件是“类”而不是“对象”的概念。四、程序填空题（40分，每题10分）1、（10分，每空2分）本程序由主窗体form1和子窗体form2组成，设计界面如下图所示：主窗体上建立的对象有Image1、Button1（加载图片）、Button2（退出）、OpenDialog1。子窗体上建立的对象有Label1、BitBtm1（Yes）、BitBtm2（No）。单击“打开文件”按钮（Button1），会弹出打开文件对话框。用户指定一个图像文件后，图像加载到Image1显示区中。单击“退出”按钮，会弹出确认对话框（Form2）。如果用户按“Yes”键，程序结束；如果按“No”键，返回主窗体。下面是Unit1的代码部分，请在下划线处完成程序填空。implementation{$R*.dfm}uses①;procedureTForm1.Button1Click(Sender:TObject);//加载图片beginif②thenImage1.Picture.LoadFromFile(③);end;procedureTForm1.Button2Click(Sender:TObject);//退出beginif④=mrYesthen⑤;end;end.2、（10分，每空2分）本程序设计界面和运行界面如下图所示：程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。请完成程序填空：procedureTForm1.Button1Click(Sender:TObject);//“计算”按钮vari,n,sum:integer;beginsum:=0;i:=1;n:=StrToInt(edit1.①);//读入正整数nwhilei<=n②//循环语句beginifodd(i)thensum:=③;i:=i+1;end;edit2.Text:=IntToStr(④);//将结果在编辑框中显示end;在程序中，odd为系统函数，其功能为：⑤。3、（10分，每空2分）数据库mydb中有关系表student，其结构如下：student（sno学号，sname姓名，sex性别，birthday生日）现编写一个学生信息浏览程序，设计界面和运行界面如下图所示：在下划线处填写相应数据库组件的属性值：Database1.DatabaseName :mydbTable1.DatabaseName :mydbTable1.TableName :studentTable1.Active :①Datasource1.DataSet :②DBNavigator1.DataSource:③DBEdit2.DataSource :④DBEdit2.DataField :⑤4、（10分，每空2分）本程序实现一个简单的选课界面。程序的设计界面和运行界面如下图所示：该程序涉及到数据库中的两张表：course（课程表）和sc（选课表）。表结构如下：sc（sno学号，cno课程号，grade成绩）course（cno课号，cname课名，quota名额）其中：sno和cno都是字符型。在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在sc表中插入一条选课记录，并将course表中该课程的名额减1。该界面要实现以下合法性检查：当该学生已经选过此课，不能再选。当所选课程名额已为0，不能再选。在Form1上建立的数据库组件对象及连接关系如下：Database1－Table1（与course表相连）－DataSource1－DBGrid1（显示课程信息）Database1－Table2（与sc表相连，用于插入选课记录）Database1－Query1其中为Table1建立了3个永久字段：Table1cno（课程号）、Table1cname（课程名）、Table1quota（名额）。Query1的SQL语句如下：selectcnofromscwheresno=:snoandcno=:cno下面是Unit1的代码实现部分，请完成程序填空：implementation{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject);//“选课”键beginquery1.Close;query1.ParamByName('sno').Value:=①;query1.ParamByName('cno').Value:=②;query1.Open;ifquery1['cno']<>nullthenbeginshowmessage('已选过此课');exit;end;if③thenbeginshowmessage('没有名额');exit;end;table2.④([edit1.Text,table1cno.Value,null]);table1.Edit;table1quota.Value:=table1quota.Value-1;//名额减1table1.⑤;end;end.五、编程题（10分）本程序设计界面及运行界面如下图所示。该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N（M<N），单击“计算”按钮（Button1），程序求出M~N之间所有能被3整除的数，并在Memo1对象中依次显示。请编写单击“计算”按钮的事件处理程序。

试题参考答案一、填空题(20分，每空2分)1、方法2、一个入口3、.pas（或pas）4、sqr(cos(a+b))/(3*x)+5或cos(a+b)*cos(a+b)/(3*x)+55、True6、Items7、Columns8、OnTimer9、MaksEdit10、Canvas二、单项选择题（20分，每题2分）1、D2、C3、B4、C5、B6、A7、D8、A9、D10、C三、判断题（10分，每题1分）1、√2、√3、╳4、√5、╳ 6、╳7、╳8、╳ 9、√ 10、√四、程序填空题（40分，每题10分）1、（10分，每空2分）①unit2②opendialog1.Execute③opendialog1.FileName④form