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
edit1.text:=UpperCase(edit1.Text);
edit1.SetFocus;
end;。