电大2846Delphi程序设计-期末考试资料word

.2846Delphi 程序设计-0006试卷总分：100 答题时间：60 分钟客观题单项选择题（共 20 题，共 40 分）1. 结构化程序设计的基本原则或特点不包括（ ）。A 多态性2. 下列表达式中（ ）不是布尔表达式。B A div B3. 利用对象监视器可以设置窗体或组件的( )。B 属性4. 下列说法错误的是 ( )C Delphi 中的一个工程只包含一个窗体5. 如果想设置 Form1 中字体颜色为 clRed，应当设置 Font 的（ ）属性。A Color6. 如果要检查 edit 编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查（ ）D OnKeyPress7. 能够删除 edit1 中内容的语句是（ ）。A edit1.Clear;8. 在 Delphi 中，建立一个文本编辑区域，可采用下列哪个控件（ ）。C Edit 控件9. 下列说明错误的是（ ）D 按钮组件的属性 Name 设置为“确定”，则按钮上文本显示为“确定”10. 进度显示组件 ProgressBar 的当前进度可以通过（ ）属性设置。C Position11. 工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右对齐”），它们的 GroupIndex 属性正确的设置是（ ）C GroupIndex 属性值非 0，且相同12. 用于建立菜单项的下划线快捷方式的字符是( )。A F 2. 在面向对象的程序设计中，对象的属性用变量来表示，对象的方法用代码来实现。T 3. 子类可以继承父类，但是，一个父类只能拥有一个子类。F 4. 对象具有属性和方法，这是对象的主要特征。T 5. label 和 Edit 组件都可以用于用户输入数据。F 6. label 标签中文本不可以换行。T .7. 按钮组件和编辑框组件都能够响应 OnClick 事件。T 8. 编辑框 edit 的 ReadOnly 属性如果设置为 true，在代码中还是可以对 text 属性赋值。T 9. 若已在窗体中加入了一个 OpenDialog 对象，要求在运行时，打开对话框时只显示扩展名为 TXT 的文件，则对通用对话框的 Filter 的属性进行设置，设置可以是： TXT Files|*.TXT。T 10. OpenDialog 组件的功能是指定一个文件名，并将编辑区中的内容保存到文件中。F 11. 一个数组中的各元素的数据类型可以不同。F 12. Delphi 中的菜单项有 3 种类型：普通按钮型、复选框型和单选按钮型。T 13. 在一个项目中，第一个建立的窗体并不一定就是主窗体，可以在后续开发过程中指定。T 14. MediaPlayer 组件可以播放 Avi、midi 等多种媒体格式。T 15. 图形组件可以输入焦点，并能接受用户的输入，然后显示。F 16. DBEdit 除了指定 DataSource 属性外（设定相连的数据源），还要指定 DataField 属性（设为相连的字段），否则无法显示数据内容。T 17. DBText 除了指定 DataSource 属性外（设定相连的数据源），还要指定 DataField 属性（设为相连的字段），否则无法显示数据内容。T 18. 在 Data Controls 组件标签页上，所有的数据控件都有 datafield 属性。F 19. 单字段数据感知控件（例如 DBText、DBEdit 等）都必须指定 DataSource 和DataField 两个属性值。.T 20. 在程序运行期间，一个 Table 对象只能固定和一个关系表相连。F 程序阅读分析题（共 2 题，共 20 分）1.程序设计界面如下，请阅读程序写出结果：在 form1 上建立的对象有：Label1Label2、Edit1（输入数）、Edit2（输出序列）、Button1（确定）等。Button1 按钮的处理程序如下：procedure TForm1.Button1Click(Sender: TObject);vari, j: Integer;beginEdit2.Text := ;j := StrToInt(Edit1.Text);for i := 1 to j doEdit2.Text := Edit2.Text + IntToStr(i);end;当用户输入一个 1 位正整数数值 8，然后按“确定”按钮，在“输出系列”显示结果为 。B 123456782.本程序设计界面如下图所示：.procedure TForm1.Button1Click(Sender: TObject); /“计算”按钮vari , n, sum : integer ;beginsum := 0 ;i := 1 ;n := StrToInt(edit1. text ); /读入while i = n do /循环语句beginif i mod 3 =0 then sum :=