[填空題] 列表框中有若干項，現(xiàn)在用Timer控件控制時間，每隔100ms刪除一項，直到刪完為止，用一個滾動條來顯示刪除的項目數(shù)，請將以下程序補充完整。
2021-07-20
[填空題] 列表框中有若干項，現(xiàn)在用Timer控件控制時間，每隔100ms刪除一項，直到刪完為止，用一個滾動條來顯示刪除的項目數(shù)，請將以下程序補充完整。
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，最大值為列表框中所有項的最大項數(shù)，也就是List1.ListCount，設(shè)置時鐘控件Interval屬性，表示觸發(fā)時鐘控件的事件間隔。每次觸發(fā)時鐘控件時，如果列表框中項目數(shù)不為0，則刪除一項，同時滾動條向右移動一位，利用滾動條的最大值減去現(xiàn)存的列表框項目數(shù)來表示現(xiàn)在的滑塊位置。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。