19春北京师范大学《可视化程序设计》作业（一）（资料）

同学情

《可视化程序设计》作业（一）
本课程作业由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个程序谋学网（www.mouxue.com）组成，每题20分，共40分，将作为平时成绩记入课程总成绩。
一、        程序谋学网（www.mouxue.com）（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分）
请给下列论述中正确的打上“√”，错误的打上“&#61620;”
1、(　 　)在Delphi程序运行时动态设置属性的一般格式是：
    <对象名>.<属性名>  := <属性值> ;
2、(　 　) const c := 100 的说明语句是合法的。
3、( 　  ) 在一个项目中可以有一个以上的主窗体。
4、(　 　) 时钟Timer组件的时间间隔是由Interval属性控制，该属性的单位是秒。
5、(　   ) 编辑框edit的ReadOnly属性如果被设置为true，在代码中还是可以对text属性赋值。

kekejiao

不错，OK ，满分！

akobzkok

学长介绍来的

drtdxok40c

下载一份试试！