代码,请回答。 Program Infoproc Uses Forms, Unit1 in ‘Unit1.pas’{formInfoInput}, Unit2 in ‘Unit2.pas’{formInfoShow}; {$R *.res} Begin …… End. 问题 1:以上代码是 项目/工程文 件的组成部分。 问题 2:根据以上代码,可知项目文件名是 五、程序题 程序题 1.定义一个函数 F,其返回值为 1~N 的和。(每空 2 分) ( function )F(n:integer); Var I,s:integer; Begin For i:=( 1 ) to ( N ) S:=( S+i ); ( n ):=s; End; Infoproc ,该项目文件包含 2 个单元文件,文件名分别是 Unit1 、 Unit2 ,它们对应的窗体名是 formInfoInpu 、 formInfoShow 。
2.在窗体上面绘制出一条规则的余弦曲线,使其尺寸约为窗体的 80%,写出编程步骤与代码。 Procedure TForm1.FormPaint(sender:Tobject); var x,y:real; j,j,h:integer;
begin h:=form1.Height div 2; for i:=0 to form1.Width do begin x:=i*(2*3.14/form1.Height); y:=cos(x); j:=trunc(0.8*y*h)+h; canvas.Pixels[i,j]:=clRed: end; end;
一、单选题 1.
Delphi 的所有类都是从什么类继承下来的( A.Tcomponent C.Tstream B.Tobject D.Tnull C ) 。 C.create D ) 。 C.Ttable D.Tscrollbar D ) 。 D.construction B ) 。
2.定义构造函数时用到的保留字是( A.Class B..implementation
3.下列组件中属于可视组件的是哪一个( A.Tdatasource B.Topendialog
4. 设有过程 procedure pro(VAR x,y:integer); 变量 a,b 为整型变量,其值分别为 5、 6,则合法的过程调用语句是( A.Pro(5,6) A.Tedit B.pro(5,b) B A B.Tlabel C.pro(a,6) ) 。 C. Trichedit ) 。 C.dynamic ) 。 C.Borland D.DOM D.override” D.Ttreeview D.pro(a,b)
5.下列组件中不能获取焦点的是( 6.定义抽象类必须使
用的指令字是( A.Abstract B.virtual C
7.Delphi 是哪个公司的产品( A. Microsoft
B.IBM
8.窗体上放置有一个 TEdit 类的控件 Edit1,并定义了 Edit1 的 OnEnter 事件,下面说法正确的是: (C) A.当鼠标在窗体上移动时产生 Edit1OnEnter 事件 C. Edit1 获得焦点时产生 Edit10Enter 事件 当 事件 9.在 RadioGroup 组件中有 4 个单选框,当选中第 2 个单选框时, RadioGroup 组件中的 ItemIndex 属性值应为 ( B A.0 ) 。 B.1 C.2 A D.3 ) 。 B.过程执行后返回一个值,而函数不需返回 B.其他三项都不对 D. 当鼠标移动到 Edit1 的上面时产生 Edit1OnEnter
10.函数和过程的区别为(
A.函数执行后返回一个值,而过程不需返回值 值 C.过程在被调用时,能执行某种特殊功能并能返回到调用它的地方 能返回到调用它的地方 11.32 AND 27 的值是( A.59 B.0 B C.27 ) 。 D.32
D.函数在被调用时,能执行某种特殊功能并
12.Diskfree(C)是用来返回 C 盘的剩余空间。 A.1 A.Constructor B.2 C.3 B.Destroy D.4 C C.Free ) 。 D.Create 13.Delphi 中用什么函数来析构一个组件(
14.下面的数据类型不属于在 Object Pascal 语法中的数据类型是(C) 。 A.布尔型 B.整型 C.关系型 D.字符型
15.Type aarrays=[1…8,1…5] of integer ,该类型定义了多少个下标元素( A.45 二、判断题 B.54 C.48 D.40、
D
) 。
1.MediaPlayer 控件的 AutoEnable 属性是用来控制该控件是否可用。 错 ) ( 2.图形组件没有输入焦点,不能接受用户的输入,它只具有向用户显示的功能。 对 ) ( 3.1、Pascal 语言中可以把一个实数赋值给一个整型变量,
系统会自动取整。 错 ) ( 4.所有类都有 Name 属性。 错 ) ( 5.variant 类型的变量被动态赋值为一个特定的数据类型后,不能再赋值为一个其它的数据类型。 错 ) ( 6.函数 MessageDlgPos 与 MessageDlg 极为相似,只是 MessageDlgPos 函数能够控制信息对话框的出现位置。 对 ) ( 7.BitBtn 控件可以用来制作一个带图片的按钮,而 SpeedButton 则不能。 错 ) ( 8.Timer 组