|
|
《可视化程序设计》作业（一）
本课程作业由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属性赋值。
|
|
发表于 2019-6-25 14:18:51
