[填空题] 列表框中有若干项，现在用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.List

参考答案：

List1.ListCount；Interval；HScroll1.Max

● 参考解析

本题考查列表框和时钟控件。单击命令按钮时，滚动条最小值为0，最大值为列表框中所有项的最大项数，也就是List1.ListCount，设置时钟控件Interval属性，表示触发时钟控件的事件间隔。每次触发时钟控件时，如果列表框中项目数不为0，则删除一项，同时滚动条向右移动一位，利用滚动条的最大值减去现存的列表框项目数来表示现在的滑块位置。

当前位置：IT认证＞BASIC题库

相关题目: