[问答题] 完成下列问题：在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时

[问答题] 完成下列问题：在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时

[问答题] 完成下列问题：

在名称为Form1的窗体上画一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。画一个名称为Timer1的计时器，在属性窗口中将其设置为不可用，时间间隔为0.5s，窗体如图2所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行．计时器即变为可用，且每隔0.5s形状控件向下移动100。

[*]

注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。

正确答案：

[ *** 作步骤] 第1步：新建一个标准的EXE工程，保持现有窗体默认属性值不变。 第2步：在窗体上画一个形状控件，保持其名称Shape1不变，修改其Top属性值为0，修改其Shape属性值为3-Circle。 第3步：在窗体上画一个计时器控件，修改其Enabled属性值为False，修改其Interval属性值为500。 第4步：编写代码。在代码编写窗口中，分别编写窗体的Load事件过程和计时器的Timer事件过程。 Private Sub Form_Load() Timer1.Enabled=T

参考解析：

形状控件的位置由其Left和Top属性控制，将其Top属性设置为0可使形状控件紧贴窗体的上边界；形状控件的形状由Shape属性控制，要显示为圆形，则需要将Shape属性设置为3-Circle。计时器控件的是否可用由Enabled属性控制，在计时器控件的Timer事件过程中改变形状控件的Top属性可以使得形状控件在竖直方向连续移动。