DELPHI 程序员试题 2009-03-11 00:00 1. 用户开发程序时需要经常在窗体和编辑器窗口之间来回切换,可使用快捷键() 。 A、 F12 和 F11 B、 F12 和 F13 C、 F12 和 Ctrl+F12 D、 F12 和 Alt+F12 E、F12 和 Shift+F12 2. 某函数如下: Function check(n,k:Integer):Integer; Var m:Integer; Begin Repeat m:=n mod 10; n:=n div 10; K:=k-1 Until k=0; Check:=m End; 若调用语句 y:=check(3725,3),运行后 y 值为: () A、 7 B、 5 C、 2 D、 0 3. 以下那个组件不可以由用户输入编辑文本() A、 TEdit B、 TcomboBox C、 TMaskEdit D、 Tlabel E、 TStringGrid 4. 一个对象类可以继承和直接使用它的父类的所有成员,除了: () A、 public 域 B、 private 域 C、 protected 域和 private 域 D、 protected 域和方法 E、 private 域和方法 5. Delph 没有用到的文件类型有() 。 A、.frm B、.pas C、.dfm D、.dpr E、.res 6. Query 组件没有 Table 组件那样的( )属性。 A、 DataSource
B、 TableName C、 Filtered D、 Database E、 UpdateObject 7. 下面关于属性的论述正确的是() 。 A、 属性能实现 write 方法 B、 属性能实现 read 方法 C、 属性可以只读或只写 D、 属性可以公开或非公开 E、属性不能直接存取 8. 调试程序时,需要执行执行点所在的源代码行,并停留在下一个
源代码行。可通过() 菜单项进行。 A、 Run B、 Step Over C、 Trace Into D、 Trace To Next Source Line E、Run to Cursor 9. 设 a 是布尔变量,其它是整型变量,下面正确的赋值语句是( ) A、 x=y div 7 B、 x:=y:=z+1 C、 a:=x=y mod z D、 x+y:=z E、x+y=a 10. 表达式 round(4.2) mod trunc(2.8)的值是( ) A、 0 B、 1 C、 2 D、 3 E、 4 11. 下列常量定义合法的是( ) A、 CONST width=7; B、 CONST case=\~7\~; C、 CONST 1A=7.9; D、 CONST century=year div 100; E、 CONST 5<>7; 12. 以下运算符中运算优先级最高的是( ) A、 + B、 OR C、 >= D、 DIV E、 13. 已知 a、b、c、d 是同类型的简单变量,而且已有互不相同的值,执行下列语句: b:=a; a:=c; d:=a; d:=b; 后,其值相等的变量是() A、 a,c
B、 a,d C、 c,b D、 b,a E、 无法确定 14. 已知有说明 Var x:real;下列程序段中的错误为: ) ( case x<=2.0 of 0:x:=0; 1:x:=1 end A、 case 表达式中有常数 B、 case 常量和 case 表达式类型不一样 C、 赋值语句两边类型不一致 D、 case 表达式为关系表达式 E、 case 语法不规范 15. 以下语句的循环执行次数是( ) x:=37; y:=3 while y<=x do y:=y+y A、 3 B、 4 C、 5 D、 6 E、 0 16. 程序 For I:=1 to 5 do for j:=2 to I do writeln(\~*\~); 输出的\~*\~个数为( ) A、 5 B、 10 C、 15 D、 25 E、 30 17. 下列函数头合法的是( ) A、 function total(x:real); B、 procedure ab(a,b:real):real; C、 procedure sum; D、 function f(var f:real):integer; E、 procedure FontListBoxKeyDown(Sender: TObject; var Key: Word; Shift:
TShiftState;); 18. 已知函数如下: function f(n:integer):integer; begin if n=0 then f:=0 else if n>0 then f:=f(n-2) else f:=f(n+3)
end; 则调用 f(5)的值是( ) A、 0 B、 1 C、 -1 D、 -2 E、 2 19. 下列类型中合法的是( ) 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)..1 20. 已知 Var a:array[\~a\~..\~e\~,1..4,boolean] of real; 则数组 a 中包含的元素的个数为() A、 5 B、 20 C、 40 D、 11 E、 22 21. 已知 Var a:array[1..10] of integer; k,I:integer; 程序段: k:=1; for I:=1 to 10 do if a>a[k] then k:=I; writeln(a[k]); 执行后输出的是( ) A、 数组中的平均值 B、 数组中的最大值 C、 数组中的最小值 D、 数组中的总和 E、 无法确定 22. 已知 Var f:file of integer;则 f 所代表的文件是( ) A、 ASCII 码文件 B、 二进制文件 C、 文本文件 D、 存放整数的文本文件 E、
HTML 文件 23. 在 VCL 中( )是 TDBListBox 的父类 A、 TCustomListBox B、 TListBox C、 TDBDataset
D、 T