电大《Delphi程序设计》2019-2020期末题库及答案.docx

Welphi程序设计》2019-2020期末题库及答案
一、单选题（共0题，共0分）
1. “x是小于1000的非负数”的Object Pascal表达式是（）
A、 0Wx<1000
B、 （x>=0）OR（x<1000）
C、 x>=0,x<1000
D、 （x>=0）AND （x<1000）
正确答案：D
2. Delphi程序设计的基本特点是（）
A、 可视化程序设计
B、 代码程序设计
C、 事件驱动编程
D、 A和 C
正确答案：D
3. （0分）表达式50 + 19 div 2的值是（）
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. 利用对象监视器可以设置窗体或组件的（）o
A、 方法
B、 属性
C、 外观
D、 执行代码
正确答案：B
7. 通常控制组件在窗体中可见的属性是（）
A、 Visible
Name
C、 Showing
D、 Hint
正确答案：A
8. 下列变量命名正确的是（）
A、 7ABC
B、 My7
C、 page@2
D、 cmd.. 1
正确答案：B
9. 下列表达式中（）不是布尔表达式。
A、 A=3
B、 A div B
C、 A and B
D、 A>B
正确答案：B
10. 下列说法错误的是（）
A、 窗体文件的扩展名为.dfm
B、 一个窗体对应一个窗体文件
B、 Font

C、 Delphi中的一个工程只包含一个窗体
D、 ・~dpr和广pas是备份文件，便于用户恢复到较早的一个项目版本。
正确答案：C
11. 下面哪个不是对象的三个要素之一（）
A、 事件
B、 名称
C、 属性
D、 方法
正确答案：B
12. BitBtn组件的哪个属性预定义了一些常用的位图按钮种类（）。
A、 name
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. 如果想设置Forml中字体颜色为clRed,应当设置Font的（）属性。
A、 Color
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. 修改窗体的标题时，应当设置forni的属性是（）
A、 Caption
B、 Name
C、 Text
D、 Label
正确答案：A
21 .以下控件中没有Items属性的是（）
A、 ComboBox
B、 ListBox
C、 RadioGroup
D、 Memo
正确答案：D
22. 能够删除editl中内容的语句是（）。
A、 editl. Clear;
B、 editl. Focused；
C、 editl. Text=null;
D、 editl. text :=，\0';
正确答案：A
23. 在窗体上画一个名称为Command 1的命令按钮，一个名称为Label 1的标签, 然后编写如下事件过程：
procedure TForml. ButtonlClick（Sender: TObject）;
var s,i,x: Integer; begin
s := 0 ;
For i:=1 To 15 Do
Begin
x := 2*iT;
IF x Mod 3=0 Then s := s+1 end;
Label1. Caption := IntToStr （s）;
End;
问点击Command 1的命令按钮后，Label 1标签显示数值为：（）
A、 5
B、 15
C、20
D、25
正确答案：A
24. 进度显示组件ProgressBar的当前进度可以通过（）属性设置。
A、 Step
B、 Scroll
C、 Position
D、 Max
正确答案：C
25. 下列说明错误的是（）
A、 OpenDialog是打开文件对话框。
B、 Edit组件的Clear方法是清除编辑框中的内容
C、 CheckBox控件是通过Checked属性确定选择状态
D、 按钮组件的属性Name设置为“确定”，则按钮上文本显示为“确定” 正确答案：D
26. 用于建立菜单项的下划线快捷方式的字符是（）。
A、 &
B、 $
C、 %
D、 @
正确答案：A
27. 工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方 法是（）
A、 将SpeedButton按钮的Grouplndex属性设置为0,且AllowAHUp属性设置 为 True。
B、 将SpeedButton按钮的Grouplndex属性设置为0,且AllowAHUp属性设置 为 False。
C、 将SpeedButton按钮的Grouplndex属性设置为非0值，且AllowAHUp属性 设置为True。
D、 将SpeedButton按钮的Grouplndex属性设置为非0值，且AllowAHUp属性 设置为False。
正确答案：C
28. 工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右 对齐”），它们的Grouplndex属性正确的设置是（）

A、 Grouplndex属性值都为0
B、 Grouplndex属性值非0,且互不相同
C、 Grouplndex属性值非0,且相同
D、 Grouplndex属性值互不相同
正确答案：C
29. 最适合于在工具栏上放置的工具按钮是（）
A、 Button
B、 RadioButton
C、 SpeedButton
D> BitBtn
正确答案：C
30. 以下叙述中错误的是（）
A、 一个项目包含不止一种类型的文件。
B、 窗体的Show方法的作用是显示该窗体。
C、 窗体的Hide方法和Release方法的作用完全相同。
D、 若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体。 正确答案：C
31 .在窗体上建立多页面的用户界面，需要首先建立的对象是（）
A、 TabControl
B、 PageScroller
C、 HeaderControl
D、 PageControl
正确答案：D
32. 窗体与数据模块的扩展名是（）。
A、 . dcu
B、 ・ dfm
C、 , pas
D、 , dpr
正确答案：B
33. Delphi中可以实现绘制直线的方法是（）
A、 Polyline
B、 Ellipse
C、 Rect
D、 LineTo
正确答案：D
34. 利用Image象的哪个属性设置，可以使加载的图像自动放大或缩小，以适 应Image的显示区域（）
A、 Stretch
B、 AutoSize
C、 Align
D、 Center
正确答案：A
35. 在设计阶段，利用Image对象的咖个属性，可以加载一幅图片（）。
A、 Image
B、 Picture
C、 Grid
D、 Load
正确答案：B
36. 以使记录指针指向table第一个记录（）。
A、 Nol
B、 First
C、 Next
D、 End
正确答案：B
37. 只能输出、而不能输入的数据感知控件是（）
A、 DBEdit
B、 DBText
C、 DBRadioGroup
D、 DBCheckBox
正确答案：B
38. 数据库组件中，提供了对数据库读写操作功能的核心组件是（）
A、 数据源组件
B、 用户界面组件
C、 数据集组件
D、 数据感知控件
正确答案：C
39. 既可以通过选择输入、又可以直接输入的数据感知控件是（）
A、 DBRadioGroup
B、 DBListBox
C、 DBComboBox
D、 DBCheckBox
正确答案：C
40. F列常用的数据组件中，只需指定DataSource而不需指定DataField的控件 是哪个？（）
A、 DBText
B、 DBEdit
C、 DBNavigator
D、 Query
正确答案：C
41. Delphi程序在对数据表中的数据修改后，用来提交数据的方法是（）
A、 Edit
B、 Post
C、 Upload
D、 DownLoad
正确答案：B
42. 在Table组件中，用来设置打开或关闭与其相连的数据表的属性是（）
A、 Readonly
B、 B0F 和 EOF
C、 Keep
D、 Active
正确答案：D
43. Table组件中，指定要访问的数据库名称，通常设置数据库的属性是（）
A、 databasename
B、 active
C、 Name
D、 datasource
正确答案：A
44. 下面哪个方法用于确定当前指针位置是否在数据表的第一个记录（）。
A、 EOF
B、 BOF
C、 GETLAST
D、 GetFirstRecord
正确答案：B
判断题（共0题，共0分）
45. 对象具有属性和方法，这是对象的主要特征。对象具有属性和方法，这是对 象的主要特征。
T、V
F、X
正确答案：To
46. 一个对象可以具有多个属性，但只能有一个方法。一个对象可以具有多个属 性，但只能有一个方法。
T、V
F、X
正确答案：Fo
47. 在Delphi程序运行时动态设置属性的一般格式是：〈对象名〉.〈属性名〉==< 属性值〉；在Delphi程序运行时动态设置属性的一般格式是：〈对象名〉.〈属性 名 > ==〈属性值〉；
T、V
F、X
正确答案：Fo
48 .在Delphi中，根据变量标识符命名规则，“st80”可以作为一个合法的变量 命名。在Delphi中，根据变量标识符命名规则，“st80”可以作为一个合法的 变量命名。
F、X
正确答案：To
49. 在面向对象的delphi程序设计中，设置对象的属性和方法必须在程序中通过 编写代码来实现，绝对不允其他方式。因此，在Delphi的属性窗口无法直接设 置对象的属性。在面向对象的delphi程序设计中，设置对象的属性和方法必须 在程序中通过编写代码来实现，绝对不允其他方式。因此，在Delphi的属性窗 口无法直接设置对象的属性。
T、V
F、X
正确答案：Fo
50. 在面向对象的程序设计中，对象的属性用变量来表示，对象的方法用代码来 实现。在面向对象的程序设计中，对象的属性用变量来表示，对象的方法用代码 来实现。
T、V
F、X
正确答案：To
51 .在事件处理程序中定义的变量，其一旦建立，即使事件处理程序完毕后仍将 一直存在，生命周期延续至整个用户程序全部结束。在事件处理程序中定义的变 量，其一旦建立，即使事件处理程序完毕后仍将一直存在，生命周期延续至整个 用户程序全部结束。
T、V
F、X
正确答案：Fo
52. 子类可以继承父类，但是，一个父类只能拥有一个子类。子类可以继承父类, 但是，一个父类只能拥有一个子类。
T、V
F、X
正确答案：Fo
53. label和Edit组件都可以用于用户输入数据。label和Edit组件都可以 用于用户输入数据。
T、V
F、X
正确答案：Fo
54. RadioGroup对象中的单选按钮个数及名称是通过Items属性来进行设置的。 RadioGroup对象中的单选按钮个数及名称是通过Items属性来进行设置的。
T、V
F、X
正确答案：To
55. 编辑框edit的Readonly属性如果设置为true,在代码中还是可以对text 属性赋值。编辑框edit的Readonly属性如果设置为true,在代码中还是可以 对text属性赋值。
T、V
F、X
正确答案：To
56. 按钮组件和编辑框组件都能够响应OnClick事件。按钮组件和编辑框组件都 能够响应OnClick事件。
T、V
F、X
正确答案：To
57. 按钮组件和编辑框组件能够响应的事件有些是相同的。按钮组件和编辑框组 件能够响应的事件有些是相同的。
T、V
F、X
正确答案：To
58. label标签中文本不可以换行。label标签中文本不可以换行。
T、V
F、X
正确答案：To
59. 在一个项目中，可以指定任意一个窗体为主窗体。在一个项目中，可以指定 任意一个窗体为主窗体。
T、V
F、X
正确答案：To
60. 一个数组中的各元素的数据类型可以不同。一个数组中的各元素的数据类型 可以不同。
T、V
F、X
正确答案：Fo
61 .若己在窗体中加入了一个OpenDialog对象，要求在运行时，打开对话框时只 显示扩展名为TXT的文件，则对通用对话框的Filter的属性进行设置，设置可 以是：'TXT Files*. TXT'。若己在窗体中加入了一个OpenDialog对象，要求 在运行时，打开对话框时只显示扩展名为TXT的文件，则对通用对话框的Filter 的属性进行设置，设置可以是：'TXT Files |*・TXT'。
T、V
F、X
正确答案：To
62. OpenDialog组件的功能是指定一个文件名，并将编辑区中的内容保存到文 件中。OpenDialog组件的功能是指定一个文件名，并将编辑区中的内容保存到 文件中。
T、V
F、X
正确答案：Fo
63. Delphi中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型o Delphi 中的菜单项有3种类型：普通按钮型、复选框型和单选按钮型。
T、V
F、X
正确答案：To
64. 如果要在窗体上设计一个主菜单，首先要建立MainMenu对象。如果要在窗体 上设计一个主菜单，首先要建立MainMenu对象。
T、V
F、X
正确答案：To
65. 在一个项目中，第一个建立的窗体并不一定就是主窗体，可以在后续开发过 程中指定。在一个项目中，第一个建立的窗体并不一定就是主窗体，可以在后续 开发过程中指定。
T、V
F、X
正确答案：To
66. MediaPlayer组件可以播放Avi、midi等多种媒体格式。MediaPlayer组件 可以播放Avi、midi等多种媒体格式。
T、V
F、X
正确答案：To
67. （0分）［SN： 125441］【难度：0.5】【状态：已发布】
图形组件可以输入焦点，并能接受用户的输入，然后显示。图形组件可以输入焦 点，并能接受用户的输入，然后显示。
T、V
F、X
正确答案：Fo
68. 一个Query对象同一时刻可以无限制地存储多条SQL语句。一个Query对象 同一时刻可以无限制地存储多条SQL语句。
T、V
F、X
正确答案：Fo
69. 在程序运行期间，一个Query对象中的SQL语句可以修改。在程序运行期间, 一个Query对象中的SQL语句可以修改。
T、V
F、X
正确答案：To
70. 在设计阶段，如果在Query对象的SQL语句中设置了参数，则必须在Query 的Params属性中为参数设置数据类型。在设计阶段，如果在Query对象的SQL 语句中设置了参数，则必须在Query的Params属性中为参数设置数据类型。
T、V
F、X
正确答案：To
71在Data Controls组件标签页上，所有的数据控件都有datafield属性。在 Data Controls组件标签页上，所有的数据控件都有datafield属性。
T、V
F、X
正确答案：Fo
72. DBText除了指定DataSource属性外（设定相连的数据源），还要指定 DataField属性（设为相连的字段），否则无法显示数据内容。DBText除了指定 DataSource属性外（设定相连的数据源），还要指定DataField属性（设为相 连的字段），否则无法显示数据内容。
T、V
F、X
正确答案：To
73. DBEdit除了指定DataSource属性外（设定相连的数据源），还要指定 DataField属性（设为相连的字段），否则无法显示数据内容。DBEdit除了指定 DataSource属性外（设定相连的数据源），还要指定DataField属性（设为相 连的字段），否则无法显示数据内容。
T、V
F、X
正确答案：To
74. 单字段数据感知控件（例如DBText、DBEdit等）都必须指定DataSource和 DataField两个属性值。单字段数据感知控件（例如DBText、DBEdit等）都必 须指定DataSource和DataField两个属性值。
T、V
F、X
正确答案：To
75. 在程序运行期间，一个Table对象只能固定和一个关系表相连。在程序运行 期间，一个Table对象只能固定和一个关系表相连。
T、V
F、X
正确答案：Fo
阅读程序题（共0题,共0分）
76. 阅读下面的程序段，其中editPeditS均为编辑框组件，当s为3 , editl 输入数字9 , edit2输入数字3的时候，执行下面的程序段，请选择edit3应 显示的内容为。
var
x, y, z, s : integer;
begin
x:= strtoint （editl. Text）;
y:= strtoint （edit2. Text）;
case s of
0: z:= x+y ;
1: z:= x-y ;
2: z:= x*y ;
3: z:= x div y;
end;
edit3. text:=inttostr （z）;
if s=3 then
if （x mod y<>0）then
edit3・ text :=Edit3・ text+' '+ inttostr （x mod y）;
end;
执行后，edit3显示的内容为:
A、3
B、 2
C、 1
D、 0
正确答案：A
77. 用户界面如下图所示的应用程序:

说明如下：
窗体Forml _h放置2个按钮对象Buttonl (运算键)、Button2 (退出),3个编 辑框对象editl (操作数)、edit2 (被操作数)、edit3 (结果输出框)，一个 GroupBox对象GroupBoxl (内含4个单选按钮，用于选择4个运算类型),一个 复选框checkbox!.( “显示除法余数”)。
界面上对象的代码如下：
procedure TForml. ButtonlClick(Sender: TObject);
var
x, y, z : integer;
begin
x:= strtoint(editl. Text);
y:= strtoint(edit2. Text);
case radiogroupl. itemindex of
0: z:= x+y ;
1: z:= x-y ;
2: z:= x*y ;
3: z:= x div y;
end;
edit3. text:=inttostr (z);
if checkboxl. checked and (radiogroupl. itemindex=3) then
if (x mod y<>0)then
edit3・ text :=Edit3・ text+' 余'+ inttostr (x mod y);
end;
procedure TForml. EditlExit(Sender: TObject);
var
x : integer ;
begin
if (editl. Text=，，) then
begin
showmessage ('操作数为空');
editl. SetFocus ;
exit ;
end ;
x:= strtoint (editl. Text);
if (x<l)or (x>100) then
begin
showmessage ('操作数越界');
editl. SetFocus ;
end ;
end;
procedure TForml. Edit2Exit(Sender: TObject);
var
x : integer ;
begin
if (edit2. Text=，') then
begin
showmessage ('被操作数为空');
edit2. SetFocus ;
exit ;
end ;
x:= strtoint(edit2. Text);
if (x<l)or(x>100) then
begin
showmessage (J被操作数越限');
edit2. SetFocus ;
end ;
end;
procedure TForml. Button2Click(Sender: TObject) ; //退出按钮
begin
forml. close;
end;
阅读上面的代码，请写出如上图所示输入editl输入数字23 , edit2输入数字 5的时候，点击“运算键”执行后，请写出edit3显示的内容。
A、操作数为空
B、 2 余 3
C、 0
D、 4 余 3
正确答案：D
78. 一个应用程序用于实现教师信息录入，其用户界面如下图所示:

窗体Forml上放置1个按钮对象Buttonl (确定)。用户在编辑框(Editl)中 输入姓名，利用单选按钮(RadioGroupl)指定性别，通过RadioGroupl的Items 属性设置两个单选按钮(“男”和“女”)，并将属性Column设置为2 (按钮 摆两列)。利用组合框(ComboBoxl)选择或直接输入所在系，利用列表框
(ListBoxl)指定职称。右边放置一个Memo组件(Memol)用于结果显示。
“确定”按钮(Buttonl)的单击事件处理程序如下：
procedure TForml. ButtonlClick(Sender: TObject);
begin
memol. Lines. Add (editl. Text);
if radiogroupl. Itemindex = 0 then
memol. Lines. Add ('男')
else
memol. Lines. Add ('女');
memol. Lines. Add(comboboxl. Text);
memol. Lines. Add( listboxl. Items[listboxl. itemindex]);
end;
当输入完界面所示的上述信息后，单击“确定”按钮，请写出右边的Memol编辑 窗口中教师信息显示结果。
A、显示单行文本：“张晓林”
B、显示单行文本：“张晓林+女+中文+副教授”
C、 显示多行文本：
张晓林+
女+
中文+
副教授
D、 显示多行文本：
张晓林
女
中文
副教授
正确答案：D
79. 应用程序用户界面如下图(左)所示，右图是设计界面。

在Forml上建立一个Pane 11对象作为显示时间的面板，建立Timer 1对象，并将 Interval属性设置为500,将Enabled属性的初始值设置为False。
建立一个全局整型变量TimeCTo
代码如下：
procedure TForml. TimerlTimer(Sender: TObject);
begin
panel1. Caption := Timetostr(time);
TimeCT := TimeCT + 1;
editl. text:=inttostr(TimeCT);
end;
procedure TForml. ButtonlClick(Sender: TObject) ; //开始按钮
begin
timerl. Enabled := true ;
TimeCT := 0;
end;
procedure TForml. Button2Click(Sender: TObject); 〃停止按钮
begin
timerl. Enabled := false ;
end;
当用户单击开始按钮后，开始时间如上图左所示，过5秒后，就立即按下停止按 钮，请写出Pane 11对象和Editl的显示结果。
A、Pane 11对象显示内容为:
21:02:33 ， Editl对象显示内容为5

B、Pane 11对象显示内容为:
21:02:33 ， Editl对象显示内容为10

C、Pane 11对象显示内容为:
21:07:28 ， Editl对象显示内容为5

D、Pane 11对象显示内容为:
21:07:28 ， Editl对象显示内容为10
正确答案：D
80. 在程序中，在表单forml上建立2个编辑框对象editl、edit2和一个按钮对 象。对forml的buttonl编写的代码如下:
procedure TForml. ButtonlClick(Sender: TObject);
var
g:integer;
begin
g := strtoint (editl. text);
if (g >=85) and (g <= 100) then edit2. text ” 优秀”
else
if (g >=55) and (g < 85) then
edit2. text ” 通过”
else
if (g >0) and (g <55) then
edit2. text := ”重考”
else
edit2. text 输入有误”；
end;
阅读上面代码，当在editl中输入0时，edit2的显示结果为
A、 重考
B、 优秀
C、 输入有误
D、 不通过
正确答案：C
81 .请阅读下面程序，并填写运行结果: 下面是一个函数F的程序代码。
Function F (n: integer) ; //函数声明
Var i,s:integer;
Begin
s:=0;
For i :=1 to n //循环
s:= s+i；
result:=s;
〃累加
//返回计算结果

End;
当n为5,该函数的返回值为
A、 10
B、 5
C、 20
D、 15
正确答案：D
82. 本程序设计界面如下图所示：
Si入一个正阮f procedure TForml. ButtonlClick(Sender: TObject) ; // "计算”按钮 var
i , n, sum : integer ;
begin
sum := 0 ;
i ：= 1 ；
n := StrToInt (editl. text ); 〃读入
while i <= n do //循环语句
begin
if i mod 3 =0 then sum := sum+i;
i := i +1 ;
end;
edit2. Text :=IntToStr (sum ) ; //将结果在编辑框中显示 end;
用户在editl中输入一个正整数7,则在edit2中显示计算结果为：
A、 7
B、 8
C、 9
D、 0
正确答案：C
83. 本程序设计界面如下图所示：

procedure TForml. ButtonlClick(Sender: TObject) ; // “计算”按钮 var
i , n, sum : integer ;
begin
sum := 0 ;
i := 1 ;
n := StrToInt (editl. Text); 〃读入正整数 n
while i <=n do //循环语句
begin
if odd( i ) then sum :=sum+i;
i := i +1 ;
end;
edit2. Text :=IntToStr ( sum ) ; //将结果在编辑框中显示 end;
用户在editl中输入一个正整数7,则在edit2中显示计算结果为:
A、 7
B、 14
C、 16
D、 21
正确答案：C
84. 本程序设计界面如下，请阅读程序写出结果：

“检测”(Buttonl)按钮的事件处理程序。
procedure TForml. ButtonlClick(Sender: TObject);
var
R: Real;
begin
R := StrToFloat (Editl. Text);
if R <0. 5 then Edit2. Text :='输入有误'
else
if Abs(R - 10. 0) <= 0.5 then
Edit2.Text :='检测为合格品'
else
Edit2.Text :='检测为废品';
end;
当用户在editl中输入一个数值10. 39,然后按“检测” (Buttonl)按钮，在 edit2中显示结果为 o
A、 10.3
B、 输入有误
C、 检测为合格品
D、 检测为废品
正确答案：C
85. 程序设计界面如下，请阅读程序写出结果：

在forml ±建立的对象有：Labell~Label2、Editl (输入数)、Edit2 (输出序 列)、Buttonl (确定)等。
Buttonl按钮的处理程序如下：
procedure TForml. ButtonlClick(Sender: TObject);
var
i, j： Integer;
begin
Edit2. Text ;
j := StrToInt (Editl. Text);
for i := 1 to j do
Edit2. Text := Edit2. Text + IntToStr (i);
end;
当用户输入一个1位正整数数值8,然后按“确定”按钮，在“输出系列”显示 结果为 o
A、 01234567
B、 12345678
C、 88888888
D、 87654321
正确答案：B
86. 本程序设计界面及运行界面如下:

在“盘数量” (Editl)框中输入购买的光盘数，单击“计算” (Buttonl)按钮 后在“应收金额” (Edit2)框中显示应收钱数。单击“结束”(Button2)按钮 结束程序。
单击“计算”(Buttonl)按钮的事件处理程序如下：
procedure TForml. ButtonlClick(Sender: TObject);
var
Disk, Money: Integer;
begin
Disk := StrToInt (Editl. Text);
if Disk >= 50 then
Money := 2 * Disk
else
Money := 3 * Disk;
Edit2. Text := IntToStr (Money);
end;
procedure TForml. Button2Click(Sender: TObject);
begin
Close;
end;
当用户在Editl （盘数量）中输入数量值25,然后按“确定”按钮，在Edit2 （应 收金额）显示结果为 o
A、 75
B、 50
C、 150
D、 35
正确答案：A