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

二、填空题。

（每空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考试试题及答案一、单选题（每题2分，共20分）1. Delphi中，以下哪个是正确的布尔型常量？A. TrueB. FalseC. YesD. No答案：A2. 在Delphi中，以下哪个关键字用于声明一个过程？A. FunctionB. ProcedureC. MethodD. Class答案：B3. Delphi中，以下哪个不是合法的变量名？A. myVarB. _myVarC. 2myVarD. myVar2答案：C4. 在Delphi中，以下哪个是正确的数组声明？A. var myArray: array[1..10] of Integer;B. var myArray: array[10..1] of Integer;C. var myArray: array[1..10] of String;D. var myArray: array of Integer;答案：A5. Delphi中，以下哪个是正确的字符串声明？A. var myString: String;B. var myString: AnsiString;C. var myString: WideString;D. var myString: ShortString;答案：A6. 在Delphi中，以下哪个是正确的条件语句？A. if condition thenbegin// codeend;B. case condition of1: begin // code end;2: begin // code end;end;C. if condition then// codeD. switch conditioncase 1: // code答案：A7. Delphi中，以下哪个是正确的循环语句？A. repeat// codeuntil condition;B. while condition do// code;C. for i := 1 to 10 do// code;D. All of the above答案：D8. 在Delphi中，以下哪个是正确的类声明？A. type TMyClass = class;B. type TMyClass = object;C. type TMyClass = record;D. type TMyClass = procedure;答案：A9. Delphi中，以下哪个是正确的异常处理语句？A. try// codeexcept// codeend;B. try// codecatch// codeend;C. try// codefinally// codeend;D. All of the above答案：D10. 在Delphi中，以下哪个是正确的接口声明？A. type IMyInterface = interface;B. type IMyInterface = record;C. type IMyInterface = class;D. type IMyInterface = procedure;答案：A二、多选题（每题3分，共15分）1. Delphi中，以下哪些是合法的控制台输出语句？A. WriteLn('Hello, World!');B. MessageBox(0, 'Hello, World!', 'Message', MB_OK);C. Console.WriteLine('Hello, World!');D. OutputDebugString('Hello, World!');答案：A, C2. 在Delphi中，以下哪些是合法的集合类型？A. TListB. TStringListC. TDictionaryD. TArray答案：A, B, C3. Delphi中，以下哪些是合法的文件操作函数？A. FileOpenC. FileReadD. FileClose答案：A, B, C, D4. 在Delphi中，以下哪些是合法的数据库操作组件？A. TADOConnectionB. TADOQueryC. TClientDataSetD. TDataSetProvider答案：A, B, C, D5. Delphi中，以下哪些是合法的图形界面组件？A. TButtonB. TEditC. TMemo答案：A, B, C, D三、填空题（每题4分，共20分）1. 在Delphi中，使用________关键字可以声明一个全局变量。

第一学期期末考试试卷（A-2-1）考试学科Delphi 程序设计组、命题教师考场考号考生班级系主任考生姓名装订线题目一二三四五六七总分核分登分人得分一、单选题（每小题2分，共30分）1．在RadioGroup 组件中有4 个单选框，当选中第2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（ B B ））。

A A．．0 B 0 B．．1 C 1 C．．2 D 2 D．．3 2．函数和过程的区别为（．函数和过程的区别为（ A A A ））。

A A．函数执行后返回一个值，而过程不需返回值．函数执行后返回一个值，而过程不需返回值 B B．过程执行后返回一个值，而函数不需返回值．过程执行后返回一个值，而函数不需返回值C ．过程在被调用时，能执行某种特殊功能并能返回到调用它的地方D D．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方．函数在被调用时，能执行某种特殊功能并能返回到调用它的地方3．32 AND 27 的值是（的值是（的值是（ B B B ））。

A ．59 B 59 B．．0 C 0 C．．27 D 27 D．．32 4．窗体与数据模块的扩展名是（．窗体与数据模块的扩展名是（ B B B ））。

A A．．.dcu B B．．.dfm C C．．.pas D D．．.dpr 5．Delphi 中用什么函数来析构一个组件（中用什么函数来析构一个组件（ C C C ））。

A ．Constructor B B．．Destroy C C．．Free D D．．Create 6．一个指针变量ptr 的域成员fs 访问的方法是（访问的方法是（ C C C ））。

A ．ptr->fs B B．．ptr.fs C C．．ptr^fs D D．．ptr@fs7．Type aarrays=[1…8,1…5] of integer ，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（，该类型定义了多少个下标元素（ D D D ））。

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）。

一、单项选择题：（每题 2 分，共30 分）（说明：将答案写在试卷后面的答题纸上）1、由于库模块在内存中只装载一次，因而调用FreeLibrary 首先使库模块的引用计数（）。

A.减去1B. 不变C. 加上1D. 减小2、delphi是哪个公司的产品（）A MicrosoftB DOMC BOMD Borland3、下列符号中，错误的自定义标识符是（）A MydoubleB YtestC 3SSTD _SST4、以下组件中非可视组件为（）A Memo组件B TTable组件C Buton组件D TDBGrid组件5、代码编辑窗口分左、右两部分（）A. 左边是单元代码窗口，右边是单元浏览器窗口B. 左边是单元浏览器窗口，右边是单元代码窗口C．左边是单元调试窗口，右边是单元浏览器窗口D．左边是单元浏览器窗口，右边是单元调试窗口6、既能显示文本又能显示图形的图形栅格组件是（）A StringGrid组件B ColorGrid组件C DBGrid组件D DrawGrid组件7、负责将DataSet组件和DataControl组件链接起来的组件是（）A Date AccessB Date Control类C DateSourceD Ttable8、Delphi控制台程序中屏幕输出语句是（）A cout<<表达式B cin>>表达式C write(变量表)D read(变量表)9、面向对象程序设计的简写形式是（）A OOAB OOPC OOD D OOAD10、在程序运行时，如果要给Memo组件增加显示内容，可以使用一种方法，每调用该方法一次，存储框中就增加一行，该方法是（）。

A. addB. insertC. creatD. copy11、DLLs中工程文件头标用到的关键字是（）A LibraryB ConstructorC FreeD Class12、delphi中如果要创建一个非可视的组件，选择的祖先类为（）。

delphi考试试题及答案Delphi考试试题及答案一、单选题（每题2分，共20分）1. Delphi中用于定义常量的关键字是（）。

A. varB. constC. typeD. resource答案：B2. 在Delphi中，以下哪个是正确的字符串类型？（）A. stringB. charC. textD. stringlist答案：A3. Delphi中，以下哪个不是TForm的属性？（）A. CaptionB. HeightC. WidthD. Count答案：D4. 在Delphi中，哪个关键字用于声明一个方法？（）A. procedureB. functionC. methodD. routine答案：C5. Delphi中，以下哪个是正确的数组声明方式？（）A. var MyArray: array[1..10] of Integer;B. var MyArray: array of Integer;C. var MyArray: Integer[1..10];D. var MyArray: Integer;答案：A6. 在Delphi中，以下哪个是正确的类声明方式？（）A. type TMyClass = class;B. class TMyClass;C. var TMyClass: class;D. procedure TMyClass;答案：A7. Delphi中，以下哪个不是TButton的事件？（）A. OnClickB. OnDblClickC. OnMouseDownD. OnKeyPress答案：D8. 在Delphi中，以下哪个是正确的文件操作函数？（）A. FileOpenB. FileCreateC. FileReadD. All of the above答案：D9. Delphi中，以下哪个是正确的异常处理语句？（）A. try...exceptB. try...catchC. try...finallyD. All of the above答案：A10. 在Delphi中，以下哪个是正确的数据库连接组件？（）A. TADOConnectionB. TDBConnectionC. TSQLConnectionD. TDataSet答案：A二、多选题（每题3分，共15分）1. Delphi中，以下哪些是合法的变量名？（）A. _myVarB. 2myVarC. myVar2D. myVar$答案：AC2. 在Delphi中，以下哪些是合法的注释方式？（）A. { This is a comment }B. // This is a commentC. / This is a comment /D. All of the above答案：D3. Delphi中，以下哪些是合法的循环控制语句？（）A. for...toB. while...doC. repeat...untilD. All of the above答案：D4. 在Delphi中，以下哪些是合法的集合操作？（）A. AddB. RemoveC. ClearD. All of the above答案：D5. Delphi中，以下哪些是合法的文件操作模式？（）A. fmOpenReadB. fmOpenWriteC. fmCreateD. All of the above答案：D三、判断题（每题2分，共10分）1. Delphi中，所有的方法都必须在类中声明。

delphi考试试题及答案一、选择题（每题2分，共20分）1. Delphi中，以下哪个是正确的布尔值表示？A. TrueB. FalseC. Both A and BD. None of the above答案：C2. Delphi中，如何声明一个整型变量？A. var myInt: Integer;B. var myInt = Integer;C. Integer myInt;D. myInt Integer;答案：A3. 在Delphi中，以下哪个是合法的方法声明？A. procedure MyMethod;B. function MyMethod: Integer;C. Both A and BD. None of the above答案：C4. Delphi中，哪个关键字用于定义类？A. classB. recordC. objectD. interface5. 在Delphi中，哪个组件用于显示文本？A. TLabelB. TEditC. TButtonD. TMemo答案：A6. Delphi中，如何实现一个事件处理器？A. procedure TForm1.Button1Click(Sender: TObject);B. procedure TForm1.Button1Click(Sender: TObject): Integer;C. Both A and BD. None of the above答案：A7. 在Delphi中，哪个属性用于设置窗口的标题？A. CaptionB. TextC. TitleD. Label答案：A8. Delphi中，哪个关键字用于创建一个新线程？A. threadB. beginC. procedureD. function答案：A9. 在Delphi中，哪个组件用于显示图像？B. TPictureC. TBitmapD. TGraphic答案：A10. Delphi中，哪个属性用于获取或设置组件的可见性？A. VisibleB. ShowC. HideD. Display答案：A二、填空题（每题2分，共20分）1. 在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程序设计2235考试类别：填空题单项选择题判断题程序填空题《Delphi程序设计》试题1及解答一、填空题（20分，每空2分）二、单项选择题（30分，每题3分）1、Delphi程序设计的基本特点是（）。

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

A．Caption B．Name C．Text D．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、工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是（）A．将SpeedButton按钮的GroupIndex属性设置为0，且AllowAllUp属性设置为True。

B．将SpeedButton按钮的GroupIndex属性设置为0，且Allow AllUp属性设置为False。

C．将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为True。

D．将SpeedButton按钮的GroupIndex属性设置为非0值，且AllowAllUp属性设置为False。

6、表达式30 ＋19 div 2 的值是（）。

A．37 B．49C．39 D．407、在RadioGroup 组件中有 4 个单选框，当选中第2 个单选框时，RadioGroup 组件中的ItemIndex 属性值应为（）。

A．0 B．1 C．2 D．38、以下能够触发编辑框（Edit）组件OnChange事件的操作是（）A．鼠标单击编辑框B．鼠标双击编辑框C．在编辑框中选择文本D．在编辑框中输入文本9、现建立一个简单报表，仅包含报表标题栏、数据栏和汇总栏，则在Bands属性的子属性中，不需要选择的是（）A．Title B．DetailC．HasColumnHeader D．Summary10、只能输出、而不能输入的数据感知控件是（）A．DBEdit B．DBTextC ．DBRadioGroupD ．DBCheckBox三、判断题，请给下列论述中正确的打上“√”，错误的打上“ ”（10分，每题2分）1、( ) const c := 80 的说明语句是合法的。

Delphi 程序设计基础教程第 1 章Delphi 集成开发环境1. 填空题(1) Delphi 是一个集成开发环境，从 3程序设计、代码编译、调试，到最布程序的全部工作都可以在这个集成环境中完成。

(2) 在Delphi 集成环境的主要组成部分中有许多功能强大的工具，如：3主窗体、对象树状视图、对象观察器、窗体设计器、代码编辑器工具等。

(3) Delphi 集成开发环境的界面分为4 个部分，分别是。

主窗口、窗体窗口、代码编辑窗口和对象查看器窗口(4) 对象查看器的功能是：编辑设置窗体、组件的属性，并为窗体、组件添加事件的响应处理过程(5) Delphi 主窗口由：标题栏、菜单栏、工具栏和组件板组成，它是打开其他窗口和退出Delphi 集成环境的主要界面。

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 程序设计试题一及答案一、填空题（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）中的文本发生改变时引发的事件是（）。

Welphi程序设计》2019-2020期末题库及答案一、单选题（共0题，共0分）1.“x是小于1000的非负数”的Object Pascal表达式是（）A、0Wx<1000B、（x>=0）OR（x<1000）C、x>=0,x<1000D、（x>=0）AND （x<1000）正确答案：D2.Delphi程序设计的基本特点是（）A、可视化程序设计B、代码程序设计C、事件驱动编程D、A和C正确答案：D3.（0分）表达式50 + 19 div 2的值是（）A、57B、69C、59D、60正确答案：C4.结构化程序设计的基本原则或特点不包括（）。

A、多态性B、自顶向下C、模块化D、逐步求精正确答案：A5.结构化程序设计的基本原则是取消（）语句，程序中仅采用顺序、分支和循环三种控制结构。

A、ForC^ gotoD、Do正确答案：c6.利用对象监视器可以设置窗体或组件的（）oA、方法B、属性C、外观D、执行代码正确答案：B7.通常控制组件在窗体中可见的属性是（）A、VisibleNameC、ShowingD、Hint正确答案：A8.下列变量命名正确的是（）A、7ABCB、My7C、page@2D、cmd.. 1正确答案：B9.下列表达式中（）不是布尔表达式。

A、A=3B、A div BC、A and BD、A>B正确答案：B10.下列说法错误的是（）A、窗体文件的扩展名为.dfmB、一个窗体对应一个窗体文件C、Delphi中的一个工程只包含一个窗体D、・~dpr和广pas是备份文件，便于用户恢复到较早的一个项目版本。

正确答案：C11.下面哪个不是对象的三个要素之一（）A、事件B、名称C、属性D、方法正确答案：B12.B itBtn组件的哪个属性预定义了一些常用的位图按钮种类（）。

A、nameCaptionC、kindD、type正确答案：c13.以下能够触发编辑框（Edit）组件OnChange事件的操作是（）。

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分，共30分）1. 一个Delphi应用程序必有一个文件和至少一个单元文件。

A. 程序B. 工程C. 数据D. 图形2. 在窗体中完成多个控件整齐排列，应使用何种操作？A. AlignB. Bring to frontC. ScaleD. Send to back3. form（窗体）的OnCreate事件在何时触发？ .A. 窗体关闭B. 窗体建立C. 窗体隐藏D. 窗体活动4. 下列哪种属性可以设置窗体无最大化、最小化和关闭图标？A. bordericonsB. formstyleC. visibleD.enabled5. 下列哪个属性决定控件的可见和不可见？A. ColorB. FormstyleC. VisibleD. Enabled6. 所有可视化的VCL控件都是从哪一个基类派生而来的？A. TcontrolB. TwidgetControlC. TwinControlD. TwindowControl7. Delphi 中，是特殊的单元文件，可理解为主单元文件，或者说主程序，而其它的单元文件可以看作是被其所调用的子程序。

A. 窗体文件B. 项目文件C. 资源文件D. 配置文件8. 下列哪个属性是控制窗体标题的属性？A. FormstyleB. CaptionC. FontD. Enabled9. 下列哪种类型的常量不能用来定义子界类型?A．实型数据（Real）B．用户定义的任何顺序类型C．字符型（Char）D．整型（Integer）10. 下列变量命名正确的是。

A. 7ABCB. Program7C. page@21D. program11. 如果要检查edit编辑框中输入的字符，可以在哪个事件处理程序中编写代码检查。

A．OnClick B．OnEnter C．OnMouseUp D．OnKeyPress12. 以下哪个函数是输入对话框函数？。

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）》全真试题（闭卷90分钟）题号一二三四五六总分题分20 16 10 14 24 16得分试题一单项选择题（每题2分，共20分）1．一般程序设计都采用高级语言，很少使用汇编语言，因为（1）。

汇编语言的每一条语句与（2）条机器指令对应，通过助记符和符号地址书写程序。

最后，通过一个叫做Assembler的程序将汇编语言程序转换成机器语言程序。

为某个应用而用不同高级语言编写的程序模块分别编译产生（3），再经过连接程序处理后形成可执行程序。

（1）A. 高级语言编的程序执行效率较高B．汇编语言不容易学习，使用不方便C．历史上一直这样沿用下来D．高级语言种类很多，有更多的选择余地（2）A.1 B. 2 C. 3 D. 多（3）A. 汇编程序 B. 子程序 C. 动态程序 D. 目标程序2. 在Windows开发环境中，菜单选项和工具按钮被操作者选定后，将激活（4）事件，需要编写相应的事件处理例程。

通常，事件处理例程不宜包含过多的代码，如果处理过程（5）。

这样做实际上是将事件和处理代码分离，其优点是：（6）；（7）。

（4）A . OnEnter B. OnClick C. OnChange D. OnSelect（5）A. 比较简单，通过编写专门的函数能明显减少代码量B. 比较简单，无须编写专门的函数，也能使多事件方便调用C. 比较复杂，无须编写专门的函数，也能使多事件方便调用D. 比较复杂，可通过编写专门的函数，并由事件处理例程来调用此类函数（6）A. 事件和处理过程不至于相互影响B. 程序运行比较稳定可靠，不容易出现意外错误C. 多个事件可以方便地调用同一处理过程D. 某一事件调用处理过程时不会影响其他事件（7）A. 比较容易调整各事件和各处理过程的对应关系B. 事件和处理过程之间的对应关系比较清晰C. 修改处理过程时不需要改变各事件之间的关系D. 各事件之间的关系比较简明清晰3. 在面向对象技术中，（8）不是对象。