国开《Delphi程序设计》阶段测验2（第2-3章，权重25%）

一、选择题（共20道，每道3分）

1．能够删除edit1中内容的语句是（ ）。

edit1.Clear ;

edit1. Focused ；

edit1.Text= null  ; 

edit1.text :=’\0′ ;

2．一个Delphi窗体Form1中包含了一个Tbutton类的Button1控件，下面代码，将产生怎样的结果？（ ）。 …… Tform1.button1Click(Sender); begin Self.Caption:=’self’; Self.Color:=ClBlue; EventX(Sender); end; Tform1.EventX(Sender:TObject); begin Sender.Tag:=10; end;

窗体的标题为Self，颜色为蓝色，窗体的Tag属性等于10

Button1的标题为Self，颜色为蓝色，Tag属性等于10

Button1的标题为Self，颜色为蓝色，窗体的Tag属性等于10

窗体的标题为Self，颜色为蓝色，Button的Tag属性等于10

3．以下那个组件在程序运行时不可以由用户输入编辑文本（ ）。

Edit

comboBox

MaskEdit

label

4．用于异常处理的关键字不包括（   ）。

try

except

finally

error

5．RadioGroup对象中的单选按钮个数及名称是通过哪个属性来进行设置的。

Name

Caption

IT

Items

6．窗体表单上放置有一个Edit类控件Edit1，当在Edit1中按下‘A’键时触发的事件和事件顺序是（      ）。

OnKeyDown->OnKeyPress->OnKeyUp

OnKeyDown->OnKeyUp

OnKeyPress

OnKeyDown->OnKeyUp->OnKeyPress

7．下面的语句是用来判断用户选择RadioGroup组件的第几个选项按钮：

if RadioGroup1.ItemIndex=6 then …

5

6

7

8

8．为了使计时器控件Timer1每隔0.5秒就触发一次事件并执行事件代码，应将Timer1控件的Interval属性设置为：（      ）。

500

50

5

0.5

9．下面的语句用来在Memo组件的第2行位置插入“在第二行显示”字样的文本，请补充完整：

memo2.lines.Insert(____,\’在第二行显示\’);

0

1

2

-1

10．如果让界面上的一个按钮在运行的时候变为不可见，需要将它的哪一个属性设为False。

Visible

Name

Enable

See

11．数组类型定义：

Type aarrays=[1…8,1…5] of integer ；
该数组类型包含了多少个整型元素（ ）。

5

8

48

40

12．集合类型的数据大小取值范围是：（  ）。

0..255

0..65535

0..63

0..31

13．标准对话框组件中的OpenDialog组件需要执行哪个方法，会弹出常用的“打开文件对话框”。

Message

Close

Execute

Show

14．假如 C 盘存在aa.txt 文件，则有关下列代码理解不正确的是：（ ）

var
FileVar: file;
begin
AssignFile(FileVar, \’c:\\aa.txt\’); //语句1
Reset(FileVar); //语句2
CloseFile(FileVar); //语句3
CloseFile(FileVar); //语句4
end;

语句1 是与外部文件建立联系 

语句2 是以读方式打开文件

语句3 不会引发异常

语句4 正常关闭文件不会引发异常

15． 使用ReWrite 函数可以以什么方式打开一个已存在的文本文件或创建一个新的文本文件？（  ）

只读方式

写入方式

追加方式

插入方式

16．时钟组件(Timer)能有规律的以一定时间间隔触发哪个事件。

Columns

OnTimer

Grid

DoTime

17．Timer控件的常用事件是（  ），当此控件跨过时间间隔时发生。

Ontimer

POST

APPEND

IntervalTime

18．MessageBox函数与MessageDlg函数的相同之处在于(  )。

所有参数都相同。

都没法指定显示不同的图形符号。

都可以显示多个按钮，也可以指定显示不同的图形符号。

以上都不对。

19．进度显示组件ProgressBar的当前进度可以通过（    ）属性设置。

Step

Scroll

Position

Max

20．ListBox对象列表框中的内容是通过哪个属性来进行设置的。

Columns

Name

Grid

Items

二、判断题（共10道，每道3分）

21．根据需要可以响应任何组件的事件。

对

错

22．BitBtn控件和speedButton控件都可以用来制作一个带图片的按钮。

对

错

23．容器组件是指可以放置其他组件的组件，GroupBox是容器组件。

对

错

24．在由Delphi 管理的窗体类声明段中加进任何代码都会引起程序出错。

对

错

25．对象的Name属性值可以为空。

对

错

26．数组类型定义：

Type aarrays=[1…8,1…5] of integer ；
该数组类型包含了48个整型元素。

对

错

27．Timer组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnSubmit事件。

对

错

28．函数MessageDlgPos与MessageDlg极为相似，只是MessageDlgPos函数能够控制信息对话框的出现位置。

对

错

29．一个数组中的各元素的数据类型可以不同。

对

错

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

对

错

三、程序阅读题（共1道，每道10分）

31．本程序设计界面如下图所示：

 

 procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮

var

i , n, sum : integer ;

begin

sum := 0 ;

i := 1 ;

n := StrToInt(edit1.Text);  //读入正整数n

while i <=n do         //循环语句

begin

     if odd( i ) then  sum :=sum+i;

i := i +1 ;

end;

  edit2.Text :=IntToStr( sum );  //将结果在编辑框中显示

end;

 

用户在edit1中输入一个正整数7，则在edit2中显示计算结果为：          

选项： A.7

7

14

16

21