国家开放大学2023-2024学年《程序设计》模拟试卷及答案解析（2024年）.docx

第

第PAGE1页共NUMPAGES26页

国家开放大学

2023-2024学年《程序设计》模拟试卷及答案解析

单选题(共0题,共0分)

1.“x是小于1000的非负数”的ObjectPascal表达式是（）

A、0≤x1000

B、(x=0)OR(x1000)

C、x=0,x1000

D、(x=0)AND(x1000)

正确答案：D

2.Delphi程序设计的基本特点是（）

A、可视化程序设计

B、代码程序设计

C、事件驱动编程

D、A和C

正确答案：D

3.(0分)表达式50＋19div2的值是（）

A、57

B、69

C、59

D、60

正确答案：C

4.结构化程序设计的基本原则或特点不包括（）。

A、多态性

B、自顶向下

C、模块化

D、逐步求精

正确答案：A

5.结构化程序设计的基本原则是取消（）语句，程序中仅采用顺序、分支和循环三种控制结构。

A、For

B、While

C、goto

D、Do

正确答案：C

6.利用对象监视器可以设置窗体或组件的(??)。

A、方法

B、属性

C、外观

D、执行代码

正确答案：B

7.通常控制组件在窗体中可见的属性是（）

A、Visible

B、Name

C、Showing

D、Hint

正确答案：A

8.下列变量命名正确的是()

A、7ABC

B、My7

C、page@2

D、cmd..1

正确答案：B

9.下列表达式中（）不是布尔表达式。

A、A=3

B、AdivB

C、AandB

D、AB

正确答案：B

10.下列说法错误的是()

A、窗体文件的扩展名为.dfm

B、一个窗体对应一个窗体文件

C、Delphi中的一个工程只包含一个窗体

D、.~dpr和.~pas是备份文件，便于用户恢复到较早的一个项目版本。

正确答案：C

11.下面哪个不是对象的三个要素之一(??)

A、事件

B、名称

C、属性

D、方法

正确答案：B

12.BitBtn组件的哪个属性预定义了一些常用的位图按钮种类()。

A、name

B、Caption

C、kind

D、type

正确答案：C

13.以下能够触发编辑框（Edit）组件OnChange事件的操作是（）。

A、鼠标单击编辑框

B、鼠标双击编辑框

C、在编辑框中选择文本

D、在编辑框中输入文本

正确答案：D

14.编辑框（Edit）中的文本发生改变时引发的事件是（）

A、AutoSize

B、OnChange

C、SetFocus

D、SetText

正确答案：B

15.如果想设置Form1中字体颜色为clRed，应当设置Font的（）属性。

A、Color

B、Font

C、back

D、red

正确答案：A

16.如果要检查edit编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查（）

A、OnClick

B、OnEnter

C、OnMouseUp

D、OnKeyPress

正确答案：D

17.在Delphi中，建立一个文本编辑区域，可采用下列哪个控件（）。

A、命令按钮

B、文本标签控件

C、Edit控件

D、Timer控件

正确答案：C

18.Delphi有三种控制循环的语句，下列哪个不是其中之一()。

A、repeat语句

B、while语句

C、for语句

D、next语句

正确答案：D

19.下面哪个组件不是容器组件（）

A、Form

B、Panel

C、GroupBox

D、MaskEdit

正确答案：D

20.修改窗体的标题时，应当设置form的属性是（）

A、Caption

B、Name

C、Text

D、Label

正确答案：A

21.以下控件中没有Items属性的是（）

A、ComboBox

B、ListBox

C、RadioGroup

D、Memo

正确答案：D

22.能够删除edit1中内容的语句是（）。

A、edit1.Clear;

B、edit1.Focused；

C、edit1.Text=null;

D、edit1.text:=\0;

正确答案：A

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

?procedureTForm1.Button1Click(Sender:TObject);

vars,i,x:Integer;

begin

?s:=0;

???Fori:=1To15Do

????Begin?

?????x:=2*i-1;

?????IFxMod3=0Then

??????????s:=s+1?

????end;

?Label1.Caption:=IntToStr(s);