程序设计》 《Delphi 程序设计》试题及解答 卷 5
一、填空题(20 分,每空 2 分) 填空题(
1、现实世界中对象具有自己的状态和行为。对应着,面向对象技术中的对象可以具有 自己的属性和 方法 。 。 2、Delphi 应用程序中项目文件的扩展名是 .dpr 3、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构,其中每种结构 只能有 一个人口 和一个出口。 4、在 Delphi 集成开发环境中,如果想要直接设置或者修改对象的属性,可以通过对象 查看器(Object Inspector)中的 属性 或 Properties 窗口直接进行设置。 属性来进行设置的。 5、ListBox 对象
列表框中的内容是通过 items 6、时钟组件(Timer)能有规律的以一定时间间隔触发 ontimer 事件。 7、 如果让界面上的一个按钮变为不可用, 需要将它的 enabled 属性设为 False。 8、Image 组件可通过设置其 Autosize 属性为 True 使 Image 组件根据图像的 大小自动调整显示窗口大小。 9、
Delphi 的一个项目由若干文件组成,其中文件名后缀含有“~”的文件为 备份文 件 。 10、与数学表达式
cos 2 (a + b) + 5 对应的 Object Pascal 表达式是 3x
Cos*cos*(a+b) /(3*x)
二、单项选择题(30 分,每题 3 分) 单项选择题(
1、Delphi 程序设计的基本特点是(D ) A. 可视化程序设计 B. 代码程序
设计 C. 事件驱动编程 D. A 和 C 2、修改窗体的标题时,应当设置 form 的属性是( A ) A.Caption B. Name C. Text D. Label 3、下列哪个常量说明语句是正确的( D ) A. const x := (c < 16); B. const x : 16 ; C. const x := 16 ; D const x = 16 ; 4、 是小于 100 的非负数”的 Object Pascal 表达式是( C ) “x A.0 ≤ x < 100 B. x >= 0, x<100 C.(x >=0) AND (x < 100) D. (x >= 0 ) OR (x<100) 5、编辑框(Edit)中的文本发生改变时引发的事件是( B ) A.AutoSize B.OnChange C.SetFocus D.SetText 6、表达式 30 + 19 div 2 的值是( C ) A. 37 B. 49 C. 39 D. 40 7、现建立一个简单报表,仅包含报表标题栏、数据栏和汇总栏,则在 Bands 属性的子属性
中,不需要选择的是( A ) A.HasColumnHeader B.Detail C.Title D.Summary 8、下面哪个功能键可以调出 Delphi 的联机帮助信息( A ) A.F1 键 B.F2 键 C.F3 键 D.F4 键 9、数据库组件中,提供了对数据库读写操作功能的核心组件是( C ) A.数据源组件 B.用户界面组件 C.数据集组件 D.数据感知控件 10、以下控件中没有 Items 属性的是( A.ComboBox B. ListBox D ) C.RadioGroup
D.Memo
三、判断题(10 分,每题 2 分) 判断题(
请给下列论述中正确的打上“√” ,错误的打上“×” (10 分,每题 1 分) 1、( Y ) 一个数组中的各元素的数据类型必须相同。 2、 (Y )在一个项
目中,可以根据需要将任何一个窗体定义为主窗体。 3、( N ) 每个数据感知控件都必须指定 DataSource 和 DataField 两个属性值。 4、( N ) label 和 Edit 组件都可以用于用户输入数据。 5、(Y ) 按钮组件和编辑框组件能够响应的事件有些是相同的。
四、程序填空题(30 分,每题 10 分) 程序填空题(
(10 1、 10 分,每空 2 分) (
本程序根据用户选择的运算符对输入的二个操作数进行运算, 并显示运算结果。 设计界 面和运行界面如图所示。其中,运算符是一个含有 4 个单选按纽的 RadioGroup1 对象。
下面是单击“运算”按钮的事件处理程序,请根据功能要求完成
程序填空。 --------------------------------------------------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);//运算 var x1,x2,y :Integer; begin ); x1 := StrToInt( Edit1. ①
x2 := StrToInt( Edit2. ② ); .ItemIndex of Case ③ 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. ④ := IntToStr( ⑤ ); end; -------------------------------------------------------------------