单项选择题

某程序列表框中有许多项，现在用Timer控件控制时间，0.1秒删除一项，直到删完为止，用一滚动条来显示删除的项目，请选择合适的语句，完成此程序( )。




Private Sub Command2_Click()

HSeroll1.Min=0

HScroll1.Max=List1.ListCount

HScroll1.Value=0

Timer1.Interval=______

Timer1.Enabled=True

End Sub

Private Sub Timer1_Timer()

If List1.ListCount>0 Then

List1.RemoveItem 0

HScroll1.Value=HSeroll1.Max-List1.ListCount

Else

Timer1.Enabled=______

MsgBox"全部删除!"

End If

End Sub

点击查看答案&解析