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中内容的语句是（）。

Delphi7应用开发考试模拟题A

11. 下列 TPen 类的哪个属性是用来定义画布上画出的线或像素的光栅操作(ROP)模式:
（）
A、Color
B、Mode
C、Style
D、Width
答案：B
12. 下列关于 TIcon 图标对象描述不正确的是：（） A、TIcon 对象的图标常以.ico 为扩展名保存。 B、TIcon 对象的图标不可以存在于 Delphi 资源文件中。 C、在 Windows 中，TIcon 图标对象有两种典型的图标：大图标和小图标。 D、TIcon 图标对象的图标由两个位图组成。一个是实际要显示的图像，另一个是图标显示时的蒙版。答案：B
32. 除 ListView 组件中指定的栏可以通过 Columns 属性的什么方法？（） A、Add B、Delete C、Assign D、Clear 答案：B
33. 在 Rave 中同时按住哪个键和方向键，用来微调组件的大小？（） A、Alt B、Shift C、Ctrl D、Esc 答案：C
5. Exception 对象的主要方法是 Create 方法，其定义如下，其中常量参数 Msg 的含义是：（） constructor Create(const Msg:string); A、异常对象句柄 B、异常的帮助信息 C、异常对话框的标题
D、错误信息字符串答案：D
6. 关于下述语句执行结果说法正确的是：（） try z := x / y; except on Exception do // 语句 1； on ZeroDivide do // 语句 2； on Eunderflow do // 语句 3； end;
35. 页面设计器下列说法错误的是：（） A、Rave 报表可视化设计的基础就是页面设计器。 B、页面设计器以表格的形式显示，为了在上面添加组件时位置更准确一些。 C、页面设计器是所有设计的工作场所。 D、页面设计器因为不是组件，所以没有属性。答案：D

Delphi程序设计-作业1

Delphi 程序设计－作业1班级）姓名高分数（一）填空题1、Delphi 是基于面向对象技术的。

在Delphi 中，属性表示对象中的数据，方法是对象能够执行的动作，事件是能够引起对象反映的条件。

2、Delphi 应用程序中单元文件的扩展名是 pas ；应用程序中项目文件的扩展名是 dpr 。

3、写出下列表达式的值：Trunc(－1.3)＋Int(1.4) ＝ 0Sqr(3) ＋ StrToInt(‘19’) ＝ 283-2 <> Int(1.1) ＝ FALSE4、与数学表达式 53)(cos 2++xb a 对应的Object Pascal 表达式是 sqr （cos(a+b)）/(3*+x)+5 。

5、对于下面的条件表达式：3 <= x AND x < 0 OR x in [1..10]当x = 3 时，该表达式输出为 True 。

6、在Delphi 集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象观察器中的属性窗口直接进行设置。

（二）单项选择题1、下列变量命名正确的是（ B ）。

A 7ABCB Program7C page@21D program2、设a = True ，b = True ，c = False ，以下表达式值为False 的是（ D ）。

A ．a or b or c B. ( not a or b ) and ( b or c )C. False or not a and b or not cD. not a and not b and (12 in [1..10] )3、Delphi程序设计的基本特点是（D ）。

A．可视化程序设计 B. 代码程序设计C．事件驱动编程 D. A和C4、下列哪个常量说明语句是正确的（D ）。

A. const x := (c < 16);B. const x : 16 ;C. const x := 16 ; D const x = 16 ;5、“x 是小于100的非负数”的Object Pascal表达式是（ C ）。

delphi试题-1

delphi试题-11、“x 是小于100的非负数”的Object Pascal表达式是（）A0 ≤x < 100 B x >= 0, x<100 C (x >=0) AND (x < 100)D (x >= 0 ) OR (x<100)2、在定义常量时，用到的关键字是A ConstB varC typeD begin3、在定义变量时,用到的关键字是A constB varC typeD begin4、如何将a定义成一个字符串类型的变量A var a:integerB var integer aC var a:stringD var string a5. 如何将b定义成一个整数类型的变量A var b:integerB var integer bC var b:stringD var string b6. 如何将a，b定义成实数类型的变量A var a,b:RealB var a,b RealC var a,b=RealD var real a,b7、要想判断两个变量a和b是否相等,应该采用( )运算符A= B := C =: D ==8、表达式30 ＋19 mod 2 的值是（）A 31B 32C 33D 349、表达式30 ＋19 div 2 的值是（）A 37B 49C 39D 4010、把Ｙ＋Ｚ的结果赋给Ｘ的表达式是（）A X=Y+ZB X :=Y+ZC X=(Y+Z)D X:(Y+Z)11、下列运算符中,( )可以用来进行字符串的连接操作A DivB +C xorD <>12、a是一个字符串类型的变量,b也是一个字符串类型的变量,要想实现两者的连接应A a*bB a-bC a+bD a/b13、a是一个浮点类型的变量,b是一个字符串类型的变量,要想实现两者的连接应A a+bB floattoint(a)+bC a+strtofloat(b)D floattostr(a)+b14、delphi中语句可以分为简单语句和复合语句,复合语句包含在()之间A if 和thenB begin和endC case和endD if 和end15、7 mod 8 和8 mod 7的余数分别是A7,1 B 1,7 1,1 D 7,716、窗体的常用属性中,( )属性用来设置窗体的名称,在程序代码中用此名称引用窗体A NameB CaptionC editD Icon17、窗体的常用属性中,( )属性用来指定窗体标题栏中的说明文字A NameB CaptionC editD Icon18、要想设置组件的大小可以通过右键position菜单下的( )命令A positon-alignB positon-sizeC position-scaleD edit19、要想设置组件对齐方式可以通过右键position菜单下的( )命令A positon-alignB positon-sizeC position-scaleD edit20、下列值中不是formstyle属性的可能值的是A fsNormalB fsMIDChildC fsMIDformD fsDeskT op21、如果设置某个可视组件在程序运行时是不可见的,需设置属性( )的值为FalseA EnabledB VisibleC FontD Width22、button按钮组件上要想显示文本，应用（）属性A CaptionB textC editD name23. bitbtn组件通过（）属性来导入delphi指定的默认图形A KindB captionC imagelistD picture24、当radiobutton被选中时，它的checked属性为A TRUEB FALSEC 不确定D 没变化25、( )组件常与编辑框Edit配合使用,作为输入工具,它通过单击上下箭头增加或减少一个数值A ButtonB BitBtnC CheckBoxD UpDown26、标签组件显示的文本是由( )属性控制的.A NameB AlignmentC TextD Caption27、编辑框内的文本信息是通过( )属性控制的.A NameB BorderStyleC TextD SelText28、当编辑框获得输入焦点且用户按下键盘上的某一个键时,触发( )事件A OnChangeB OnEnterC OnExitD OnKeyPress29、写出在memo1中添加一行文本的语句( )A memo1.lines.add( )B memo1.lines.delete( )C memo1.lines.move( )D memo1.add( )30、写出在memo1中插入一行文本的语句( )A memo1.lines.insert( )B memo1.lines.add( )C memo1.lines.move( )D memo1.insert( )31、下列不是文本组件的是（）A LableB editC TextD memo32、要想在memo组件中显示它的内容,采用的是该组件的( )属性A LinesB captionC itemD name33、RadioGroup组件为单选钮分组组件,通过它的()属性设置单选钮的标题A CaptionB textC editD Items34、TabControl组件的( )属性用于编辑TabControl中的选项卡A TabsB textC itemsD edit35、( )组件可以显示一些图形文件A MemoB imageC buttonD listbox36、弹出式菜单需赋予对象的( )属性A PopupMenuC NameD MenuItem37、欲建立下一级菜单,首先选中上一级菜单,然后按( )键A InsertB Shift+ →C Ctrl+InsertD Ctrl+ →38、MainMenu组件的( )属性可打开菜单设计器A NameB ItemsC ImageD Bitmap39、在菜单项中加入分隔条,需要用到菜单项的( )属性A NameB ShortcutC CaptionD ImageList40、在菜单项中加入分隔条,需要在菜单项的Caption中输入一个( )号,然后按回车即可A﹢ B ﹣ C ～D ‖41、为菜单项添加快捷键,需用到该菜单项的( )属性A CaptionB NameC ShortcutD ImageList42、假设要为一个菜单项热键字母是S,则按( )键就可以激活该菜单项A Alt+SB Shift+ SD S43、创建级联菜单,需要选中该菜单项,单击鼠标右键,在弹出的快捷菜单中选择( )命令A DeleteB InsertC Creat SubmenuD Select Menu44、）菜单是通过单击鼠标右键激活的，它必须和某个对象相关联，才能正常工作A主菜单 B 快捷菜单 C 级联菜单 D 子菜单45、若快捷菜单的AutoPopup属性设置为False,则需要（）方法在指定的位置弹出菜单A PopupB ShowC HideD Shortcut46、通过PopupMain组件可以创建( )A快捷菜单 B 工具栏 C 状态栏 D 主菜单47、下列函数或过程中，（）可以用来接收用户输入的信息A ShowMessage过程B ShowMessageFmt过程C MessageDlg函数D InputBox函数48、下列函数或过程中，（）可以控制对话框出现的位置A ShowMessage过程B ShowMessageFmt过程C ShowMessagePos过程D MessageDlg函数49、( )允许用户查找信息并进行替换A TFindDialogB TReplaceDialogC TFontDialogD TOpenDialog49、Opendialog的（）属性用于设置对话框的标题A NameB CaptionC TitleD Items50、（）组件用于打开“字体”对话框A FontDialogB ReplaceDialogC ColorDialogD SaveDialog51、( )方法用于打开“打开”对话框和“另存为”对话框A ExecuteB InsertC DeleteD Show52、控制窗体的方法中，（）方法将窗体设置为模态方式A ShowModalB ShowC HideD Close53、窗体的释放可以通过（）方法来实现A FreeB CloseC StopD hide54、利用窗体的（）属性也可以实现窗体的显示和隐藏A VisibleB WidthC EnabledD Font55、控制窗体的方法中,( )方法用于将窗体隐藏起来A FreeB CloseC HideD Show56、函数由()关键字引出A ProchureB functionC procdureD func57、下面那个不是转移语句（）A GotoB breakC continueD while58、下面（）不是Delphi的时间函数A DateB roundC timeD now59、下面（）不是Delphi组件的属性（）A FontB widthC clickD text60、Image组件用来显示一张图片，这些图片可以来自硬盘的图形文件，其中不包括（）A位图文件（BMP）B图标文件（ICO）C JPG文件D 图像文件（GIF）61、标准对话框的打开使用（）A OpenB executeC useD on62、用于建立菜单项的下划线快捷方式的字符是A ^B #C &D @63、已知a、b、c、d是同类型的简单变量，而且已有互不相同的值，执行下列语句：b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是（）A a,cB a,dC c,bD b,a64、以下语句的循环执行次数是（）x:=37; y:=3while y<=x do y:=y+yA 3B 4C 5D 665、程序For I:=1 to 5 dofor j:=2 to I dowriteln(\'*\');输出的\'*\'个数为（）A5 B 10 C 15 D 2066、已知V ar a:array[1..10] of integer;k,I:integer;程序段：k:=1;for I:=1 to 10 doif a[i]>a[k] thenk:=I;writeln(a[k]);执行后输出的是( )A数组中的平均值 B 数组中的最大值 C 数组中的最小值D数组中的总和67、为让控件显示弹出式提示框文字，需用到控件的（）属性A HandleB HintC ShowHintD Showing68、发生在鼠标左键单击控件时的事件是（）A OnMouseDownB OnMouseUpC OnClickD OnDbClick69、能够删除edit1中内容的语句是（）。

Delphi模拟题

Delphi模拟题一、选择题1. 用户开发程序时需要经常在窗体、代码编辑窗口和属性窗口之间来回切换，可使用快捷键（A ）。

A、F12和F11B、F12和F13C、F12和Ctrl+F12D、F12和Alt+F122. 某函数如下：Function check(n,k:Integer):Integer;Var m:Integer;BeginRepeatm:=n mod 10;n:=n div 10;k:=k-1Until k=0;Check:=mEnd;若调用语句y:=check(3725,3),运行后y值为：（ A ）A、7B、5C、2D、03. 以下那个组件不可以由用户输入编辑文本（）A、TEditB、T comboBoxC、TMaskEditD、Tlabel4. Delphi没有用到的文件类型有（A ）A、.frmB、.pasC、.dfmD、.dpr5. Query组件没有T able组件那样的( B )属性。

A、DataSourceB、TableNameC、FilteredD、Database6. 调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行，可通过（B ）菜单项进行。

A、RunB、Step OverC、Trace IntoD、Run to Cursor7. 设a是布尔变量，其它是整型变量，下面正确的赋值语句是(A )A、x:=y div 7B、x:=y:=z+1C、x+y:=zD、x+y=a8. 表达式round(4.2) mod trunc(2.8)的值是（）A、0B、1C、2D、39. 下列常量定义合法的是（A ）A、CONST width=7;B、CONST case='7';C、CONST 1A=7.9;D、CONST century=year div 100;10. 以下运算符中运算优先级最高的是（D ）A、+B、ORC、>=D、DIV11. 已知a、b、c、d是同类型的简单变量，而且已有互不相同的值，执行下列语句：b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是（A ）A、a,cB、a,dC、c,bD、b,a12. 已知有说明Var x:real;下列程序段中的错误为：（）case x<=2.0 of0: x:=0;1: x:=1endA、case表达式中有常数B、case常量和case表达式类型不一样C、赋值语句两边类型不一致D、case表达式为关系表达式13. 以下语句的循环执行次数是（ A ）x:=37; y:=3while y<=x do y:=y+y；A、3B、4C、5D、614. 程序for I:=1 to 5 dofor j:=2 to I dowriteln('*');输出的'*'个数为（B ）A、5B、10C、15D、2515．下列函数或过程声明错误的是（）A function myFun（var name:string）B procedure myproc(const name,age:string)C function myFun(const name:string)D procedure myproc(age:string ;name:string='hello world')16. 已知函数如下：function f(n:integer):integer;beginif n=0 then f:=0else if n>0 then f:=f(n-2)else f:=f(n+3)end;则调用f(5)的值是(A )A、0B、1C、-1D、-217. 下列类型中合法的是（）A、TYPE a=10..10;B、TYPE b=10..5;C、TYPE c=0..SQRT(10);D、TYPE d=10.0..20.0;18. 已知Var a:array[1..10] of integer; k,I:integer;程序段：k:=1;for I:=1 to 10 doif a[i]>a[k] thenk:=I;writeln(a[k]);执行后输出的是( B)A、数组中的平均值B、数组中的最大值C、数组中的最小值D、数组中的总和19. 下列值中不是FormStyle属性的可能值的是（）A、fsNormalB、fsMDIChildC、fsMDIFormD、fsStayOnDesk20. Delphi中取值范围0到255的数据类型是（ B ）A、ShortIntB、ByteC、SmallIntD、Real21. 以下关于事件的说法不正确的是（C ）A、不一定要响应某个组件所定义的所有事件B、根据需要可以响应任何组件的事件C、单击Inspector中的Object 事件处理程序名，Code Editor 将自动进入该事件的代码段。

Delphi试题

一、选择题（每题2分，共20分）1、下面关于数据集BookMark的说法那个是正确的？（）A．BookMark类型的变量是一个对象指针，需要用BookMark Create来建立BookMark，用BookMark.free来释放B．BookMark本质上是一条记录类型，无须建立和释放C．Delphi中，一个数据集组件只能建立一个书签BookMark2、设n为整型变量，且已赋值为1898，表达式(n mod 100) div 10表示：( )A．分离出个位数字B．分离出十位数字C．分离出百位数字D．分离出千位数字3、以下不合法的数组是：（）A．arr:Array of Class B．arr:Array of TButton C．arr:Array of byte D．arr:Array of string4、下列关于dfm文件的一些说明哪个是正确的？（）A．dfm文件中包含了对应Pascal单元文件的编译后中间代码B．dfm文件是文本文件，用于保存编译器需要用到的Pascal文件的符号表C．dfm文件保存着一个窗体和窗体拥有的对象的Published属性D．dfm文件是编译时产生的符号表，是为了使优化提高编译速度而产生的。

5、能够删除edit1中内容的语句是（）。

A．edit1.Clear；B．edit1. Focused；C．edit1.Text= null；D．edit1.text :='\0'；6、下列哪种变量类型不能作为For循环中的循环变量？（）A．字符B．枚举C．子界D．实数7、以下的选项中符合执行SQL语句的是（）A．Add B．Open C．Close D．Clear8、Table 控件操作时，方法（）满足表尾添加记录A．Insert B．Append C．Delete D．Post9、Timer控件的常用事件是（ D ），当此控件跨过时间间隔时发生。

A．Ontimer B．post C ．Append D．Interval10、如果只能显示不能更改数据表中的数据，需要更改DBGrid控件的（ C ）属性。

Delphi程序设计-作业2

Delphi程序设计－作业2班级姓名分数（一）填空题1、当程序运行时，如果要求窗体中的某个按钮不再显示，可以将该按钮的Visible 属性设置为false 即可2、复选框对象是否被选中，是由其checked 属性决定的。

3、Delphi 程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。

如果用户要查询数据库中的一条信息，该指令通过界面组件发出，经数据源组件到达数据集组件。

数据集组件利用自身的读写功能，通过组件与数据库建立连接从数据库中取得数据。

再经组件送到用户界面组件中显示。

4、Delphi中设计应用程序的菜单时，有主菜单和弹出菜单两种菜单，它们各自“Standard”页上的一个组件创建。

主菜单由mainmenu 组件创建；而弹出菜单用popupmenu 组件创建。

窗体中的多页面设计要用到pagecontrol 组件。

5、计时器控件能有规律的以一定时间间隔触发OmTimer 事件，并执行该事件过程中的程序代码。

6、要使ListBox支持多项选择，则应设置Multiselect 属性的值。

7、在只有一个显示区域的状态条组件上显示的文本内容，需要将其Simpletext 属性设置为该文本的内容。

8、Image组件可通过设置其Autosize 属性为True使之根据图像自动调整大小；而通过设置其Stretch 属性为True，使其加载的图片能自动调整大小以适应Image。

9、执行下面程序段后x := 5 ;FOR K := 1 TO 3 DOX := X + K ;结果K= 4 X = 1110、使用窗体的ShowModal 方法可以将一个窗体作为一个模式窗体（modal form）来打开。

（二）单项选择题1、编辑框中的文本发生改变时被触发的事件是（B ）A．AutoSize B．OnChange C．SetFocus D．SetFocus2、下列说法正确的是（ B ）A．组件必须是可视的，这样用户才能使用。

delphi复习题

复习题1、在文件操作中Eof的意思是。

2、在Delphi的BDE数据集中通过控件来实现对SQL语言的支持。

3、要想使窗体中的某个控件获得焦点，则需调用方法。

4、MaskEdit是格式文本输入对象，属性为它提供了过滤文本的格式。

5、由于TDBGrid控件和TDBNavigator控件是自动地访问数据集控件中所有可以访问的字段控件的，因此它们没有属性。

6、函数format(‘本场%已进了1个球！’,[‘李铁’])返回的字符串为。

7、TEdit控件的MaxLength属性是设置。

8、想在Button按钮上设置快捷方式，需要在Caption属性中应用符号。

9、通过数据库字段对象（例如：Ttalbe部件的字段对象）的属性可以读取字段值，并且将它转换成字符串类型。

10、Delphi为用户提供一种Append方法，用来。

11、常量是一种内容不能改变的标识符，常量声明采用保留字。

12、Delphi的计时器的Interval属性设置为1000，即是每隔秒会被触发一次。

1、以下正确的枚举类型的定义是（）。

（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;问下列语句哪一个可能产生错误：（）。

（A）n := m; （B）m :=n; （C）n := abs(m); （D）n := n+m;3、下列哪些符号哪一个是Delphi6中的合法变量名（）。

（A）AB5 （B）0AB （C）Then （D）A[B]8 4、下面哪个是delphi工程文件的扩展名（）。

（A）.pas （B）.dpr （C）.cfg （D）.dfm 5、Memo控件的Align属性用于调整该对象在窗口中的对齐方式，当需要该控件顶部对齐时，其值可以设置为（）。

DELPHI语法练习题

DELPHI 语法练习题1.写一个函数，完成以下计算：y=2.输入一个数字(0~6),用中英文显示星期几3.若基本工资大于等于3000元，增加工资10%；若小于3000元大于等于2000元，则增加工资15%；若小于2000元则增加工资20%。

写一个函数，要求根据用户输入的基本工资，计算出增加后的工资。

4.写个函数，设计程序，求S=1+(1+2)+(1+2+3)+ ······ + (1+2+3+······+n)的值。

5.写一个小的计算器程序，要求能满足＋－×÷四项基本运算(暂不考虑括号，有兴趣者可考虑进去)。

6.写一个EXE程序，要求实现闹钟功能，并显示当前日期及动态时间。

感兴趣的再做第二个。

一、二、7.在一个组合框中输入一批整数，统计其中的偶数个数和基数个数。

8.体育彩票选号程序某体育彩票由6个基本号和一个特别号码组成。

基本号码一次组成一个小于1000000的非负整数，二特别号码则是由一个小于5的非负整数。

利用随机函数产生7个号码以供购买彩票时的参考。

要求：每次产生的号码一定不和上一次的重复。

9.验证哥德巴赫猜想1742年6月，德国数学家哥德巴赫在给彼得堡的大数学家欧拉的信中提出一个问题：“任何大于6的偶数均可以表示为两个素数之和吗？”欧拉复信道：“是的，的确可以！但我还不能证明。

”请编写程序，输入数字，验证其正确性。

10.写程序SHOW出9×9乘法表。

11.已知递归函数：f(m)=写出递归的自定义函数。

12.编写函数，用如下公式求π的近似值。

一套Delphi的笔试题二

一套Delphi的笔试题二二.是非题（共20道）1.从主菜单上选择Project|Syntax Check 菜单选项，Delphi将编译从上次编译后有改动的任何单元，并报出遇到的错误。

（）2.Delphi的VCL对象有些是指针，从堆栈中分配空间，有些则不是。

（）3.粘贴时，如果作为容器的组件已被选择，剪贴板中的组件会当作容器组件的子组件来粘贴（）4.在由Delphi 管理的窗体类声明段中加进任何代码都会引起程序出错。

（）5.Delphi可以在一个报表中使用一个以上的明细区( )6.Delphi可以象其它开发工具一样使用传统的资源，比如菜单可以作为资源加载，以利于实现多国语言环境。

( )7.创建组件时可以定义属性的缺省值，但字符串属性不能有缺省值。

( )8.声明一个常量后，在程序中则不可以改变这个常量的值。

( )9.构造子必须通过类的一个有效实例来激活。

( )10.在设计阶段Object Inspector显示被选组件的所有属性。

( )11.在Delphi IDE中，按住Shift键，同时单击Components Palette上的组件图标，可以在窗体内放置多个同类组件。

（）12.为减少编程中的错误，用户可以使用Delphi提供的系统函数IsValidIdent检验字符串是否合法。

（）13.用户如果不在一个完整的事件响应过程添加任何代码，当保存或编译该项目时，该过程将被自动清除。

（）14.使用Runtime Packages技术可以将原先独立的可执行文件分解为动态链接库加上小的可执行文件，这样作的好处是所占磁盘空间比一个独立的可执行文件小。

( )15.Delphi和VB一样不能产生真正的可执行代码（本机代码），但是Delphi开发的程序比VB的运行速度快。

( )16.大多数组件的属性可以在运行时改变，而且，有些只能在运行时刻改变。

（）17.对于用户的Delphi工程中创建的窗体及其组件的属性都保存在一个独立的描述文件，即扩展名为DSK 的文件中。

Delphi程序设计试题一及答案

Delphi 程序设计试题一及答案一、填空题（20分，每空2分）1、现实世界中对象具有自己的状态和行为。

对应着，面向对象技术中的对象可以具有自己的属性和。

2、Delphi 应用程序中项目文件的扩展名是。

3、结构化程序设计要求程序中仅采用顺序、分支和循环三种控制结构，其中每种结构只能有和一个出口。

4、在Delphi 集成开发环境中，如果想要直接设置或者修改对象的属性，可以通过对象查看器（Object Inspector ）中的窗口直接进行设置。

5、ListBox 对象列表框中的内容是通过属性来进行设置的。

6、时钟组件(Timer)能有规律的以一定时间间隔触发事件。

7、如果让界面上的一个按钮变为不可用，需要将它的属性设为False 。

8、Image 组件可通过设置其属性为True 使Image 组件根据图像的大小自动调整显示窗口大小。

9、Delphi 的一个项目由若干文件组成，其中文件名后缀含有“~”的文件为。

10、与数学表达式 53)(cos 2++xb a 对应的Object Pascal 表达式是二、单项选择题（30分，每题3分）1、Delphi 程序设计的基本特点是（）。

A ．可视化程序设计B ．代码程序设计C ．事件驱动编程D ． A 和C2、修改窗体的标题时，应当设置form 的属性是（）。

A ．CaptionB ． NameC ． TextD ． Label3、下列哪个常量说明语句是正确的（）。

A. const x := (c < 16);B. const x : 16 ;C. const x := 16 ; D const x = 16 ;4、“x 是小于100的非负数”的Object Pascal表达式是（）。

A．0 ≤x < 100 B．x >= 0, x<100C．(x >=0) AND (x < 100)D．(x >= 0 ) OR (x<100)5、编辑框（Edit）中的文本发生改变时引发的事件是（）。

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界面介绍及练习

c.添加四个按钮（button）分别设置它们的显示文字（caption 中） d.添加一个显示结果的文本框把它的readonly设为true这样这个文本框的文字就不能由我们自己修改。
3.设置每个按钮完成的工作例如加法：我们要把第一个文本框和第二个文本框的数据加起来再显示在第三个文本框中，所以加法按钮要完成的工作需要由代码来做，双击加法按钮这样就转到了这个按钮的代码添加区，写入代码： edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text )); 因为edit1.text或edit2.text得到的都是字符串所以不能直接做加法，要先把它们转化成小数的数据类型因此我们用 strtofloat这个函数转化，加出来以后是小数型的所以把它在转化成字符串赋给edit3.text 减法、乘法、除法以此为例来做 4.最后形成一个可执行文件我们只要点击运行箭头就完成了工作，如果有错再回到变成界面中进行修改。
Delphi的集成开发环境
• 1．主菜单主菜单及其下拉菜单提供了Delphi 7集成开发环境的所有功能。Delphi 7主菜单除包括通常Windows应用程序都具有的File、Edit、View、Window及Help等菜单项外，还有与Delphi 7工程、运行及配置等相关的菜单项。 • 2.快捷工具栏(Speed ToolBar) 快捷工具栏位于Delphi 7主窗口的左下方它提供了与主菜单的常用菜单项相对应的命令按钮，可以在不打开主菜单的情况下快速执行这些功能。
c.界面大小最好不可调节，所以将boederstyle设为bssingle。 d.其他caption为窗体左上角的显示，name为窗体名称， font为窗体中文字的设置。 2.然后我们对窗体中的组件进行设计 a.这个界面中的文字显示为standard中的label，用鼠标选中后放开然后在窗体相应位置点击鼠标左键这样一个文字显示的组件就添加好了，在属性框caption中修改它显示的文字，在font中修改它的文字样式。 b.添加两个文本框（edit），在属性框中找到text项目删除掉里面的文字这样就把文本框中的文字删掉了，由于这里我们做的是数字相加，所以不能允许填入字母或汉字及符号，所以在事件框中找到onkeypress在空白处双击填入：

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试题51道

Delphi试题51道1.dbE某pre组件访问数据库是通过哪种方式与特定的数据库连接的？（C）A.BDEB.其他三项都不是C.DbE某pre自己的数据库连接DLLD.ODBC2.在try语句中使用多个e某cept语句可以处理多个不同的异常情况。

（A）A.错误B.正确3.DWORD，UINT，HReult以及WinAPI函数中各种Handle等于Delphi6中的哪种数据类型？（A）A.LongWordB.UnignedIntC.LongIntD.Word4.窗体上放置有一个TPanel类的控件Panel1，并定义了Panel1的OnEnter事件，下面说法正确的是：（C）A.当鼠标移动到Panel1上面时产生Panel1OnEnter事件B.其他三项都不对C.当Panel1获得焦点时产生Panel1OnEnter事件D.当鼠标在窗体上移动时产生Panel1OnEnter事件5.下面关于数据集BookMark的说法那个是正确的？（A）A.BookMark类型的变量是一个对象指针，需要用BookMarkCreate来建立BookMark，用BookMark.free来释放B.BookMark本质上是一条记录类型，无须建立和释放C.Delphi中，一个数据集组件只能建立一个书签BookMark6.所有类都有Name属性（A）A.错误B.正确7.一个Delphi窗体Form1中包含了一个Tbutton类的Button1控件，下面代码，将产生怎样的结果？（D）……Tform1.button1Click(Sender);beginSelf.Caption:=elf;Self.Color:=ClBlue;Event某(Sender);end;Tform1.Event某(Sender:TObject);beginSender.Tag:=10;end;A.窗体的标题为Self，颜色为蓝色，窗体的Tag属性等于10B.Button1的标题为Self，颜色为蓝色，Tag属性等于10C.Button1的标题为Self，颜色为蓝色，窗体的Tag属性等于10D.窗体的标题为Self，颜色为蓝色，Button的Tag属性等于108.在多个应用程序访问同一个DLL时，下面关于DLL中使用全局变量的说法哪个是正确的？（C）A.每个应用程序都各自使用在他自己的进程空间内复制的一份该全局变量B.全局变量在DLL中是不允许使用的C.每个应用程序访问的是同一个全局变量，该全局变量的有引用计数。

Delphi考评习题02

1、Delphi基础编程（1）从键盘输入2个正整数m和n，求它们的最大公约数（可使用函数实现）。

（2）从键盘输入1个正整数m,p(n,m)=n*(n-1)(n-2) *…*(n-m+1).（3）在文本框内输入一个数，转换成2，8，10，16进制的数2、Delphi的窗体设计（1）在名称为Form1的窗体上放置一个编辑框，名称为Edit1；再放置一个滚动条，名称为SCR1，其刻度值的范围是500-1000；再画一个命令按钮，名称为B1，caption为“改变”。

要求运行时在文本框中输入一个整数，单击“改变”按钮后，如果输入的是正数，滚动条中的滚动框向右移动与该数相等的刻度，但如果超过了滚动条的最大刻度，则不移动，并且用消息框显示“编辑框中的数值太大”；如果输入的是负数，滚动条中的滚动框向左移动与该数相等的刻度，但如果超过了滚动条的最小刻度，则不移动，并且用消息框显示“编辑框中的数值太小”。

同时在form1上再放置一个名称为edit2的编辑框，编辑框中显示滚动条的值。

运行时的窗体如图所示。

（2）一个名称为form1的窗体，其caption设置为“文字移动”；在form1上放置一个label 控件，label上显示“现在的时间是：XXX”，时间根据系统时间确定；在窗体上放置一个timer 控件；label标签每隔0.5秒向右移动一次，如下图所示。

（3）在名称为Form1的窗体上放置一个编辑框，名称分别为Edit1；放置一个颜色设置和一个字形设置的groupbox控件；放置一个listbox控件，控件加入各种字形；最后再放置一个combobox控件，combobox中加入各种字号；根据所选定的字形、字体、字号和颜色，改变edit1中的文字，如下图所示。

（4）在名称为Form1的窗体上放置一个label控件，form1的caption为“显示与隐藏”，label 的caption为“显示与隐藏的实现”；在form1上再放置两个button控件，分别命名为showbtn(其caption为“显示”)、hidebtn（其caption为“隐藏”）。

完整的delphi程序设计教程课后习题答案

1.239页1题小时钟procedureTForm1.Timer1Timer(Sender: TObject);varxt,yt:integer;h,m,s,ms:word;begindecodetime(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);varxt,yt:integer;ax,ay,bx,by:integer;beginxt:=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) 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\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);beginclose;end;end.5.166页22题素数procedureTForm1.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('范围太大，请重新输入区间端点!')elsebeginsushu:=[0..k];for i:=2 to n-1 dofor j:=n to m doif j mod i =0 thensushu:=sushu-[j-n];for i:=n to m div 2 dofor j:= i+1 to m doif j mod i =0 thensushu:=sushu-[j-n];s:='';s0:='';for i:=n to m doif i-n in sushu thenbeginif length(s0+' '+inttostr(i))>60 thenbegins:=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 doif d7(n)and d17(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;elsefib:=fib(n-1)+fib(n-2);end;end;procedureTForm1.Button1Click(Sender: TObject);vark:integer;beginmemo1.lines.clear;for k:=1 to strtoint(edit1.text) do memo1.lines.add(format('%2d % 3d',[k,fib(k)]));end;end.8.120页10题，判断是否是闰年procedureTForm1.Button1Click(Sender: TObject);vary,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) then label3.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+e dit2.Text+'月份是冬天,';end;case m of1,3,5,7,8,10,12:Label3.Caption:=Label3.Caption+'共有31天,';4,6,9,11:Label3.Caption:=Label3.Caption+'共有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);varn,k,j:integer;s:int64;beginn:=strtoint(edit1.text);j:=0;s:=0;for k:=1 to n dobeginj:=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);varx,y,z:integer;p:string;beginmemo1.clear;for x:=0 to 16 dofor y:=0 to 24 dobeginz:=30-x-y;if 3*x+2*y+z/1=50 thenbeginp:=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);varr: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='' then edit1.text:='0'; r:=strtofloat(edit1.text);if radiobutton1.Checked then label1.Caption:=format('圆的面积为：%f',[pi*r*r]);if radiobutton2.Checked then label1.Caption:=format('圆的周长为：%f',[2*pi*r]);if radiobutton3.Checked then label1.Caption:=format('圆的面积为：%f'+chr(13)+ '周长为: %f',[pi*r*r,2*pi*r]);edit1.SelectAll;end;end;procedureTForm1.RadioButton1Click(Sende r: TObject);varsender0:tobject;key:char;beginsender0:=edit1;key:=#13;form1.edit1keypress(sender0,key); end;procedureTForm1.RadioButton2Click(Sende r: TObject);varsender0:tobject;key:char;beginsender0:=edit1;key:=#13;form1.edit1keypress(sender0,key); end;procedureTForm1.RadioButton3Click(Sende r: TObject);varsender0:tobject;key:char; beginsender0:=edit1;key:=#13;form1.edit1keypress(sender0,key);end;end.13.98页6题统计奇数和偶数的个数procedureTForm1.Button1Click(Sender:TObject);vark,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的笔试题一

一套Delphi的笔试题一一.选择题（共40道）1.用户开发程序时需要经常在窗体和编辑器窗口之间来回切换，可使用快捷键（）。

A、F12和F11B、F12和F13C、F12和Ctrl+F12D、F12和Alt+F12E、F12和Shift+F122.某函数如下：Function check(n,k:Integer):Integer;Var m:Integer;BeginRepeatm:=n mod 10;n:=n div 10;K:=k-1Until k=0;Check:=mEnd;若调用语句y:=check(3725,3),运行后y值为：（）A、7B、5C、2D、03.以下那个组件不可以由用户输入编辑文本（）A、TEditB、TcomboBoxC、TMaskEditD、TlabelE、TStringGrid4.一个对象类可以继承和直接使用它的父类的所有成员，除了：（）A、public域B、private域C、protected域和private域D、protected 域和方法E、private域和方法5.Delph没有用到的文件类型有（）。

A、.frmB、.pasC、.dfmD、.dprE、.res6.Shape组件位于（）组件板上。

A、standardB、additionalC、data controlsD、systemE、samples7.Query组件没有Table组件那样的( )属性。

A、DataSourceB、TableNameC、FilteredD、DatabaseE、UpdateObject8.下面关于属性的论述正确的是（）。

A、属性能实现write方法B、属性能实现read方法C、属性可以只读或只写D、属性可以公开或非公开E、属性不能直接存取9.调试程序时，需要执行执行点所在的源代码行，并停留在下一个源代码行。

可通过（）菜单项进行。

A、RunB、Step OverC、Trace IntoD、Trace To Next Source LineE、Run to Cursor10.设a是布尔变量，其它是整型变量，下面正确的赋值语句是( )A、x=y div 7B、x:=y:=z+1C、a:=x=y mod zD、x+y:=zE、x+y=a11.表达式round(4.2) mod trunc(2.8)的值是（）A、0B、1C、2D、3E、412.下列常量定义合法的是（）A、CONST width=7;B、CONST case=’7′;C、CONST 1A=7.9;D、CONST century=year div 100;E、CONST 57;13.以下运算符中运算优先级最高的是（）A、+B、ORC、>=D、DIVE、-14.已知a、b、c、d 是同类型的简单变量，而且已有互不相同的值，执行下列语句：b:=a; a:=c; d:=a; d:=b; 后，其值相等的变量是（）A、a,cB、a,dC、c,bD、b,aE、无法确定15.已知有说明Var x:real;下列程序段中的错误为：（）case x0 then f:=f(n-2)else f:=f(n+3)end;则调用f(5)的值是( )A、0B、1C、-1D、-2E、220.下列类型中合法的是（）A、TYPE a=10..10;B、TYPE b=10..5;C、TYPE c=0..SQRT(10);D、TYPE d=10.0..20.0;E、TYPE e=random(9)..121.下列类型的变量中，不能用write语言直接输出的变量是（）A、布尔型变量B、枚举型变量C、整型变量D、字符型变量E、长整型变量22.假定y是集合变量，变量x的类型与y的基类型相同，则下列表达式错误的是( )A、[x] in yB、y-[x]C、[x]+[ ]*yD、ya[k] thenk:=I;writeln(a[k]);执行后输出的是( )A、数组中的平均值B、数组中的最大值C、数组中的最小值D、数组中的总和E、无法确定26.已知Var f:file of integer;则f所代表的文件是（）A、ASCII码文件B、二进制文件C、文本文件D、存放整数的文本文件E、HTML文件27.在VCL中（）是TDBListBox 的父类A、TCustomListBoxB、TListBoxC、TDBDatasetD、TDatabaseE、TDBEdit28.为让控件显示弹出式提示框文字，需用到控件的（）属性A、HandleB、HintC、ShowHintD、ShowingE、Visible29.发生在鼠标左键单击控件时的事件是（）A、OnMouseDownB、OnMouseUpC、OnClickD、OnDbClickE、OnEnter30.下列值中不是FormStyle属性的可能值的是（）A、fsNormalB、fsMIDChildC、fsMIDFormD、fsStayOnTopE、fsDeskTop31.（）是Delphi包含的文件管理子例程A、Append 和insertB、Append和MkDirC、FileClose和insertD、MkDir和insertE、GetDir和insert32.( )是与DDE有关的组件A、DdeServerConv/DdeClientConv/DdeServerItem/DdeClientIte mB、DdeServer/DdeClientC、DdeConv/DdeItemD、DdeConv/DdeServerItemE、DdeServer/DdeClient/DdeServerItem/DdeClientItem33.使用Delphi多线程的优点是（）A、程序运行速度加快B、不需要考虑同步访问共享资源与内存C、程序编写更简单D、可以在后台运行线程E、不会是Windows出错34.有多种方法可以在OLE文档接收器中放置对象，但不包括（）A、使用特定的菜单命令嵌入对象B、从剪贴板粘贴对象，来建立新嵌入对象C、从剪贴板粘贴－链接对象，来建立新嵌入对象D、由服务器生成的文件中建立新对象。