![[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。 Private Sub Command1](http://www.mshxw.com/aiimages/31/255049.png "[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。 Private Sub Command1")
[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。
![[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。 Private Sub Command1](/uploadfile/member/20180926/1537964787.jpg "[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。 Private Sub Command1")
Private Sub Command1_Click()
HScroll1.Min=0
HScroll1.Max=______
HScroll1.Value=0
Timer1.______=100
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
If List1.ListCount＞0 Then
List1.RemoveItem (0)
HScroll1.Value=______-List1.ListCount
Else
Timer1.Enabled=False:MsgBox"全部删除!"
End If
End Sub
参考答案：
List1.ListCount；Interval；HScroll1.Max问题解析:
本题考查列表框和时钟控件。单击命令按钮时，滚动条最小值为0，最大值为列表框中所有项的最大项数，也就是List1.ListCount，设置时钟控件Interval属性，表示触发时钟控件的事件间隔。每次触发时钟控件时，如果列表框中项目数不为0，则删除一项，同时滚动条向右移动一位，利用滚动条的最大值减去现存的列表框项目数来表示现在的滑块位置。
