既然代码中已经有ListBox.Clear语句,那就就事论事吧:For i = ListBox1.ListCount - 1 To 0 Step -1 ListBox1.RemoveItem iNext注意ListBox的index从零开始,所以最大的Index是ListCount的值减1