delphi期末考试题

一、填空题（20分，每题2分）

1、一个对象是由三部分组成，分别为：方法、属性和事件所组成。

2、当程序运行时，如果要求窗体中的某个按钮不再显示，可以将该按钮的Visible 属性

设置为false即可。

3、Delphi应用程序中项目文件的扩展名是.dpr

4、Delphi是基于面向对象技术的，在delphi中，属性表示对象中的数据，方法是

对象能够执行的动作，事件是能够引起对象反应的条件。

5、写出下列表达式的值：

Trunc（—1.3）+int（1.4）= 0

Sqr(3)+strtoint（19）= 28

3-2<>Int（1.1）= FALSE

6、在delphi集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象观察器中的属性窗口直接进行设置。

7、复选框对象是否被选中，是由其checked 属性决定的。

8、delphi中程序与数据库之间进行数据交换一般由多个数据库组件协作完成，如果用户要查询数据库的一条信息，该指令通过界面组件发出，经数据源组件到达数据库组件。数据库组件利用自身的读写功能，通过数据库连接组件从数据库中取得数据，再经数据源组件送到用户界面组件中显示。

9、delphi中设计应用程序的菜单时，有主菜单和弹出菜单两种菜单，它们各自“standard”页上的一个组件创建，主菜单由MainMenu 组件创建，而弹出菜单用PopupMenu 组件创建窗体中的多页面设计要用到PageControl组件。

10、计时器控件能有规律的以一定时间间隔触发Ontimer 事件，并执行该事件过程中的程序代码。

二、单项选择题（20分，每题2分）

1、delphi程序设计的基本特点是（D）

A．可视化程序设计 B.代码程序设计

C．事件驱动编程 D.A和C

2、下列哪个常量说明语句是正确的（D）

A．const x := （c<16）; B. const x : 16;

C．const x :=16; D. const x = 16;

3、编辑框中的文本发生改变时被触发的事件是（B）

A．AutoSize B. OnChange

C．SetFocus D. SetFocus

4、下列说法正确的是（B）

A．组件必须是可视的，这样用户才能看见。B. 控件都是可视的。

C．一个组件肯定是控件 D. 按钮（Button）是组件，而窗体（Form）则不是组件。

5、下面对Memo组件Memol操作正确的语句是（D）

A．Memol.Clear””; B. Memol.Lines:=’Test’;

C．Memol.Lines.Add(123456); D. Memol.Lines.Delete(1);

6、设有语句

X：=TnputBox（‘输入数值’，‘0’，‘示例’）

程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是：( D ) A．变量x的值是数值10 B. 在InputBox对话标题栏中显示的是“示例”

C．0是默认值 D. 变量x的值是字符串“10”

7、以下叙述中错误的是 B

A．双击鼠标可以触发DbiCLick事件 B.窗体或控件的事件的名称可以由编程人员确定

C．移动鼠标时，会触发MouseMove事件 D. 控件的名称可以由编程人员设定

8、在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下事件过程 A

程序运行后，单击命令按钮，则标签中显示的内容是（）

A．5 B. 15

C．20 D. 25

9、数据库组件中，哪一个组件具体体现了对数据库的读写操作，是数据库组件的核心，该组件是（C）

A．数据源组件 B. 用户界面组件

C．数据集组件 D.数据感知控件

10、一下控件中没有Items属性的是（D）

A．ComboBox B. ListBox

C．RadioGroup D. Memo

三、判断题，请给正确的打上“√”，错误的打上“×”（10分，每题1分）

1、（X）对象的Name属性值可以为空

2、（√）StrToFloat将一个字符串转换为一个实数

3、（X）4ABC可作为delphi的变量名

4、（X）Label和Edit组件都可以用于用户输入数据

5、（X）MediaPlayer组件只能播放Avi文件，不能播放midi音乐

6、（X）状态条组件一般放置在窗体的底部，用于显示应用程序的执行状态及相关提示信息，状态条无法划分多个区域，所以只能显示一条信息

7、（√）异常也可以理解成是一种特殊的事件

8、（X）时钟Timer组件的时间间隔是由Interval属性控制，该属性的计量单位是秒，即其值为1，则表示时间间隔为1秒

10、（X）在窗体的FormCreate事件过程中定义的变量是全局变量

四、读程序并填空（22分，没空1分）

答案：1、text text RadioGroup1 text y

2、true caption filename play 100 progress

五、编程序

1、小写按钮

Procedure Tform1.Button1Clik(Sender:TObject);

Begin

edit1.text:=LowerCase(edit1.Text);

edit1.SetFocus;

end;

大写按钮

Procedure Tform1.Button2Click(Sender:TObject);

Begin