delphi1

一、单选1)下列符号哪一个是Delphi中的合法变量名（）A 6bookB ifC 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)下列实数中哪个是不合法的( )A 0.45E+02B .25+2C 25E -3D 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的值（）A 15B 20C 34D 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的值（）。

A 100B 97C 61D 749)以下正确的枚举类型定义是：( )A type vowel=('a','e','i','o','u');B type num=(1..3,8..10);C type color=(red,blue,greeen);D type realtype=(1.5,2.5,3.5,4.5);10)集合表达式[1,2,3]+[4,5,6,1,2]的值为：( )A[1,2,3,4,5,6,1,2] B [1,2,3] C [4,5,6,1,2] D [1,2,3,4,5]11)Delphi没有用到的文件类型有（）A、.frmB、.pasC、.dfmD、.dpr12)以下哪个组件不可以由用户输入编辑文本（）A、TEditB、TcomboBoxC、TMaskEditD、Tlabel13)下列常量定义合法的是（）A、CONST width=7B、CONST case=''7''C、CONST 1A=7.9D、CONST5<>714)下列哪种表达式不能作为while语句的循环条件（）A、i=1 B.、i:=1 C、true D、i<>115)下列哪个可以作为集合变量的基类型（）A、integer B 、word C、real D 、byte16)在修改数据前检查TQuery组件的状态，发现处于浏览状态，则调用该组件的什么方法可以将其状态该为可修改（）A、postB、insertC、editD、setkey17)以下语句的循环体执行次数是（）x:=37; y:=3while y<=x do y:=y+y；A、3B、4C、5D、618)下列函数头具有传地址参数的是（）A、function total(x:real);B、procedure ab(a,b:real):real;C、function total(const x:real):real;D、function f(var f:real):integer;19)Delphi中取值范围0到255的数据类型是（）A、ShortIntB、ByteC、SmallIntD、Word20)以下关于事件的说法不正确的是（）A、不一定要响应某个组件所定义的所有事件B、多个组件可以共享同一个事件处理程序C、根据需要可以响应任何组件的事件D、单击Object Inspector中的事件处理程序名，Code Editor将自动进入该事件的代码段。

21)Delphi应用程序的执行入口为哪个文件（）A、资源文件B、单元文件C、窗体文件D、工程文件22)以下哪个属性可以获得TEdit组件输入的文本内容（） B、caption C、text D、Tag23)下列常量定义合法的是（）A、CONST width:=8B、CONST case=''7''C、CONST 1A=7.9D、CONSTwidth=924)下列哪种变量类型不能作为For的循环变量（）A、字符 B.、枚举C、子界D、实数25)集合类型的数据其序数范围（）A、0..255B、0..65535C、0..63D、0..3126)Query组件没有Table组件哪个属性( )A、activeB、TableNameC、nameD、Database27)执行以下语句后s的值为（）S:=0; n:=10while n>0 do n:=n-1; S:=S+n;A、0B、45C、55D、928)下列函数头合法的是（）A、function total(x:real);B、procedure ab(a,b:real):real;C、procedure sum;D、function f(var f:real):integer;29)下列子界类型定义合法的是（）A、TYPE a=10..10;B、TYPE b=10..5;C、TYPE c=0..SQRT(10);D、TYPEd=10.0..20.0;30)发生在鼠标左键双击控件时的事件是（）A、OnkeyDownB、onClickC、OnDbClickD、OnEnter二、按要求写出程序结果1、设有一个自定义过程声明如下：procedure p(x: integer; var y: integer);beginx:=x-y; y:=y+x;end;执行下述程序段：a:=10;b:=4; p(a,b); p(a mod b ,a); 则a,b的值分别是什么？2、设有一个自定义过程声明如下：Var n: integer; y, z :real;procedure sub(m: integer; var s,z :real);beginy:=2*y; s:=s*y; z:=s/m;end;beginn:=4; y:=3; z:=0;sub(n,y,z);end; 则n,y,z的值分别是什么？3、设有一个自定义函数声明如下：function f(a,b,c: integer):integer;Var t: integer;begina:=3*a; t:=b div c;f：=a+4*t；end; 则f（1，2，f（1，2，3））的值？4、设有一个事件过程声明如下：procedure TForm1.Button1Click(Sender: TObject);beginif lowercase(edit1.Text) = 'abcd' thenpanel1.Caption := '欢迎使用本系统!'elsebeginedit1.Tag := edit1.Tag + 1;If edit1.Tag = 3 Thenbeginpanel1.Caption := '对不起,您无权使用';groupbox1.Enabled := False;endElsepanel1.Caption := '对不起，口令错!';end;end；edit1.text 的初值为空，edit1.Tag初值为0, 如果edit1中已连续输入hello 两次,每次分别点击Button1,又输入abc后点击Button1, 则此时edit1.Tag的值? panel1显示的内容?5、设有一个事件过程声明如下：procedure TForm1.Button1Click(Sender: TObject);vark, f1, f2, f3 : Integer;beginmemo1.Lines.Clear;memo1.Lines.Add(' 1 1');memo1.Lines.Add(' 2 1');f1 := 1; f2 := 1;For k := 3 To 5 dobeginf3 := f1 + f2;memo1.Lines.Add(format('%2d %3d',[k, f3]));f1 := f2; f2 := f3;end;end; 点击Button1后memo1显示的内容?4.Function check(n,k:Integer):Integer;Var m:Integer;BeginRepeatm:=n mod 10;n:=n div 10;K:=k-1Until k=0;Check:=m；End;若调用语句y:=check(3725,3)运行后y值为？5.有下面的程序段：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的值是？6.有下面的程序段：s:= 100; n:= 3;for ch:= 'a' to 'e' doif not odd(n) then s:=s-n;n:=n+5; 假设所有变量均已说明，s，n的值？7.设有一个自定义过程声明如下：Var n: integer; y, z :real;procedure sub(m: integer; var s,z :real);beginy:=2*y; s:=s*y; z:=s/m;end;beginn:=4; y:=3; z:=0;sub(n,y,z);end; 则n,y,z的值分别是什么？8.有下面的程序段：a：=false；b：=false；c：=true；x：=20；if a then x:=x-10; x:=30;if not b thenif c then x:=x+5;else x:=15;假设所有变量都已定义，程序段执行后x的值？9.设有一个事件过程声明如下：procedure TForm1.Button1Click(Sender: TObject);beginif lowercase(edit1.Text) = 'abcd' thenpanel1.Caption := '欢迎使用本系统!'elsebeginedit1.Tag := edit1.Tag + 1;If edit1.Tag = 3 Thenbeginpanel1.Caption := '对不起,您无权使用';groupbox1.Enabled := False;endElsepanel1.Caption := '对不起，口令错!';end;end；edit1.text 的初值为a，edit1.Tag初值为0。