【正确答案】[操作步骤] 步骤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属性值的改变使图片自上而下移动，VSeroll1的Value属性值等于Picture1的Top属性值，使滚动条的滑块随之移动。运用If语句，通过对VScroll1的Value属性值和Form1的Height属性值来判断图片顶端移动到距窗体的下边界的距离是否少于200，如果少于，则Picture1的Top属性值为0，图片再回到窗体顶部，重新向下移动。