[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。Private Sub Command1

[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。 Private Sub Command1

[填空题] 列表框中有若干项，现在用Timer控件控制时间，每隔100ms删除一项，直到删完为止，用一个滚动条来显示删除的项目数，请将以下程序补充完整。

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，则删除一项，同时滚动条向右移动一位，利用滚动条的最大值减去现存的列表框项目数来表示现在的滑块位置。