Delphi程序设计试题一及答案
- 格式:docx
- 大小:56.47 KB
- 文档页数:7
《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 程序设计试题一及答案
一、填空题(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++x
b a 对应的Object Pascal 表达式是
二、单项选择题(30分,每题3分)
1、Delphi 程序设计的基本特点是( )。
A . 可视化程序设计
B . 代码程序设计
C . 事件驱动编程
D . A 和C
2、修改窗体的标题时,应当设置form 的属性是( )。
A .Caption
B . Name
C . Text
D . Label
3、下列哪个常量说明语句是正确的( )。
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<100
C.(x >=0) AND (x < 100)D.(x >= 0 ) OR (x<100)
5、编辑框(Edit)中的文本发生改变时引发的事件是()。
A.AutoSize B.OnChange
C.SetFocus D.SetText
6、表达式30 +19 div 2的值是()。
A.37 B.49
C.39D.40
7、在Timer组件中,用户需要设定每秒钟触发一次事件,应将Interval属性值设置为()。
A.1
B.10
C.100
D.1000
8、下面哪个功能键可以调出Delphi 的联机帮助信息()。
A.F1键B.F2键
C.F3键D.F4键
9、数据库,添加数据的SQL语句是()。
A.Insert语句B.Update语句
C.Add语句D.Select语句
10、以下控件中没有Items属性的是()。
A.ComboBox B.ListBox C.RadioGroup D.Memo
三、判断题(10分,每题2分)
请给下列论述中正确的打上“√”,错误的打上“ ”(10分,每题1分)
1、()一个数组中的各元素的数据类型必须相同。
2、()在一个项目中,可以根据需要将任何一个窗体定义为主窗体。
3、()在Object Pascal语言中,用户必须通过函数来实现乘方运算。
4、()Label 和Edit 组件都可以用于用户输入数据。
5、()按钮组件和编辑框组件能够响应的事件有些是相同的。
四、程序填空题(30分,每题15分)
1、(15分,每空3分)
本程序根据用户选择的运算符对输入的二个操作数进行运算,并显示运算结果。
设计界面和运行界面如图所示。
其中,运算符是一个含有4个单选按纽的RadioGroup1对象。
下面是单击“运算”按钮的事件处理程序,请根据功能要求完成程序填空。
---------------------------------------------------------------------------------------------------------------------
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( ⑤ );
end;
---------------------------------------------------------------------------------------------------------------------
2、(15分,每空3分)
数据库mydb中有关系表student,其结构如下:
student(sno学号,sname姓名,sex性别,birthday生日)
现编写一个学生信息浏览程序,设计界面和运行界面如下图所示:
在下划线处填写相应数据库组件的属性值:
Database1. DatabaseName : mydb
Table1. DatabaseName : mydb
Table1. TableName : student
Table1. Active : ①
Datasource1.DataSet : ②
DBNavigator1. DataSource : ③
DBEdit2. DataSource : ④
DBEdit2. DataField : ⑤
五、编程题(10分)
本程序设计界面及运行界面如下:
程序功能是:用户输入一个3位正整数后,按“确定”键,该数字的个位、
十位、百位数字分别显示在输出框中。
如果输入的数据不在规定范围之内,程序要给出错误提示。
请编写单击“确定”按钮的事件处理程序。
参考答案
一、填空题(20分,每空2分)
1、方法
2、.dpr(或dpr)
3、一个入口
4、属性或Properties
5、Items
6、OnTimer
7、Enabled 8、AutoSize 9、备份文件
10、sqr(cos(a+b)) /(3*x)+5 或cos(a+b) * cos(a+b) /(3*x)+5
二、单项选择题(30分,每题3分)
1、D
2、A
3、D
4、C
5、B
6、C
7、D
8、A
9、A 10、D
三、判断题(10分,每题2分)
1、√
2、√ 3 √4、 5、√
四、程序填空题(30分,每题15分)
1、(15分,每空3分)
①text ②text
③RadioGroup1 ④text
⑤y
2、(15分,每空3分)
①True ②Table1
③DataSource1④DataSource1
⑤sname
五、编程题(10分)
procedure TForm1.Button1Click(Sender: TObject);
var
x : integer ;
begin
x := strtoint(edit1.Text);
if (x<100) or (x>999) then
showmessage('输入数据不在范围内'); edit2.Text := inttostr(x DIV 100) ;
edit3.Text := inttostr( (x DIV 10 ) Mod 10 ) ; edit4.Text := inttostr(x Mod 10) ;
end;。