Delphi语言开发工具》2008B试卷

《Delphi语言开发工具》2008B试卷》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、《Delphi语言开发工具》B试题一、填充计算题(每个空格2分，共计30×2=60分)1.Delphi中，异常是指程序运行时遇到的不正常或不可预料的情况，它干扰程序的正常运行。。Delphi异常处理机制建立在保护概念上。Delphi提供两种程序结构处理异常。他们分别是他们分别是try…finally…end2和他们分别是try…Except…end3。他们在程序执行时的区别是他们在程序执行时的区别是try…finally.end用来释放资源并不处理异常，try..except..end是根据异常类型，处理异常。。2.Delphi中提供is和as运算符，is运算符的作用判断算符，

2、典型格式AIsTedit，as运算符的作用是类型转换算符，典型格式是AasTEdit。3.设I，J为正整数，I=4，J=8则IandJ=1IorJ=12,IxorJ=12,ISHL2=164.Delphi中提供了记录数据结构。它一般性格式为:Type类型名=Record域名1：类型；域名2：类型；域名3：类型;END。5.在form窗体上放置了如下控件：标签控件Label，编辑控件Edit，数据库Table控件，数据源Datasource控件和表格Dbgrid控件，其中Table控件可直接访问C:disk.dbf文件，该表字段结构为djh和Jfh，都是字符型。Datasour

3、ce控件和Dbgrid相连接，Dbgrid控件显示数据库表c:disk.dbf，则Table控件的默认Name为table1，Table控件要能直接访问c:disk.dbf文件，则Table控件的TableName属性置为c:disk.dbf且active置为True。若要使Dbgrid能显示c:disk.dbf文件数据，则Datasource控件的Dataset属性置为table1,Dbgrid控件的Datasource属性置为DataSource1。在Edit中输入某一djh值时，在Table中定位查找的语句是Locate(‘djh’-4-,Edit1.Text,[

4、]);如果查找成功则在Lable标签提示上显示成功的语句是Label1.Caption:=’成功’。6.Timer控件主要功能是时钟中断，在Form上放置Timer、Button和Lable控件。当Timer处于“关”状态，点击Button后，Timer处于“开”状态，命令为timer1.Enable:=True，若要Button控件提示为“关”,则命令为timer1.Enable:=False。7.Dialog控件集中，文件打开控件名OpenDialog，文件存盘控件名SaveDialog，打印机设置控件名PrinterSetupDialog。8.数据集Dataset中，方法

5、FIRST是数据集第一条记录25，属性Eof是指指记录指针是否指向第一条记录，Lookup与locate方法区别是Lookup返回字段值或查找失败信息，Locate返回Boolean值，方法emptytableDeletetable不同之处是是否删除数据库表结构。9.SQL查询语言是指29。SQL语句一般性语句结构30。二、编程题（第1，2题15分，第3题10分，共计40分)1有一批图书信息须入库。入库信息如下：书名，作者名，出版社，分类号等。设计一程序，将输入的书以文本文件的形式保存在c:disk.dat文件中。procedureTform1.CreateForm(send

6、er:Tobject)BeginEdit1.text:=’’Edit2.Text=’’Edit3.text:=’’Edit4.text:=’’End;ProcedureTform1.SaveInfoVarF1：textFileFileName:string;Begin-4-FileName=‘c:bookInfo.Dat’If(FileExists(FileName))ThenBeginAssignFile(f1,FileName);Reset(f1);EndelsebeginAssignFile(f1,FileName);ReWrite(f1);End;Writeln(F1

7、,Edit1.text);Writeln(F1,Edit2.text);Writeln(F1,Edit3.text);Writeln(F1,Edit4.text);CloseFile(f1);End2.计算下列表达式的值S=1!+2!+3!+4!+5!+…N!VarI,j,k,N,S1,S2BeginN:=10;S1:=0Fori:=1toNDoBeginS2:=1;Fork:=1toIDobeginS2:=S2*k;EndS1:=S1+S2;End;ShowMessage(intTostr