[填空題] 列表框中有若干項(xiàng)，現(xiàn)在用Timer控件控制時(shí)間，每隔100ms刪除一項(xiàng)，直到刪完為止，用一個(gè)滾動(dòng)條來(lái)顯示刪除的項(xiàng)目數(shù)，請(qǐng)將以下程序補(bǔ)充完整。

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

本題考查列表框和時(shí)鐘控件。單擊命令按鈕時(shí)，滾動(dòng)條最小值為0，最大值為列表框中所有項(xiàng)的最大項(xiàng)數(shù)，也就是List1.ListCount，設(shè)置時(shí)鐘控件Interval屬性，表示觸發(fā)時(shí)鐘控件的事件間隔。每次觸發(fā)時(shí)鐘控件時(shí)，如果列表框中項(xiàng)目數(shù)不為0，則刪除一項(xiàng)，同時(shí)滾動(dòng)條向右移動(dòng)一位，利用滾動(dòng)條的最大值減去現(xiàn)存的列表框項(xiàng)目數(shù)來(lái)表示現(xiàn)在的滑塊位置。