某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序( )。
Private Sub Command2_Click()
HScro111.Min=0
HSero111.Max=List1.ListCount
HScro111.Value=0
Timer1.Interval=
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
If List1.ListCount>0 Then
List1.RemoveItem 0
HScro111.Value=HScrolll.Max-List1.ListCount
Else
Timer1.Enabled=
End If
End Sub
参考答案:A
解析: 本题的难点在于考生能从全局上读懂代码,在按钮的单击事件中,设置时钟控件的时间间隔,其单位是毫秒,所以0.1秒应设置为100毫秒;在Timer事件中,如果已经全部删除列表框中的内容,则应将Timer1关闭,不再执行删除操作,所以Enabled属性应该设置为False。