《计算机学院《Delphi程序设计》模拟试卷1及答案》由会员分享，可在线阅读，更多相关《计算机学院《Delphi程序设计》模拟试卷1及答案（6页珍藏版）》请在金锄头文库上搜索。
1、计算机学院Delphi程序设计模拟试卷1一、填空题（20分,每空2分）1、现实世界中对象具有自己的状态和行为。对应着,面向对象技术中的对象可以具有自己的属性和。2 Delphi应用程序中项目文件的扩展名是 。3、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构,其中每种结构只能有 和一个出。4、在Delphi集成开发环境中,如果想要直接设置或者修改对象的属性,可以通过对象查看器（Object Inspectbi中的 窗直接进行设置。5、ListBox对象列表框中的内容是通过 属性来进行设置的。6、 时钟组件（Timer能有规律的以一定时间间隔触发 事件。7、如果让界面上的一个按钮变为
2、不可用,需要将它的 性设为False8、Image组件可通过设置其 属性为True使Image组件根据图像的大小自动调整显示窗大小。9、Delphi的一个项目由假设干文件组成,其中文件名后缀含有“的文件为。cos2 （a b）10、 与数学表达式 5对应的Object Pascal达式是3x二、单项选择题（30分,每题3分）1、Delphi程序设计的基本特点是（）A.可视化程序设计B 代码程序设计C.事件驱动编程D. A和C2、修改窗体的标题时,应当设置form的属性是（ ）A .Caption B . Name C . Text D . Label3、下面哪个常量说明语句是正确的（）A.co
3、nst x := （c 16）; B. const x : 16 ;C.const x := 16;D const x = 16 ;4、“x是小于1的非负数的Object Pasc表达式是（）A. 0 x = 0, x=0） AND （x = 0 ） OR （x1）5、编辑框（Edit）中的文本发生改变时引发的事件是（）A .AutoSizeB .OnChangeC .SetFocusD .SetText6、表达式30 + 19 div 2的值是（）A.37B.49C.39D.407、现建立一个简单报表,仅包含报表标题栏、数据栏和汇总栏,则在Bands属性的子属性中,不需要选择的是（）A .
4、HasColumnHeaderB. DetailC. TitleD. Summary8、 下面哪个功能键可以调出Delphi的联机帮助信息（）A. F1 键B.F2 键C. F3键D. F4 键9、数据库组件中,提供了对数据库读写操作功能的核心组件是（）A .数据源组件B.用户界面组件C.数据集组件D.数据感知控件10、 以下控件中没有Items属性的是（）A . ComboBox B. ListBox C. RadioGroup D . Memo三、判断题（10分,每题2分）请给下面论述中正确的打上“J,错误的打上 （io分,每题1分）1、（） 一个数组中的各元素的数据类型必须相同。2、（）
5、在一个项目中,可以根据需要将任何一个窗体定义为主窗体。3、（）每个数据感知控件都必须指定DataSource和 DataField个属性值。4、（） labe和 Edit组件都可以用于用户输入数据。5、（）按钮组件和编辑框组件能够响应的事件有些是相同的。四、程序填空题（30分,每题10分）1、（10分,每空2分）本程序根据用户选择的运算符对输入的二个操作数进行运算,并显示运算结果。设计界面和运行界面如图所表示。其中,运算符是一个含有4个单项选择按纽的RadioGroup1对象。请根据功能要求完成程序填空。下面是单击“运算按钮的事件处理程序,procedure TForm1.Button1Cli
6、ck(Sender: TObject);/运算varx1,x2,y :Integer;beginx1 := StrToInt( Edit1.);x2 := StrToInt( Edit2.);Case Itemindex of0: y := x1 + x2 ;1: y := x1 - x2;2: y := x1 * x2;3: y := x1 Div x2;End;Edit3. := IntToStr( );end;2、（10分,每空2分）数据库mydb中有关系表student其结构如下：student（sno 学号,sname 姓名,sex性别,birthda生日）现编写一个学生信息浏览程序
7、,设计界面和运行界面如下面图所示:7 Forml7 * Forml学号 |DBEditl性别 |DBEdlt3姓名 |DBEdit2 生日：|DBEdlt4I学号姓名|卫I小1WC1,主别回生日 |1982-4-25在下划线处填写相应数据库组件的属性值:Database1. DatabaseName :mydbTable1. DatabaseName:mydbTable1. TableName:studentTable1. Active:Datasource1.DataSet:DBNavigator1. DataSource:DBEdit2. DataSource:DBEdit2. DataF
8、ield:3、（10分,每空2分）本程序实现一个简单的借书界面。程序的设计界面和运行界面如下面图所示:该程序涉及到数据库中的两张表：books （图书信息）和borrow t借书记录）。表的结构为：books （bno,书号,bname书名,num现有册数）borrow （ rno读者号,bno书号,rdate还书日期）其中,rno和bno都是字符型（3位）。在用户界面,操作员选中一本书、输入借书证号后,按“借书键完成借书功能,即在borrow表中插入一条借书记录,并将books表中该书现有册数减1。该界面要实现以下合法性检查：当该读者已经借了此书,不能再借。当所借的书现有册数为0,不能再借。
9、在Forml上建立的数据库组件对象及连接关系如下：Databasel- Tablel （与 books表相连）- DataSourcel- DBGridl （显示图书信息）Databasel- Table2 （与borrow表相连,用于插入借书记录）Database Queryl其中为 Tablel建立了 3 个永久字段：Tablelbn（书号）、Tablelbname（书名）、Tablelnum（现有册数）。Queryl的SQL语句如下：select bnofrom borrowwhere rno = :rno and bno = :bno下面是Unitl的代码实现部分,请完成程序填空：im
10、plementation$R *.dfmprocedure TForml.ButtonlClick(Sender: TObject“；借书键beginqueryl.Close;queryl.ParamByName(rno).Value ;queryl.ParamByName(bno).Value ;queryl.Open ;if querylbno null thenbeginshowmessage(该读者正在借阅此书);exit ;end ;if thenbeginshowmessage(该书已全部借出);exit ;end;table ( editl.Text , tablelbno.Va
11、lue , date；插入 借；书记录table ;tablelnum.Value := tablelnum.Va-Lile ; /现有册数减 ltablel.Post ;end;end.五、编程题（10分）本程序设计界面及运行界面如下:程序功能是:用户输入一个3位正整数后,按“确定键,该数字的个位、十位、百位数字分别显示在输出框中。如果输入的数据不在规定范围之内,程序要给出错误提示。请编写单击“确定按钮的事件处理程序。试题参考答案一、填空题（20分,每空2分）1、方法2、.dpr 或 dpr） 3、一个入4、属性 或 Properties5、Items6、OnTimer7、Enabled8、
12、AutoSize9、备份文件10、 sqr（cos（a+b） /（3*x）或5 cos（a+b） * cos（a+b） /（3*x）+5二、单项选择题（30分,每题3分）1、D2、A3、D4、C 5、B6、C7、A8、A9、C10、D三、判断题（10分,每题2分）1、/2、/3、4、5、 /四、程序填空题（30分,1、（10分,每空2分） text RadioGroup1y2、（10分,每空2分） True DataSource1 sname3、（10分,每空2分） edit1.Text table1num.Value = 0 Edit五、编程题（10分）每题10分) text text Table1 DataSource1 table1bno.Value InsertRecordprocedure TForm1.Button1Click(Sender: TObject);varx : integer ;beginx := strtoint(edit1.Text);if (x999) thenshowmessage(输入数据不在范围内)；edit2.Text := inttostr(x DIV 1);edit3.Text := inttostr( (x DIV 10 ) Mod 10 );edit4.Text := inttostr(x Mod 10);end;
