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;。
delphi11
一、单选1)下列符号哪一个是Delphi中的合法变量名（）A6book B if C name[1] D count12)下列常量说明中哪一个是合法的（）A const c:=(b>4.5);B const c:8.6;C const c=3.2;D const c:=”book ”;3)下列实数中哪个是不合法的( )A0.45E+02 B .25+2 C 25E -3 D 24.674)设n为整型变量，其值为4568，表达式（n mod 1000）div100 ( )A分离出个位数字B分离出千位数字 C 分离出百位数字D分离出十位数字5)有下面的程序段：a:=false; b:=false; c:=true; x:=20;if a then x:=x-10; x:=30;if b thenif c then x:=34;else x:=15; 假设所有变量都已定义，程序段执行后x的值（）A15 B 20 C 34 D 306)有下面的程序段：ch1:= 'z'; ch2:= 'x';if ch1 <>'x' thencase ch2 of'x': case ch1 of'z': s:= 'xy';'y': s:='xz';end;'y': s:='yy';end; 假设所有变量均已说明，程序段被执行后s的值是（）。
A'xz' B 'yy' C 'xy' D xy7)有下面的程序段：i:= 1;repeatn:= i * i; i:=i+2;until n>2*i; 假设所有变量均已说明，循环体执行的次数（）。
A 1B 2C 3D 48)有下面的程序段：s:= 100; n:= 3;for ch:= 'a' to 'e' doif not odd(n) then s:=s-n;n:=n+5; 假设所有变量均已说明，s的值（）。
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程序设计试题1
一、单项选择题：（每题 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 程序设计》试卷学号： 姓名： 专业： 班级：一、 单项选择题（每小题1分，共40分）1. 下面哪句话比较准确地定义了Delphi 。
。
A ．面向对象的编程语言B ．面向对象的可视化的开发环境C ．数据库的客户端开发工具D ．数据库报表生成工具2. 隐藏窗体应使用哪个方法？ 。
A ．closeB ．showC ．showmodalD ． hide3. 下列哪个属性决定控件的可见和不可见？ 。
A. ColorB. FormstyleC. VisibleD. Enabled4. Delphi 提供了一个丰富的__________， 它由一些称作“组件”的预制对象所组成, 组件提供了可视设计应用程序的能力。
A. DLLB. OCXC. IDED. VCL5. DFM 文件中存放的是什么信息？ 。
A ．程序员编写的函数B ．程序员编写的类C ．有关窗体的所有信息D ．有关窗体的属性值6. 在面向对象编程语言中，类与对象的关系是怎样的？ 。
A ．类是配方，对象是方法B ．类定义对象的类型，对象是类的实例C ．对象是配方，类是方法D ．对象定义类的类型，类是对象的实例7. 设置工程的主窗口用下列哪个选项？ 。
A.editor|optionsB.environment|optionsC.debug|optionsD.project| options8. Delphi 中，所谓 是指程序运行时用户看到的第一个窗体，每个应用程序必须且只能有一个,它的关闭意味着应用程序的终止。
A. 主窗体B. 子窗体C. 模式窗体D. 非模式窗体9. 仅保存程序中的工程项目文件(*.dpr)，使用下列哪个命令？ 。
A. Save(CTRL+S)B. Save AllC. Save AsD. Save Project As10. Delphi 中， 是有效的标识符。
A. CalculateValueB. abc@C. beginD. program11. 对源程序进行编译时,系统有时会显示“变量未初始化”这一类警告信息。
Delphi习题
第一章 概述习题一、填空题1.Delphi 是＿＿＿＿＿公司开发的＿＿＿＿＿＿＿工具。
2、利用对象查看器可以设置窗体或组件的＿＿＿＿＿。
3、一个Delphi 应用程序必有一个＿＿＿＿＿文件和至少一个单元文件。
4、在Delphi 应用程序中，工程文件的后缀名是＿＿＿＿＿，单元文件的后缀名是＿＿＿＿＿。
5、Delphi 应用程序设计基于＿＿＿＿＿语言。
二、简答题1．如何启动Delphi7？2．Delphi 的可视化开发环境由哪几部分组成？每部分的功能是什么？3．简述Delphi 可视化编程的一般步骤。
第二章object pascal 语言基础习题一﹑填空题1. 在object pascal 语言中，常量定义部分以 保留字开头； 变量定义部分以 保留字开头。
2. s:=0;for i:=3 to 14 dos:=s+i;运行后S 的值为 。
3. 过程与函数的区别在于 。
4. 与数学表达式 53)(cos 2++xb a 对应的Object Pascal 表达式是5. 结构化程序设计要求程序中仅采用 三种控制结构。
6. 以下语句x:=30; y:=3; while y<=x do y:=y+y;的循环执行次数是____________次。
7. 程序 For I:=1 to 5 do for j:=2 to I do writeln('*'); 输出的'*'个数为_______个。
8．与数学表达式2253)(sin x xb a ++对应的Object Pascal 表达式是9．Break 语句和Continue 语句的区别是 。
10．运算符分为 和二．选择题1．“x 是小于1000的非负数”的Object Pascal表达式是（）A．0 ≤ x < 1000 B． (x >= 0 ) OR (x<1000)C．x >= 0, x<1000 D． (x >=0) AND (x < 1000)2．设a是布尔变量，其它是整型变量，下面正确的赋值语句是( )A、 x=y/7B、 x:=y:=z+1C、 a:=x=y mod zD、 x+y:=z3．下列常量定义合法的是（）A、 CONST width=7;B、 CONST case='7';C、 CONST 1A=7.9;D、 CONST century=2006 div 100;4．以下运算符中运算优先级最高的是（）A、 +B、 ORC、 >=D、 DIV5．设a是布尔变量，其它是整型变量，下面正确的赋值语句是（）。
DELPHI复习 程序填空(有答案)
下面是单击“运算”按钮的事件处理程序，请根据功能要求完成程序填空。 --------------------------------------------------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);//运算 var x1,x2,y :Integer; begin x1 := StrToInt( Edit1. ① ); x2 := StrToInt( Edit2. ② ); Case ③ .ItemIndex of 0: y := x1 + x2 ; 1: y := x1 - x2; 2: y := x1 * x2; 3: y := x1 Div x2; End; Edit3. ④ := IntToStr( ⑤ );
① True ③ DataSource1 ⑤ sname
② Table1 ④ DataSource1
6、
本程序的功能是实现对 dep 表（系）－student 表（学生）的主从查询。用户可以依次 查询系的记录， 也可以通过指定系号， 查找并定位到指定的记录。 每当显示一个系的记录后，
5
系统自动显示该系的学生记录。设计界面和运行界面如下：
1
end; ① text ③ RadioGroup1 ⑤ y ② text ④ text
2、
本程序设计界面和运行界面如下图所示：
程序的功能是：用户在 edit1 中输入一个正整数 n，然后按“计算”按钮，程序计算 1～ n 中奇数之和，并在 edit2 中显示计算结果。 请完成程序填空： procedure TForm1.Button1Click(Sender: TObject); //“计算”按钮 var i , n, sum : integer ; begin sum := 0 ; i := 1 ; n := StrToInt(edit1. ① ); //读入正整数 n while i <= n ② //循环语句 begin if odd( i ) then sum := ③ ; i := i +1 ; end; edit2.Text :=IntToStr( ④ ); //将结果在编辑框中显示 end; 在程序中，odd 为系统函数，其功能为： ⑤ 。 ① Text ② do ③ sum + i ④ sum ⑤ 判断奇偶性的函数（若输入值为奇数，函数值为真，否则为假） 。
delphi程序试题答案
一、单选题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 ）。
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 ）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
试卷代号：2235
中央广播电视大学2008—2009学年度第二学期“开放专科”期末考试
Delphi程序设计试题
2009年7月
一、填空题(20分，每空2分)
1．结构化程序设计要求程序中仅采用——三种控制结构，其中每种结构只能有一个入口和一个出口。
2．现实世界中对象具有自己的状态和行为。
对应着，面向对象技术中的对象可以具有自己的属性和——。
3. Delphi应用程序中项目文件的扩展名是——。
4. 在设计阶段，利用Image对象的——属性，可以加载一幅图片。
5．时钟组件(Timer)能有规律的以一定时间间隔触发——事件，并执行该
事件过程中的程序代码。
为了使计时器控件丁imerl每隔0.5秒就触发一次并执行事件代码，应将Timerl控件的Interval属性设置为——。
6．Delphi程序与数据库之间进行数据交换一般要由多个数据库组件协作完成。
如果用户要查询数据库中的一条信息，该指令通过用户界面组件发出，经数据源组件到达数据集组件。
数据集组件利用——组件与数据库建立连接，并读取数据库中的数据，而后又经过组件将数据送到用户界面组件中显示。
8．利用对象的LineTo等绘图方法，可以绘制基本图形。
二、单项选择题(30分，每题3分)
1．Delphi程序设计的基本特点是( )
A. 可视化程序设计B．代码程序设计
C. 事件驱动编程D．A和C
2．修改窗体的标题时，应当在属性页中设置的属性是( )
A．Caption B．Name
C．Text D．Label
3．“x是小于100的非负数”的ObjectPascal表达式是( )
A．0≤x<100 B．x>＝0，x<100
C．(x>＝0)AND(x<100) D．(x>＝0)OR(x<100)
4．利用Image对象的哪个属性设置，可以使加载的图像自动放大或缩小，以适应Image 的显示区域( )
A．Stretch B．AutoSize
C．Align D．Center
5．工具栏上的一个SpeedButton按钮如果要设置为状态按钮，则正确设置的方法是( )
A. 将SpeedButton按钮的Grouplndex属性设置为0，且AllowAllUp属性设置为True
B. 将SpeedButton按钮的Grouplndex属性设置为0，且AllowAllUp属性设置为False
C．将SpeedButton按钮的Grouplndex属性设置为非0值，且AllowAllUp属性设置为True
D．将SpeedButton按钮的Grouplndex属性设置为非0值，且AllowAllUp属性设置为
False
6．工具栏上的一组按钮如果要构成互斥关系(如“左对齐”、“居中”、“右对齐”)，它们的Grouplndex属性正确的设置是( )
A．Grouplndex属性值都为0 B．Grouplndex属性值非0，且互不相同
C．Grouplndex属性值非0，且相同D．Grouplndex属性值互不相同
7．下列说法正确的是( )
A. 组件必须是可视的，这样用户才能使用。
B．Delphi中组件就是控件，二者是完全相同的。
C. 控件都是可视的。
D．按钮(Button)是组件，而窗体(Form)则不是组件。
8．以下能够触发编辑框(Edit)组件OnChange事件的操作是( )
A. 鼠标单击编辑框
B．鼠标双击编辑框
C．在编辑框中选择文本
D．在编辑框中输入文本
9．以下叙述中错误的是( )
A. 一个项目包含不止一种类型的文件。
B．窗体的Show方法的作用是显示该窗体。
C. 窗体的Hide方法和Release方法的作用完全相同。
D. 若项目文件中有多个窗体，可以根据需要指定一个窗体为主窗体。
10．只能输出、而不能输入的数据感知控件是( )
A．DBEdit B．DBText
C. DBRadioGroup D．DBCheekBox
三、判断题(请给下列论述中正确的打上“√”，错误的打上“X”。
10分，每题2分)
( )1．时钟Timer组件的时间间隔是由Interval属性控制，例如其值为．1000时表示时间间隔是1秒。
( )2．在Delphi环境中，组件页上的组件是“对象”的概念，在窗体上建立的按钮是“类”的概念。
( )3．一个Table对象不能同时指定与之相连的两个关系表。
( )4．在DataControls组件页上，只有DBNavigator组件可以不用指定DataField属性值。
( )5．一个Query对象同一时刻只能存储一条SQL语句。
四、程序填空题(共30分，每题15分)
1．(15分，每空3分)
本程序由主窗体forml和子窗体form2组成，设计界面如下图所示：
主窗体Forml上建立的对象有Panell、MediaPlayerl、OpenDialogl、Buttonl(打开文件)、Button2(播放)、Button3(暂停)、Button4(退出)。
子窗体Form2上建立的对象有Labell、BitBtml(Y es)、BitBtm2(No)。
单击“打开文件”按钮，会弹出打开文件对话框。
用户指定一个要播放的文件后，单击“播放”按钮可播放多媒体文件，单击“暂停”按钮可暂停播放。
单击“退出”按钮，会弹出确认对话框(Form2)。
如果用户按"Y es”键，程序结束；如果按“No"键，返回主窗体。
下面是Unitl的代码部分，请在下划线处完成程序填空。
该程序涉及到数据库中的两张表：course(课程表)和sc(选课表)，表结构如下： sc(sno 学号·，cno 课程号，grade 成绩)
course(cno 课号，cname 课名，quota 名额)
其中：sno 和cno 都是字符型。
在用户界面，操作员选中一门书、输入学号后，按“选课”键，完成选课功能，即在sc 表中插
入一条选课记录，并将course 表中该课程的名额减1。
该界面要实现以下合法性检查：
● 当该学生已经选过此课，不能再选。
● 当所选课程名额已为o ，不能再选。
在Forml上建立的数据库组件对象及连接关系如下：
五、编程题(10分)
下图是本程序的设计界面(左)和运行界面(右)：
在forml上建立的对象有：Labell～Label5、Editl—Edit4、Buttonl(除键)和CheckBoxl等。
该程序实现除法运算。
用户输入两个操作数，按除键后，整除结果显示在结果框中。
输入的操作数必须是1～100之间的整数。
如果输入有误，程序要给出错误提示信息。
如果“显示余数”复选框选中，则除法余数显示在余数框中，否则不显示余数。
请编写单击“除键”按钮的事件处理程序。
procedureTForml．ButtonlClick(Sender：TObject)；
begin
end；
试卷代号：2235
中央广播电视大学2008—2009学年度第二学期“开放专科”期末考试
Delphi程序设计试题答案及评分标准
(供参考)
2009年7月
一、填空题(20分，每空2分)
1．顺序、分支和循环
2．方法
3．dpr(或dpr)
4．Picture
5．OnTimer 500
6．数据库连接数据源
8．CanV aS
二、单项选择题(30分，每题3分)
1．D 2．A3．C 4．A5．C
6．A7．C 8．D 9．C 10．B
三、判断题(请给正确的打上“√”，错误的打上“X”。
10分，每题2分)
1．√2．X 3．√4。
X 5．√
四、程序填空题(共30分。
每题15分)。