操作题
2. 在名称为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：调试并运行程序，关闭程序后按题目要求存盘。
控件 |
计时器 |
形状控件 |
||||
属性 |
Name |
Enabled |
Interval |
Name |
Shape |
Top |
设置值 |
Timer1 |
False |
500 |
Shape1 |
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。