Delphi试题02

《Delphi 程序设计》试题及解答 卷6一、填空题（20分，每空2分）1、现实世界中对象具有自己的状态和行为。

对应着，面向对象技术中的对象可以具有自己的属性和 。

2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 和一个出口。

3、Delphi 应用程序中单元文件的扩展名是 。

4、与数学表达式 53)(cos 2++xb a 对应的Object Pascal 表达式是 。

5、对于下面的条件表达式：（（3 <= x ）AND （x < 0）） OR （x in [1..10]）8、时钟组件（Timer ）能有规律的以一定时间间隔触发 事件9、能够实现格式化输入的编辑框组件是10、利用 对象的LineTo 等方法，可以绘制基本图形。

二、单项选择题（20分，每题2分）1、Delphi 程序设计的基本特点是（ ）。

A ． 可视化程序设计B ． 代码程序设计C ． 事件驱动编程D ． A 和C2、进度显示组件ProgressBar 的当前进度可以通过（ ）属性设置。

A ． StepB ．ScrollC ． PositionD ．Max3、下列变量命名正确的是（ ）。

A ．7ABCB ． My7C ． page@2D ．cmd..14、“x 是小于200的非负数”的Object Pascal 表达式是（ ）。

A ．0 ≤ x < 200B ． x >= 0, x<200C ．(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．HasColumnHeader B．DetailC．Summary D．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、() const c := 100 的说明语句是合法的。

4、() 若已在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只显示扩展名为TXT的文件，则对通用对话框的Filter的属性进行设置，设置可以是：'TXT Files|*.TXT'。

5、( ) 在一个项目中可以有一个以上的主窗体。

6、() 在程序运行期间，一个Table对象只能固定和一个关系表相连。

7、() 时钟Timer组件的时间间隔是由Interval属性控制，该属性的单位是秒。

8、() Quick Report 组件用于产生报表，它只有一个组件。

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①;procedure TForm1.Button1Click(Sender: TObject); //加载图片beginifend;procedure TForm1.Button2Click(Sender: TObject); //退出end;end.---------------------------------------------------------------------------------------------------------------------2、（10分，每空2分）本程序设计界面和运行界面如下图所示：程序的功能是：用户在edit1中输入一个正整数n，然后按“计算”按钮，程序计算1～n中奇数之和，并在edit2中显示计算结果。

请完成程序填空：procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮vari , n, sum : integer ;beginsum := 0 ;i := 1 ;n := StrToInt(edit1. ①); //读入正整数nwhile i <= n ②//循环语句beginif odd( i ) then sum := ③;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语句如下：select cnofrom scwhere sno = :sno and cno = :cno下面是Unit1的代码实现部分，请完成程序填空：--------------------------------------------------------------------------------------------------------------------- implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject); //“选课”键beginquery1.Open ;if query1['cno'] <> null thenbeginshowmessage('已选过此课');exit ;end ;if ③thenbeginshowmessage('没有名额');exit ;table1.Edit ;//名额减1end;end.---------------------------------------------------------------------------------------------------------------------五、编程题（10分）本程序设计界面及运行界面如下图所示。

该程序的功能是：用户在界面上的两个编辑框（Edit1、Edit2）内分别输入两个正整数M和N （M < N），单击“计算”按钮（Button1），程序求出M ~ N 之间所有能被3整除的数，并在Memo 1对象中依次显示。

请编写单击“计算”按钮的事件处理程序。

试题参考答案一、填空题(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、OnTimer 9、MaksEdit 10、Canvas二、单项选择题（20分，每题2分）1、D2、C3、B4、C5、B6、A7、D8、A9、D 10、C三、判断题（10分，每题1分）1、√2、√3、╳4、√5、╳6、╳7、╳8、╳9、√10、√四、程序填空题（40分，每题10分）1、（10分，每空2分）①unit2 ②opendialog1.Execute③opendialog1.FileName ④form2.ShowModal⑤close2、（10分，每空2分）①Text ②do③sum + i ④sum⑤判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假）。