|
《可视化程序设计》作业(一)
本课程作业由5个选择题组成,每题4分,共20分,将作为平时成绩记入课程总成绩。
一、 选择题(每题4分,共5题)
1、Delphi程序设计的基本特点是( )。
A. 可视化程序设计 B. 代码程序设计
C. 事件驱动编程 D. A和C
2、“x 是小于200的非负数”的Object Pascal表达式是( )。
A.0 ≤ x < 200 B. x >= 0, x<200
C.(x >=0) AND (x < 200) D. (x >= 0 ) OR (x<200)
3、在窗体上建立多页面的用户界面,需要首先建立的对象是( )。
A. TabControl B.PageControl
C. HeaderControl D.PageScroller
4、能够删除edit1中内容的语句是( )。
A. edit1.Clear ; B.edit1. Focused ;
C. edit1.Text= null ; D.edit1.text :='\0' ;
5、以下能够触发编辑框(Edit)组件OnChange事件的操作是( )。
A. 鼠标单击编辑框 B. 鼠标双击编辑框
C. 在编辑框中选择文本 D. 在编辑框中输入文本
本课程作业由2个程序谋组成,每题20分,共40分,将作为平时成绩记入课程总成绩。
一、 程序(20分,每题10分)
1、(10分,每空2分)
本程序由主窗体form1和子窗体form2组成,设计界面如下图所示:
主窗体上建立的对象有Image1、Button1(加载图片)、Button2(退出)、OpenDialog1。
子窗体上建立的对象有Label1、BitBtm1(Yes)、BitBtm2(No)。
单击“打开文件”按钮(Button1),会弹出打开文件对话框。用户指定一个图像文件后,图像加载到Image1显示区中。
单击“退出”按钮,会弹出确认对话框(Form2)。如果用户按“Yes”键,程序结束;如果按“No”键,返回主窗体。
下面是Unit1的代码部分,请在下划线处完成程序填空。
-----------------------------------------------------------------------------------------------------------------
implementation
{$R *.dfm}
uses
① ;
Procedu re TForm1.Button1Click(Sender: TObject); //加载图片
begin
if ② then
Image1.Picture.LoadFromFile( ③ );
end;
procedure TForm1.Button2Click(Sender: TObject); //退出
begin
if ④ = mrYes then
⑤ ;
end;
end.
---------------------------------------------------------------------------------------------------------------------
2、(10分,每空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为系统函数,其功能为: ⑤ 。
本课程作业由谋学网(www.mouxue.com)和判断题组成,共40分,将作为平时成绩记入课程总成绩。
一、 谋学网(www.mouxue.com)(20分,每空4分)
1、与数学表达式 对应的Object Pascal表达式是
。
2、对于下面的条件表达式:
((3 <= x)AND (x < 0)) OR (x in [1..10])
当x = 3 时, 该表达式的值为 。
3、ListBox对象列表框中的内容是通过 属性来进行设置的。
4、时钟组件(Timer)能有规律的以一定时间间隔触发 事件。
5、能够实现格式化输入的编辑框组件是 。
二、判断题(20分,每题4分)
请给下列论述中正确的打上“√”,错误的打上“”
1、( )在Delphi程序运行时动态设置属性的一般格式是:
<对象名>.<属性名> := <属性值> ;
2、( ) const c := 100 的说明语句是合法的。
3、( ) 在一个项目中可以有一个以上的主窗体。
4、( ) 时钟Timer组件的时间间隔是由Interval属性控制,该属性的单位是秒。
5、( ) 编辑框edit的ReadOnly属性如果被设置为true,在代码中还是可以对text属性赋值。
|
|