问答题
在名称为Form1的窗体上添加一个名称为Shape1的形状控件，位置在窗体的顶部，在属性窗口中将其设置为圆形。添加一个名称为Timer1的计时器，在属性窗口中将其设置为禁用，时间间隔为0.5秒，窗体如图所示。请编写窗体的Load事件过程和计时器的事件过程，使得程序一开始运行，计时器即变为可用，且每隔0.5秒形状控件向下移动100。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在 下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在 下，工程文件名保存为sjt2.vbp，窗体文件名保存为sjt2.frm。
【正确答案】
【答案解析】[操作步骤]
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见下表。
步骤2：编写程序代码。
Private Sub Form_Load()
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Shape1.Top=Shape1.Top+100
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 在Form Load事件过程中，Timer1的Enabled属性设置为True，计时器变为可用，在Timer1 Timer计时器的事件过程，通过形状控件的Top值每隔0.5秒加100，实现每隔0.5秒形状控件向下移动100。
步骤1：建立界面，并设置控件的属性。程序中用到的控件及属性见下表。
| 控件 | 计时器 | 形状控件 | ||||
| 属性 | Name | Enabled | Interval | Name | Shape | Top |
| 设置值 | Timer1 | False | 500 | Shape | 3 | 0 |
Private Sub Form_Load()
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
Shape1.Top=Shape1.Top+100
End Sub
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
答案考生文件夹 [解析] 在Form Load事件过程中，Timer1的Enabled属性设置为True，计时器变为可用，在Timer1 Timer计时器的事件过程，通过形状控件的Top值每隔0.5秒加100，实现每隔0.5秒形状控件向下移动100。