delphi程序试题答案
Delphi程序设计试题及解答
《Delphi 程序设计》试题及解答 卷6一、填空题（20分，每空2分）1、现实世界中对象具有自己的状态和行为。
对应着，面向对象技术中的对象可以具有自己的属性和 。
2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 和一个出口。
3、Delphi 应用程序中单元文件的扩展名是 。
4、与数学表达式 53)(cos 2++xb a 对应的Object Pascal 表达式是 。
5、对于下面的条件表达式：（（3 <= x ）AND （x < 0）） OR （x in [1..10]）当x = 3 时， 该表达式的值为 。
6、ListBox 对象列表框中的内容是通过 属性来进行设置的。
7、如果想设计DBGrid 对象的列标题和对齐方式，可以对DBGrid 对象的 属性进行设置。
8、时钟组件（Timer ）能有规律的以一定时间间隔触发 事件9、能够实现格式化输入的编辑框组件是10、利用 对象的LineTo 等方法，可以绘制基本图形。
二、单项选择题（20分，每题2分）1、Delphi 程序设计的基本特点是（ ）。
A ． 可视化程序设计B ． 代码程序设计C ． 事件驱动编程D ． A 和C2、进度显示组件ProgressBar 的当前进度可以通过（ ）属性设置。
A ． StepB ．ScrollC ． PositionD ．Max3、下列变量命名正确的是（ ）。
A ．7ABCB ． My7C ． page@2D ．cmd..14、“x 是小于200的非负数”的Object Pascal 表达式是（ ）。
A ．0 ≤ x < 200B ． x >= 0, x<200C ．(x >=0) AND (x < 200) D ． (x >= 0 ) OR (x<200)5、在窗体上建立多页面的用户界面，需要首先建立的对象是（ ）A ． TabControlB ．PageControlC ． HeaderControlD ．PageScroller6、能够删除edit1中内容的语句是（ ）。
Delphi试卷A答案
二、填空题。
（每空1分，共20分。
）1．：=2．对象名.属性名：=属性值；3．可视化组件库4．工程文件、单元文件5．代码完善、参数提示、代码模板、符号洞察6．声明、2557．字符型、布尔型、枚举型8．F129．shift10．Sqr(x)+3*x*y/ (2-y)11．Canvas.pen.color:=clblue；lineto(210, 195);12．Edit1.setfocus;三、程序简答题。
（共25分）1．功能是：计算并返回集合参数a中的字符个数。
（3分，叙述的意思对即可）2．25 （3分）3．（每题1分，共4分，叙述的意思对即可）⑴表达式书写错误，应为2*y+10 ⑵赋值号不能连用在一个语句中⑶赋值号左边只能是变量⑷赋值号左边不能是函数4．（每题2分，共8分，结果错误即不得分）⑴28 ⑵2 ⑶’cb’⑷197 5．（每题1分，共4分，结果错误即不得分）⑴’hello’⑵1968 ⑶’-459.65’⑷5 6．错误：const value；说明参数value是常量参数，其值在函数体中不能改变。
（3分，只说明value值不变即可得分）四、程序设计题。
（40分）1．（共7分）Function f (m:real) : real ; ………………………………(1分)BeginIf m<0 then f:=f(m+1)+2 ………………………………（2分）ElseIf m=0 then f:=5 ………………………………（2分）Else f:=f (m-1)-2 ………………………………（2分）End;2．（共8分）procedure TForm1.Button1Click(Sender: TObject);……………………（事件过程可以自己选择，注意语法错误1分）vari , j , temp : integer ;a:array [1..10] of integer; ……………………（变量定义，1分）beginrandomize;for i:=1 to 10 dobegina[i]:=random(i*100);end; …………………………………（初始化数组，2分）for i:=1 to 10 dofor j:=i+1 to 10 do ………………………………（循环嵌套，1分）if a[i]<=a[j] thenbegintemp:=a[i];a[i]:=a[j];a[j]:=tempend; ……………………………………（交换变量值，2分）for i:=1 to 10 dolistbox1.Items.add(inttostr(a[i]))………………（数组值输出，1分）end;3．（共9分）procedure TForm1.FormCreate(Sender: TObject); ……………………（事件过程可以自己选择，注意语法错误1分）vara:array[1..8,1..8] of integer;i , j:integer ; st:string; ……………………（变量定义，1分）beginfor i:=1 to 8 dofor j:=1 to 8 do ………………………………（循环嵌套，1分）if (i=j) or (i=9-j) then ………………………（条件，1分）a[i,j]:=8elsea[i,j]:=1; ………………………………（赋值，1分）for i:=1 to 8 do………………………………（循环变量值，1分）beginst:='';for j:=1 to 8 do …………………………（循环嵌套，1分）st:=st+ inttostr(a[i,j])+' ';listbox1.items.Add(st) …………………………（设置输出格式，2分）endend;4．（16分）第一部分：（共9分）procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);VartempP,p:PLink;beginif Key=#13 then …………………………（如果按下〈Enter〉键，1分）Beginnew(tempP);tempp^.Data:=Edit1.Text;tempP^.Next:=NIL; …………………………（创建一个结点，1分）if Dtrec=NIL Then ……………………（如果链表为空表，2分）beginhead:=tempP;endelsebeginp:=head;while p^.Next<>NIL do ………………（找表尾，1分）P:=P^.Next;P^.Next:=tempP;……………………（将新节点添加到表尾，2分）end;Edit1.Clear;Edit1.SetFocus; …………………（当前活动焦点置回到编辑框上，2分）end;End;第二部分：（7分）Procedure TForm1.Button1Click(Sender: TObject);Varp:Plink; ………………………………（变量定义，1分）BeginListBox1.Clear; …………………………（清列表框，1分）P:=head;if head=nil thenshowMessage('链表为空表!')…………………………（2分）elserepeatListBox1.Items.Add(P^.Data);P:=P^.Next;until P=Nil;………………………………（遍历链表，将所有节点数据域中的数据赋给ListBox1的Items属性，3分）End;。
Delphi程序设计试题二及答案
Delphi 程序设计试题二及答案一、填空题（20分，每空2分）1、现实世界中对象具有自己的状态和行为。
对应着，面向对象技术中的对象可以具有自己的属性和 。
2、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有 和一个出口。
3、Delphi 应用程序中单元文件的扩展名是 。
4、与数学表达式 53)(cos 2++xb a 对应的Object Pascal 表达式是 。
5、对于下面的条件表达式：（（3 <= x ）AND （x < 0）） OR （x in [1..10]）当x = 3 时， 该表达式的值为 。
6、ListBox 对象列表框中的内容是通过 属性来进行设置的。
7、如果想设计DBGrid 对象的列标题和对齐方式，可以对DBGrid 对象的 属性进行设置。
8、时钟组件（Timer ）能有规律的以一定时间间隔触发 事件9、能够实现格式化输入的编辑框组件是10、利用 对象的LineTo 等方法，可以绘制基本图形。
二、单项选择题（20分，每题2分）1、Delphi 程序设计的基本特点是（ ）。
A ． 可视化程序设计B ． 代码程序设计C ． 事件驱动编程D ． A 和C2、进度显示组件ProgressBar 的当前进度可以通过（ ）属性设置。
A ． StepB ．ScrollC ． PositionD ．Max3、下列变量命名正确的是（）。
A．7ABC B．My7 C．page@2 D．cmd..14、“x 是小于200的非负数”的Object Pascal表达式是（）。
A．0 ≤x < 200 B．x >= 0, x<200C．(x >=0) AND (x < 200)D．(x >= 0 ) OR (x<200)5、在窗体上建立多页面的用户界面，需要首先建立的对象是（）A．TabControl B．PageControlC．HeaderControl D．PageScroller6、能够删除edit1中内容的语句是（）。
delphi面试题及答案
delphi面试题及答案【篇一：delphi程序期末试题答案】一、单选题（每小题2分，共30分）1．在 radiogroup 组件中有 4 个单选框，当选中第 2 个单选框时，radiogroup 组件中的 itemindex 属性值应为（b）。
a．0 b．1c．2d．3 2．函数和过程的区别为（a）。
a．函数执行后返回一个值，而过程不需返回值b．过程执行后返回一个值，而函数不需返回值c．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方d．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方3．32 and 27 的值是（b）。
a．59b．0c．27d．32 4．窗体与数据模块的扩展名是（b）。
a．.dcu b．.dfm c．.pas d．.dpr 5．delphi 中用什么函数来析构一个组件（c）。
a．constructor b．destroy c．free d．create 6．一个指针变量ptr 的域成员 fs 访问的方法是（c）。
a．ptr-fsb．ptr.fsc．ptr^fs d．ptr@fs7．type aarrays=[1?8,1?5] of integer ，该类型定义了多少个下标元素（d）。
a．45 b．54 c．48 d．40 8．delphi 的所有类都是从什么类继承下来的（b）。
a．tcomponent b．tobject c．tstream d．tnull9．定义构造函数时用到的保留字是（c）。
a．class b．.implementation c．create d．construction 10．下列组件中属于可视组件的是哪一个（d）。
a．tdatasource b．topendialog c．ttable d．tscrollbar11．设有过程 procedure pro(var x,y:integer); 变量 a , b 为整型变量，其值分别为 5、6，则合法的过程调用语句是（a．pro(5,6) b．pro(5,b) c．pro(a,6)d．pro(a,b) 12．下列组件中不能获取焦点的是（b）。
Delphi_程序设计基础教程_习题答案(hzd)
Delphi 程序设计基础教程第 1 章Delphi 集成开发环境1. 填空题(1) Delphi 是一个集成开发环境，从 3程序设计、代码编译、调试，到最布程序的全部工作都可以在这个集成环境中完成。
(2) 在 Delphi 集成环境的主要组成部分中有许多功能强大的工具，如： 3主窗体、对象树状视图、对象观察器、窗体设计器、代码编辑器工具等。
(3) Delphi 集成开发环境的界面分为4个部分，分别是。
主窗口、窗体窗口、代码编辑窗口和对象查看器窗口(4) 对象查看器的功能是：编辑设置窗体、组件的属性，并为窗体、组件添加事件的响应处理过程(5) Delphi 主窗口由：标题栏、菜单栏、工具栏和组件板组成，它是打开其他窗口和退出D elphi 集成环境的主要界面。
2. 选择题D(1) 对象查看器由组成。
A. 标题栏、菜单栏、属性标签和事件标签B. 标题栏、菜单栏、对象选择器和事件标签C. 标题栏、菜单栏、对象选择器和属性标签D. 标题栏、对象选择器、属性标签和事件标签D(2) Delphi 用来管理用户开发的应用程序中的各个文件，有序地管理可以极大地提高应用程序开发的质量和速度。
A. 单元B. 组件C. 属性D. 项目B(3) 用来编写应用程序的代码。
A. 调试器窗口B. 代码编辑窗口C. 报表生成器窗口D. 数据库桌面窗口B(4) 代码编辑窗口分为左、右两部分：。
A. 左边是单元代码窗口，右边是单元浏览器窗口B. 左边是单元浏览器窗口，右边是单元代码窗口C. 左边是单元调试窗口，右边是单元浏览器窗口D. 左边是单元浏览器窗口，右边是单元调试窗口A(5) 属性选项卡即标签名为“Properties”的选项卡，用于设置当前组件的属性，属性选项卡是一个两列的表格，。
A. 左列是属性标题，右列是属性值B. 左列是组件名称，右列是事件名C. 左列是属性标题，右列是事件名D. 左列是组件名称，右列是属性值C(6) 事件选项卡即标签名为“Events”的选项卡，用于为当前组件添加各种响应事件(如单击、拖曳事件等)，它随对象选择器中的所选组件而发生变化。
(Delphi)计算机程序设计模拟试题一及参考答案
(Delphi)计算机程序设计模拟试题一试题一1 ．一般程序设计都采用高级语言，很少使用汇编语言，因为（ 1 ）。
软件设计和程序设计是两个不同的概念，（2 ）。
一份详细的程序设计说明书常常比程序源代码更有保存价值，这是因为（3 ）。
程序代码重用可以提高编程效率，源代码和编译后的目标代码都可以重用，比较好的重用方法是（4 ）。
设计Windows 程序必须时时想到计算机不是由某个程序独占的，因此（5 ）。
（ 1 ） A ．高级语言编的程序执行效率较高B ．汇编语言不容易学习，使用不方便C ．历史上一直这样沿用下来D ．高级语言种类很多，有更多的选择余地（ 2 ） A ．程序设计不仅包括软件设计，还包括硬件设计B ．程序设计和软件设计涉及完全不同的知识领域C ．如果把软件设计比做桥梁工程设计，程序设计则是桥梁设计D ．软件设计必须考虑各方面的协作问题，而程序设计不涉及此问题（ 3 ） A ．从程序设计说明书可以自动生成源程序B ．设计说明书比源程序更精炼，更容易保存C ．源程序将随着时间的流逝逐渐失去价值，设计说明书则不会D ．从源程序中不容易看出设计中包含的某些关键问题（ 4 ） A ．直接复制源代码，因为这样可以看请代码的功能和接口方法B ．直接复制源代码，因为这样比较容易修改C ．直接调用目标代码，但要通过源代码说明其功能和接口方法D ．直接调用目标代码，但要有清晰的调用接口（ 5 ） A ．应尽快释放程序所占用的资源B ．应该尽量减少打开和关闭文件的操作C ．程序不应长期保持运行状态D ．程序应当减少循环处理，以免影响其他程序运行试题二一般应用程序都有个主窗口，其中包含一个主菜单。
为了使程序操作简便，定义菜单选项需要注意若干问题。
首先，选项名称应该（ 1 ）；其次，层次数不宜过多，每一层选项数也不宜过多；再者，（ 2 ）。
工具栏包含的按钮可以和菜单选项一一对应，也可以不完全对应，但工具栏中包含的功能项应该在菜单中都能找到。
delphi期末考试题
一、填空题（20分，每题2分）1、一个对象是由三部分组成，分别为：方法、属性和事件所组成。
2、当程序运行时，如果要求窗体中的某个按钮不再显示，可以将该按钮的Visible 属性设置为false即可。
3、Delphi应用程序中项目文件的扩展名是.dpr4、Delphi是基于面向对象技术的，在delphi中，属性表示对象中的数据，方法是对象能够执行的动作，事件是能够引起对象反应的条件。
5、写出下列表达式的值：Trunc（—1.3）+int（1.4）= 0Sqr(3)+strtoint（19）= 283-2<>Int（1.1）= FALSE6、在delphi集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象观察器中的属性窗口直接进行设置。
7、复选框对象是否被选中，是由其checked 属性决定的。
8、delphi中程序与数据库之间进行数据交换一般由多个数据库组件协作完成，如果用户要查询数据库的一条信息，该指令通过界面组件发出，经数据源组件到达数据库组件。
数据库组件利用自身的读写功能，通过数据库连接组件从数据库中取得数据，再经数据源组件送到用户界面组件中显示。
9、delphi中设计应用程序的菜单时，有主菜单和弹出菜单两种菜单，它们各自“standard”页上的一个组件创建，主菜单由MainMenu 组件创建，而弹出菜单用PopupMenu 组件创建窗体中的多页面设计要用到PageControl组件。
10、计时器控件能有规律的以一定时间间隔触发Ontimer 事件，并执行该事件过程中的程序代码。
二、单项选择题（20分，每题2分）1、delphi程序设计的基本特点是（D）A．可视化程序设计 B.代码程序设计C．事件驱动编程 D.A和C2、下列哪个常量说明语句是正确的（D）A．const x := （c<16）; B. const x : 16;C．const x :=16; D. const x = 16;3、编辑框中的文本发生改变时被触发的事件是（B）A．AutoSize B. OnChangeC．SetFocus D. SetFocus4、下列说法正确的是（B）A．组件必须是可视的，这样用户才能看见。
Delphi程序设计试题及答案
一、填空题（20分，每空2分）1、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有一个入口和。
2、现实世界中对象具有自己的状态和行为。
与此相对应，面向对象技术中的对象可以具有自己的和方法。
3、Delphi的一个项目由若干文件组成，其中与窗体文件对应的文件是。
4、在设计阶段，ListBox对象列表框中的内容是通过属性来进行设置的。
5、调用主窗体的方法，可以结束程序。
6、如果要在窗体上设计一个主菜单，首先要建立对象。
7、当Query对象中存储一条Delete语句时，执行该语句需要调用Query的方法。
8、与数学表达式对应的Object Pascal表达式是9、通过Animate对象的属性设置，可以指定系统标准的A VI动画演示。
10、利用对象的LineTo等方法，可以绘制基本图形。
二、单项选择题（20分，每题2分）1、下面哪句话比较准确地定义了Delphi （）。
A．面向对象的可视化的开发环境B．多媒体制作工具C．数据库的客户端开发工具D．高级编程语言2、下面哪个功能键可以调出Delphi 的联机帮助信息（）A．F1键B．F2键C．F3键D．F4键3、“x 是小于10的非负数”的Object Pascal表达式是（）A．0 ≤x < 10 B．(x >=0) AND (x < 10)C．x >= 0, x<10 D．(x >= 0 ) OR (x<10)4、工具栏上的一组按钮如果要构成互斥关系（如“左对齐”、“居中”、“右对齐”），它们的GroupIndex属性正确的设置是（）A．GroupIndex属性值都为0 B．GroupIndex属性值非0，且互不相同C．GroupIndex属性值非0，且相同D．GroupIndex属性值互不相同5、利用Image对象的哪个属性设置，可以使Image对象的显示区域随着调入图像的大小自动调整以显示全图（）A．Stretch B．AutoSizeC．Align D．Center6、现建立一个简单报表，仅包含报表标题栏、数据列标题栏和数据栏，则在Bands属性的子属性中，不需要选择的是（）A．HasColumnHeader B．DetailC．Title D．Summary7、在窗体上建立多页面，需要首先建立的对象是（）A．TabControl B．PageControlC．HeaderControl D．PageScroller8、既可以通过选择输入、又可以直接输入的数据感知控件是（）A．DBRadioGroup B．DBListBoxC．DBComboBox D．DBCheckBox9、如果要求每当光标进入edit编辑框中时，编辑框都清空，可以在哪个事件处理程序中编写代码实现（）A．OnClick B．OnMouseMoveC．OnKeyPress D．OnEnter10、下面哪个组件不是容器组件（）A．Form B．PanelC．GroupBox D．Memo三、判断题（10分，每题1分）请给下列论述中正确的打上“√”，错误的打上“´”1、（）在Delphi环境中，组件页上的组件是“类”而不是“对象”。
Delphi试题含答案
Delphi试题含答案《可视化程序设计》试卷适⽤专业及层次（由出卷教研室填写）：信息管理与信息系统、医学信息⼯程本科姓名：班级：学号：（此试卷共8页，答案请填写在答题纸上，答案填写在试卷上者答题⽆效）⼀、单项选择题(15分，每⼩题1分)1.⼀个Delphi应⽤程序必有⼀个⽂件和⾄少⼀个单元⽂件。
A.程序B.⼯程C.数据D.图形2.在窗体中完成多个控件整齐排列，应使⽤的操作是。
A.AlignB.Bring to frontC.ScaleD.Send to back3.下列不能⽤来定义⼦界类型是。
A.实型数据（Real）B.⽤户定义的任何顺序类型C.字符型（Char）D.整型（Integer）4.在事件处理程序中编写代码，可以处理edit编辑框中输⼊的字符，。
A.OnClickB.OnEnterC.OnMouseUpD.OnKeyPress5.关于变量，全局变量与局部变量名相同时，下列说法错误的是。
A.在过程之外是全局变量作⽤B.过程内部是局部变量作⽤C.在过程之外全局变量⽆作⽤D.在过程之外是全局变量作⽤⽽在内部是局部变量作⽤6.procedure和function的结构和功能相似，。
A.前者可以取代后者B.后者可以取代前者C.但前者有返回值，后者没有D.⼆者都可以返回⼀个值7.动态数组与静态数组的区别是。
A.是否是⼀维数组B.元素类型是否是整型C.定义时是否明确了数组元素的个数D.元素类型是否⼀致8.⽤于建⽴菜单项的加速键的字符是。
A.^B.#C.&D.@9.绘制封闭图形时，要指定填充⾊的颜⾊时，可以设置画布对象的属性。
A. pen.colorB. brush.colorC. pen.styleD. bursh.style10.BDE的中⽂含义是，它是数据库应⽤中的⼀种连接⽅法。
A.数据库连接B.数据库引擎C.数据库⽂件D.开放式数据库11.下列语句中，⽴即中断当前循环继续执⾏下⼀次循环的语句是。
完整的delphi程序设计教程课后习题答案
1.239 页 1 题小时钟procedure TForm1.Timer1Timer(Sender: TObject);varxt,yt:integer;h,m,s,ms:word;begin decodetime(time,h,m,s,ms); xt:=paintbox1.clientwidth div 2; yt:=paintbox1.clientheight div 2; paintbox1.refresh;paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=3; paintbox1.canvas.lineto(xt+round(s in((60*h+m)/(12*60)*2*pi)*100), yt-round(cos((60*h+m)/(12*60)*2*pi)*100));paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=2; paintbox1.canvas.lineto(xt+round(s in(m/60*2*pi)*140), yt-round(cos(m/60*2*pi)*140)); paintbox1.canvas.moveto(xt,yt); paintbox1.canvas.pen.width:=1; paintbox1.canvas.lineto(xt+round(s in(s/60*2*pi)*180), yt-round(cos(s/60*2*pi)*180));end;end.2.239 页 3 题求两点间的距离procedureTForm1.Button1Click(Sender: TObject);beginpaintbox1.Refresh;formpaint(sender);end;procedureTForm1.FormPaint(Sender: TObject);var xt,yt:integer;ax,ay,bx,by:integer;begin xt:=paintbox1.ClientWidth div 2; yt:=paintbox1.Clientheight div 2; paintbox1.canvas.MoveTo(xt,0); paintbox1.canvas.lineTo(xt,2*yt); paintbox1.canvas.MoveTo(0,yt); paintbox1.canvas.lineTo(2*xt,yt); ax:=strtoint(edit1.text); ay:=strtoint(edit2.text);bx:=strtoint(edit3.text);by:=strtoint(edit4.text);edit5.Text:=floattostr(sqrt((ax-bx)* (ax-bx)+(ay-by)*(ay-by)));paintbox1.canvas.MoveTo(xt+ax*10,yt-ay*10);paintbox1.canvas.lineTo(xt+bx*10,yt-by*10);end;end.3.226 页 5 题输入学生成绩varForm1: TForm1; typestudentrecord=recordxh,xm:string[6]; xb:boolean;yy,sx,dz:integer; end;implementation {$R *.dfm} procedureTForm1.Button1Click(Sender:TObject); var t:studentrecord;f,f1:file of studentrecord;p1,p2:boolean; beginassignfile(f,'c:\mydocuments\stu.dat'); reset(f);assignfile(f1,'c:\mydocuments\stu1.dat'); rewrite(f1);while not eof(f) do beginread(f,t);p1:=(t.sx>=85)and(t.yy>=85)and(t.dz>=85);p2:=t.sx+t.yy+t.dz>=270;if p1 or p2 thenwrite(f1,t);end;closefile(f);closefile(f1);end;procedureTForm1.FormCreate(Sender:TObject);var t:studentrecord;f:file of studentrecord;xingbie:string;beginassignfile(f,'c:\mydocuments\stu.dat');reset(f);while not eof(f) dobeginread(f,t);if t.xb thenxingbie:=' 男'elsexingbie:=' 女';listbox1.Items.Add(t.xh+' '+t.xm+''+xingbie+' '+inttostr(t.sx)+' '+inttostr(t.yy)+''+inttostr(t.dz));end;closefile(f);end;procedureTForm1.Button2Click(Sender:TObject);beginclose;end;end.4.226页8题保存获得奖学金者varForm1: TForm1; typestudentrecord=recordxh,xm:string[6]; xb:boolean;yy,sx,dz:integer; end;implementation {$R *.dfm} procedureTForm1.Button1Click(Sender: TObject);var t:studentrecord;f,f1:file of studentrecord;p1,p2:boolean;beginassignfile(f,'c:\mydocuments\stu.dat');reset(f);assignfile(f1,'c:\mydocuments\stu1.dat');rewrite(f1);while not eof(f) dobeginread(f,t);p1:=(t.sx>=85)and(t.yy>=85)and(t. dz>=85);p2:=t.sx+t.yy+t.dz>=270;if p1 or p2 thenwrite(f1,t);end;closefile(f);closefile(f1);end;procedureTForm1.FormCreate(Sender: TObject);var t:studentrecord;f:file of studentrecord;xingbie:string;beginassignfile(f,'c:\mydocuments\stu1.dat');reset(f);while not eof(f) dobeginread(f,t);if t.xb thenxingbie:=' 男'elsexingbie:=' 女';listbox1.Items.Add(t.xh+' '+t.xm+' '+xingbie+' '+inttostr(t.sx)+' '+inttostr(t.yy)+''+inttostr(t.dz));end;closefile(f);end;procedureTForm1.Button2Click(Sender: TObject); begin close; end; end.5.166 页22 题素数procedure TForm1.Button1Click(Sender: TObject);typesushuset=set of byte; varsushu:sushuset;i,j,n,m,k:longword;s,s0:string;beginn:=strtoint(edit1.text);m:=strtoint(edit2.text);if n mod 2=0 then n:=n+1; k:=m-n;if k>255 thenshowmessage(范围太大，请重新输入区间端点!')else begin sushu:=[0..k]; for i:=2to n-1 do for j:=n to m do if j modi sushu:=sushu-[j-n]; for i:=n to mdiv 2 do for j:= i+1 to m do if jmod i sushu:=sushu-[j-n];s:='';s0:='';for i:=n to m do if i-n in sushuthen begin if length(s0+''+inttostr(i))>60 then begins:=s+s0+chr(13);s0:=''end; s0:=s0+' '+inttostr(i);end; s:=s+s0;label1.caption:=s;groupbox1.Top:=(panel1.Top-groupbox1.height) div 2;end;end;procedureTForm1.FormCreate(Sender: TObject);begingroupbox1.Top:=(panel1.Top-groupbox1.height) div 2;end; procedureTForm1.Edit1KeyPress(Sender:TObject; var Key: Char);var j:set of char;beginj:=['0'..'9',#8];if not(key in j) then key:=#0;end;end.6.148 页12 题整除的数implementation{$R *.dfm}function d7(x:integer):boolean;beginif x mod 7=0 then d7:=trueelse d7:=false;end;function d17(x:integer):boolean;beginif x mod 17=0 then d17:=trueelse d17:=false;end;procedureTForm1.FormActivate(Sender:TObject);varn:integer;beginfor n:=1000 to 4000 do if d7(n)andd17(n) thenmemo1.Lines.Add(inttostr(n)); end;end.7.148 页17 题求斐波那契数列问题implementation{$R *.dfm}function fib(n:integer):int64;begincase n of1,2:fib:=1;else fib:=fib(n-1)+fib(n-2);end;end;procedureTForm1.Button1Click(Sender:TObject);var k:integer;beginmemo1.lines.clear;for k:=1 to strtoint(edit1.text) domemo1.lines.add(format('%2d3d',[k,fib(k)]));end;end.8.120页10 题，判断是否是闰年procedureTForm1.Button1Click(Sender:TObject);=0 then=0 thenvary，m:integer;beginy:=strtoint(edit1.text);m:=strtoint(edit2.text);label3.Caption:='';if((y mod 4 = 0) and (y mod 100 <> 0)) or (y mod 400=0) thenlabel3.Caption:=edit1.text+' 年是闰年，'elselabel3.Caption:=edit1.text+' 年不是闰年，';case m of3,4,5:Label3.Caption:=Label3.Capt ion+edit2.Text+' 月份是春天,'; 6,7,8:Label3.Caption:=Label3.Capt ion+edit2.Text+' 月份是夏天,'; 9,10,11:Label3.Caption:=Label3.C aption+edit2.Text+' 月份是秋天,'; elseLabel3.Caption:=Label3.Caption+edit2.Text+' 月份是冬天,';end;case m of1,3,5,7,8,10,12:Label3.Caption:=L abel3.Caption+'共有31 天，：4,6,9,11:Label3.Caption:=Label3.C aption+'共有30 天，： elseif((y mod 4 = 0) and (y mod 100 <> 0) or (y mod 400=0)) thenLabel3.Caption:=Label3.Caption+' 共有29 天，'elseLabel3.Caption:=Label3.Caption+' 共有28 天，';end;end;end.9.120页11 题求和的procedureTForm1.Button1Click(Sender: TObject);var n,k,j:integer; s:int64; begin n:=strtoint(edit1.text);j:=0; s:=0;for k:=1 to n do begin j:=j+k;s:=s+j; end; panel2.Caption:=format('s= %d',[s]);edit1.setfocus; end;procedureTForm1.Edit1KeyPress(Sender:TObject; var Key: Char);var b:boolean; beginb:=(key<>#8)and(key<#48)or(key >#57);if b then key:=#0; end;end.10.120页12 题男人，女人，小孩各有多少人procedureTForm1.Button1Click(Sender:TObject);var x,y,z:integer; p:string;begin memo1.clear; for x:=0 to 16do for y:=0 to 24 do begin z:=30-x-y;if 3*x+2*y+z/1=50 then beginp:=format('%3d %3d %3d',[x,y, z]);memo1.lines.add(p);end;end;end;end.11.98页 2 题求长方体的表面积procedureTForm1.Button1Click(Sender:TObject);vars,l,k,h:double;beginl:=strtofloat(edit1.text);k:=strtofloat(edit2.text);h:=strtofloat(edit3.text);s:=2*l*k+2*k*h+2*l*h;label1.Caption:=floattostr(s);end;end.12.98页5题计算圆的面积和周长procedureTForm1.Edit1KeyPress(Sender:TObject; var Key: Char);var r:real; b:boolean; beginb:=(key<>#8)and(key<>'.')and(key<>#13)and(key<#48)or(key>#57);if b then key:=#0;if key =#13 thenbeginif edit1.text='' thenedit1.text:='0';r:=strtofloat(edit1.text);if radiobutton1.Checked thenlabel1.Caption:=format(' 圆的面积为：%f',[pi*r*r]);if radiobutton2.Checked thenlabel1.Caption:=format(' 圆的周长为：%f',[2*pi*r]);if radiobutton3.Checked thenlabel1.Caption:=format(' 圆的面积为：%f'+chr(13)+ ' 周长为: %f',[pi*r*r,2*pi*r]);edit1.SelectAll;end;end;procedureTForm1.RadioButton1Click(Sender: TObject);varsender0:tobject; key:char;begin sender0:=edit1; key:=#13;form1.edit1keypress(sender0,key);end;procedureTForm1.RadioButton2Click(Sende r:TObject);var sender0:tobject;key:char;beginsender0:=edit1;key:=#13;form1.edit1keypress(sender0,key);end;procedureTForm1.RadioButton3Click(Sende r:TObject);var sender0:tobject; key:char;begin sender0:=edit1; key:=#13;form1.edit1keypress(sender0,key);end;end.13.98页6题统计奇数和偶数的个数procedureTForm1.Button1Click(Sender: TObject);var k,j,n:word;begink:=0;n:=combobox1.items.count;for j:=1to n doif strtoint(combobox1.items[j-1]) mod 2 = 0 thenk:=k+1;label1.caption:=format(' 共有: '+#13+'%d 个偶数，'+#13+'%d 个奇数。
delphi复习题答案版-精品资料
复习题1、在文件操作中Eof的意思是文件结束指针。
2、在Delphi的BDE数据集中通过TDataSouece控件来实现对SQL语言的支持。
3、要想使窗体中的某个控件获得焦点，则需调用SetFocus 方法。
4、MaskEdit是格式文本输入对象，Input Mask Editor属性为它提供了过滤文本的格式。
P645、由于TDBGrid控件和TDBNavigator控件是自动地访问数据集控件中所有可以访问的字段控件的，因此它们没有字段值属性。
P2686、函数format(‘本场%已进了1个球！’,[‘李铁’])返回的字符串为本场李铁已进了1个球!。
7、TEdit控件的MaxLength属性是设置所能接受的最大字符数。
8、想在Button按钮上设置快捷方式，需要在Caption属性中应用符号& 。
9、通过数据库字段对象（例如：Ttalbe部件的字段对象）的TStringField 属性可以读取字段值，并且将它转换成字符串类型。
10、Delphi为用户提供一种Append方法，用来打开一个已经存在的文件以便与在文件末尾添加文本。
11、常量是一种内容不能改变的标识符，常量声明采用保留字const 。
12、Delphi的计时器的Interval属性设置为1000，即是每隔 1 秒会被触发一次。
1、以下正确的枚举类型的定义是（ C ）。
（A）type vowel=(‘a’,’e’,’i’,’t’,’u’) （B）type num=(1..3, 8..10)（C）type color=(red, blue, black) （D）type realtype=(1.5, 2.5, 3.5, 4.5) 2、已知如下子界类型定义及变量声明：Type ntype= -10 .. 10;Varm: ntype;n: integer;问下列语句哪一个可能产生错误：（ B ）。
（A）n := m; （B）m :=n; （C）n := abs(m); （D）n := n+m;3、下列哪些符号哪一个是Delphi6中的合法变量名（ A ）。
Delphi 部分编程题
Delphi部分编程题和答案百元钱买百只鸡varx, y, z : integer;p : string;beginMemo1.Clear;For x := 0 To 19 doFor y := 0 To 33 dobeginz := 100 - x - y;If 5 * x + 3 * y + z / 3 = 100 Thenbeginp := Format('%3d %3d %3d',[x,y,z]);memo1.Lines.Add(p);end;判断一个数是否是素数function PrimeNumber(Source: Integer): boolean;vari: Integer;beginResult := True;for i := 2 to Source - 1 doif Source mod i = 0 thenbeginResult := False;Break;end;end;求出所有的水仙花数。
51页23 vari,j,k,l:Integer;s:String;begins:='水仙花数为：'#13;for i:=100 to 999 dobegin //百位数j:=Trunc(i/100); //十位数k:=i-j*100;k:=Trunc(k/10); //个位数l:=i-j*100-k*10;if i=j*j*j+k*k*k+l*l*l then//是水仙花数s:=s+IntToStr(i)+#13;end;ShowMessage(s);end;求1到100的累加和vari,j:integer;beginj:=1;repeati:=i+j;;j:=j+1;until j>=100;edit1.text:=inttostr(i);end;求阶乘program Project1;{$APPTYPE CONSOLE}usesSysUtils;function fact(m:integer):int64;beginif (m=0) thenbeginfact:=1;exit;endelsefact:=fact(m-1)*m;end;varn:integer;begin{ TODO -oUser -cConsole Main : Insert code here }writeln('请输入n的值(0<n<20):'); readln;if (n<0) thenwrite('输入错误')elsewriteln(n,'的阶乘等于：',fact(n));readln(n);end.斐波那契数列Function F(n:integer):integer;beginif n=1 or n=2 then F=1elseF=F(n-1)+F(n-2);end;Function Sum(n:integer):integer;var i,n:integer;beginn:=0;for i=1 to n do n:=n+F(i);Sum:=n;end;任意输入三个数，由大到小排列var a, b, c, e, f : integer;begina := strtoint(edit1.Text);b := strtoint(edit2.Text);c := StrtoInt(edit3.Text);e := Max(a, b);f := Max(e, c);showmessage(inttostr(f));end;ax2+bx+c=0,解方程Program project1;{$APPTYPE CONSOLE}VAR a,b,c,d:real;s,x1,x2:real;beginwrite(‘请输入系数a,b,c:’);readln(a,b,c);d:=b*b-(4*a*c);s:=sqrt(d);x1:=(-b+s)/(2*a);x2:= (-b-s)/(2*a);writeln(‘x1=‘,x1,’’,’x2=‘,x2);readln; end.。
delphi复习题答案版
复习题1、在文件操作中Eof的意思是文件结束指针。
持。
3、要想使窗体中的某个控件获得焦点，则需调用SetFocus 方法。
文本的格式。
P645、由于TDBGrid控件和TDBNavigator控件是自动地访问数据集控件中所有可6、函数format(‘本场%已进了1个球！’,[‘李铁’])返回的字符串为本场李铁已进了1个球!。
7、TEdit控件的MaxLength属性是设置所能接受的最大字符数。
8、想在Button按钮上设置快捷方式，需要在Caption属性中应用符号& 。
9、通过数据库字段对象（例如：Ttalbe部件的字段对象）的TStringField 属性可以读取字段值，并且将它转换成字符串类型。
10、Delphi为用户提供一种Append方法，用来打开一个已经存在的文件以便与在文件末尾添加文本。
11、常量是一种内容不能改变的标识符，常量声明采用保留字const 。
12、Delphi的计时器的Interval属性设置为1000，即是每隔 1 秒会被触发一次。
1、以下正确的枚举类型的定义是（C ）。
（A）type vowel=(‘a’,’e’,’i’,’t’,’u’) （B）type num=(1..3, 8..10)（C）type color=(red, blue, black) （D）type realtype=(1.5, 2.5, 3.5, 4.5) 2、已知如下子界类型定义及变量声明：Type ntype= -10 .. 10;Varm: ntype;n: integer;问下列语句哪一个可能产生错误：（ B ）。
（A）n := m; （B）m :=n; （C）n := abs(m); （D）n := n+m;3、下列哪些符号哪一个是Delphi6中的合法变量名（A ）。
（A）AB5 （B）0AB （C）Then （D）A[B]8 4、下面哪个是delphi工程文件的扩展名（ B ）。
delphi面试题及答案
delphi面试题及答案1. 什么是Delphi？Delphi是一种面向对象的编程语言，由Borland公司（现属于Embarcadero Technologies）开发。
它基于Pascal语言，并添加了面向对象编程的特性，如类、继承和多态。
Delphi通常用于快速应用程序开发（RAD），并且支持Windows、macOS、iOS、Android和Linux 平台。
2. Delphi中如何定义一个类？在Delphi中，可以使用`class`关键字来定义一个类。
例如：```delphitypeTMyClass = classprivateFValue: Integer;publicconstructor Create;destructor Destroy; override;procedure SetValue(AValue: Integer);function GetValue: Integer;end;```3. Delphi中的事件是什么？事件是Delphi中的一种机制，允许对象在特定操作发生时通知其他对象。
事件可以被绑定到方法上，当事件被触发时，绑定的方法就会被执行。
4. 如何在Delphi中创建一个事件处理器？在Delphi中，创建事件处理器通常涉及两个步骤：定义事件和绑定事件到方法。
例如：```delphitypeTMyForm = class(TForm)privateFOnButtonClick: TNotifyEvent;publicproperty OnButtonClick: TNotifyEvent read FOnButtonClick write FOnButtonClick;end;```然后在代码中，可以这样绑定事件：```delphiButton1.OnClick := MyForm.OnButtonClick;```5. Delphi中如何实现多线程？Delphi提供了几种实现多线程的方法，其中最常用的是使用`TThread`类。
国家开放大学《Delphi程序设计》形考任务阶段测验-参考答案(一)
国家开放大学《Delphi程序设计》形考任务阶段测验-参考答案(一)国家开放大学《Delphi程序设计》形考任务阶段测验-参考答案Delphi程序设计是计算机专业的一门重要课程，在IT行业中应用广泛。
国家开放大学开设了《Delphi程序设计》这门课程，为学生提供了良好的学习平台。
在学习过程中，形考任务阶段测验是必不可少的一部分，下面将给大家介绍这次形考任务阶段测验的参考答案。
一、选择题答案1. D2. A3. C4. B5. A6. D7. A 8. B 9. C10. B二、填空题答案1. Application2. Close3. Delphi4. Pascal5. ShowMessage三、简答题答案1. 程序和软件有什么区别？程序是计算机执行的指令集合，软件是由程序和数据组成的一种应用体系。
简单的说，程序是为了完成某项工作而编写的代码，而软件则是用这些程序为用户提供服务。
2. Delphi的特点是什么？Delphi以易用性，代码生成的高效性和组件化开发的理念而著称，它具备以下特点：（1）拥有优秀的可视化设计界面，能够简单方便的设计出高质量的用户界面；（2）采用Pascal编程语言，是一种结构化、语法简单易懂的编程语言；（3）拥有丰富的组件库，支持快速代码生成，使开发效率高；（4）融合了数据库编程的技术，提供了良好的数据库支持，开发效率更高。
四、编程题答案program sum;uses crt;vara,b:integer;beginclrscr;writeln('请输入两个整数：');readln(a,b);writeln('两数之和为：',a+b);readkey;end.上述程序实现了两个整数的加法运算，并输出结果。
本次形考任务阶段测验涉及选择题、填空题、简答题和编程题，共计四道题目。
通过本文对参考答案的介绍，相信大家对这门课程也有了更深入的了解。
在学习过程中，我们应该扎实地掌握Delphi的基础知识，理解基本概念，熟悉开发工具及相关技术，做好学习笔记和思维导图的整理和总结，这样才能更好地应对考试。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一、单选题1．在RadioGroup 组件中有 4 个单选框，当选中第 2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B ）。
A．0 B．1 C．2 D．32．函数和过程的区别为（ A ）。
A．函数执行后返回一个值，而过程不需返回值 B．过程执行后返回一个值，而函数不需返回值C．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方 D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方3．32 AND 27 的值是（ B ）。
A．59 B．0 C．27 D．324．窗体与数据模块的扩展名是（ B ）。
A．.dcu B．.dfm C．.pas D．.dpr5．Delphi 中用什么函数来析构一个组件（ C ）。
A．Constructor B．Destroy C．Free D．Create6．一个指针变量ptr 的域成员fs 访问的方法是（ C ）。
A．ptr->fs B．ptr.fs C．ptr^fs D．ptr@fs7．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（ D ）。
A．45 B．54 C．48 D．408．Delphi 的所有类都是从什么类继承下来的（ B ）。
A．Tcomponent B．TobjectC．Tstream D．Tnull9．定义构造函数时用到的保留字是（ C ）。
A．Class B．.implementation C．create D．construction10．下列组件中属于可视组件的是哪一个（ D ）。
A．Tdatasource B．Topendialog C．Ttable D．Tscrollbar11．设有过程procedure pro(V AR x,y:integer); 变量a , b 为整型变量，其值分别为5、6，则合法的过程调用语句是（ D ）。
A．Pro(5,6) B．pro(5,b) C．pro(a,6) D．pro(a,b)12．下列组件中不能获取焦点的是（ B ）。
A．Tedit B．Tlabel C．Trichedit D．Ttreeview13．定义抽象类必须使用的指令字是（ A ）。
A．Abstract B．virtual C．dynamic D．override”14．Delphi是哪个公司的产品（ C ）。
A．Microsoft B．IBM C．Borland D．DOM15．窗体上放置有一个TEdit类控件Edit1，当在Edit1中按下‘A’键时触发的事件和事件顺序是（ A ）。
A．OnKeyDown->OnKeyPress->OnKeyUp B．OnKeyDown->OnKeyUpC．OnKeyPress D．OnKeyDown->OnKeyUp->OnKeyPress二、判断题1．Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。
（错）2．所有类都有Name属性。
（错）3．variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。
（错）4．函数MessageDlgPos与MessageDlg极为相似，只是MessageDlgPos函数能够控制信息对话框的出现位置。
（对）5．BitBtn控件可以用来制作一个带图片的按钮，而SpeedButton则不能。
（错）6．MediaPlayer控件的AutoEnable属性是用来控制该控件是否可用。
（错）7．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。
（对）8．Timer组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer事件。
（对）9．Tobject是delphi的基类，系统中的每一个类都是Tobject的子类。
（对）10．在MDI应用程序窗口中，如果将一个窗体设为父穷窗体，要将它的FormStyle属性设为FsStayOnTop。
（错）三、填空题1．用于建立菜单项的下划线快捷方式的字符是 & 。
2．在设计阶段，利用Image对象的 picture 属性，可以加载一幅图片。
3．所有可视化的VCL控件都是从 TControl 基类派生而来的。
4．Delphi有三种控制循环的语句： repeat 语句， while 语句， for 语句。
5．Delphi支持3种类型的注释：{}注释，(* *)注释，//注释。
6．关闭文件需要使用closefile ()函数。
四、简答题1．简述什么是对象和类。
在面向对象的程序分析和设计技术中，“类”就是对具有相同属性和相同操作的一组相似对象的定义。
从另一个角度来看，对象就是类的一个实例。
2．简述程序错误的类型有哪些。
（1）设计期错误（2）编译期错误（3）运行期错误（4）逻辑错误3．根据下列代码，请回答。
Program InfoprocUsesForms,Unit1 in ‘Unit1.pas’{formInfoInput},Unit2 in ‘Unit2.pas’{formInfoShow};{$R *.res}Begin……End.问题1：以上代码是项目/工程文件的组成部分。
问题2：根据以上代码，可知项目文件名是Infoproc ，该项目文件包含2个单元文件，文件名分别是 Unit1 、Unit2 ，它们对应的窗体名是formInfoInpu 、f ormInfoShow 。
五、程序题1．定义一个函数F，其返回值为1~N的和。
(每空2分)（function ）F（n:integer）;Var I,s:integer;BeginFor i:=( 1 ) to ( N )S:=( S+i );( n ):=s;End;2．在窗体上面绘制出一条规则的余弦曲线，使其尺寸约为窗体的80%，写出编程步骤与代码。
Procedure TForm1.FormPaint(sender:Tobject);varx,y:real;j,j,h:integer;beginh:=form1.Height div 2;for i:=0 to form1.Width dobeginx:=i*(2*3.14/form1.Height);y:=cos(x);j:=trunc(0.8*y*h)+h;canvas.Pixels[i,j]:=clRed:end;end;一、单选题1．Delphi 的所有类都是从什么类继承下来的（ B ）。
A．Tcomponent B．TobjectC．Tstream D．Tnull2．定义构造函数时用到的保留字是（ C ）。
A．Class B．.implementation C．create D．construction3．下列组件中属于可视组件的是哪一个（ D ）。
A．Tdatasource B．Topendialog C．Ttable D．Tscrollbar4．设有过程procedure pro(V AR x,y:integer); 变量a,b 为整型变量，其值分别为5、6，则合法的过程调用语句是（ D ）。
A．Pro(5,6) B．pro(5,b) C．pro(a,6) D．pro(a,b)5．下列组件中不能获取焦点的是（ B ）。
A．Tedit B．Tlabel C．Trichedit D．Ttreeview6．定义抽象类必须使用的指令字是（ A ）。
A．Abstract B．virtual C．dynamic D．override”7．Delphi是哪个公司的产品（ C ）。
A．Microsoft B．IBM C．Borland D．DOM8．窗体上放置有一个TEdit类的控件Edit1，并定义了Edit1的OnEnter事件，下面说法正确的是：（C）A．当鼠标在窗体上移动时产生Edit1OnEnter事件 B．其他三项都不对C．当Edit1获得焦点时产生Edit10Enter事件 D．当鼠标移动到Edit1的上面时产生Edit1OnEnter 事件9．在RadioGroup 组件中有 4 个单选框，当选中第 2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B ）。
A．0 B．1 C．2 D．310．函数和过程的区别为（ A ）。
A．函数执行后返回一个值，而过程不需返回值 B．过程执行后返回一个值，而函数不需返回值C．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方 D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方11．32 AND 27 的值是（ B ）。
A．59 B．0 C．27 D．3212．Diskfree(C)是用来返回C盘的剩余空间。
A．1 B．2 C．3 D．413．Delphi 中用什么函数来析构一个组件（ C ）。
A．Constructor B．Destroy C．Free D．Create14．下面的数据类型不属于在Object Pascal语法中的数据类型是（C）。
A．布尔型 B．整型 C．关系型 D．字符型15．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（ D ）。
A．45 B．54 C．48 D．40、二、判断题1．MediaPlayer控件的AutoEnable属性是用来控制该控件是否可用。
（错）2．图形组件没有输入焦点，不能接受用户的输入，它只具有向用户显示的功能。
（对）3．1、Pascal 语言中可以把一个实数赋值给一个整型变量，系统会自动取整。
（错）4．所有类都有Name属性。
（错）5．variant类型的变量被动态赋值为一个特定的数据类型后，不能再赋值为一个其它的数据类型。
（错）6．函数MessageDlgPos与MessageDlg极为相似，只是MessageDlgPos函数能够控制信息对话框的出现位置。
（对）7．BitBtn控件可以用来制作一个带图片的按钮，而SpeedButton则不能。
（错）8．Timer组件常称为“定时器”，它每隔固定的时间间隔可以触发一个OnTimer事件。
（对）9．Tobject是delphi的基类，系统中的每一个类都是Tobject的子类。
（对）10．在MDI应用程序窗口中，如果将一个窗体设为父窗体，要将它的FormStyle属性设为FsStayOnTop。
（错）三、填空题1．用于建立菜单项的下划线快捷方式的字符是 & 。
2．BinBtn组件的kind 属性预定义了一些常用的位图按钮种类。
3．Memo1.Lines.delete( 1 ); 是用来删除TMemo组件的第 2 行。
4．Delphi有三种控制循环的语句： repeat 语句， while 语句， for 语句。