【正确答案】【操作步骤】
   步骤1：打开本题工程文件。
   步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。
   参考答案(字体加粗部分是需考生填入的内容)
   Private Sub Command1_Click()
   Timer1.Enabled=True
   End Sub
   Private Sub Command2_Click()
   Timer1.Enabled=FalSe
   End Sub
   Private Sub Form_Load()
   Timer1.Interval=500 '设置Timer1执行间隔数，以毫秒计算
   End Sub
   Private Sub Timer1_Timer()
   Picture1.Top=Picture1.Top+200 '顶端位置保持一致
   VScroll1.Value=Picture1.Top '滚动条滑块的位置与图片顶端位置保持一致
   If VScroll1.Value  +200  ＞=Form1.Height-200 Then
   Picture1.Top=0 '当图片顶端移动到距窗体下边界距离少于200时，则图片重新向下移动
   End If
   End Sub
   步骤3：调试并运行程序，关闭程序后按题目要求存盘。
   

【答案解析】[考点] 本题考点有：计时器的Enabled和Interval属性、滚动条的Value属性、图片框的Top属性、Form1的Height属性以及If判断语句。
在Command1_Click事件过程中，Timer1的Enabled属性设置为True，图片开始移动，在Command2_Click事件过程中，Timer1的Enabled属性设置为False，图片停止移动。窗体装入时Timer1的Interval属性设置为500，表示Timer1时间间隔为0.5秒。在Timer1_Timer事件过程中，Picture1的Top属性值的改变使图片自上而下移动，VScroll1的Value属性值等于Picture1的Top属性值，使滚动条的滑块随之移动。运用If语句，通过对VScroll1的Value属性值和Form1的Height属性值来判断图片顶端移动到距窗体的下边界的距离是否少于200，如果少于，则Picture1的Top属性值为0，图片再回到窗体顶部，重新向下移动。