A.将For循环的终值改为List1.ListCount
B.将List1.Selected(i)=True改为List1.List(i).Selected=True
C.将List2.AddItemText改为List2.AddItemList.List(i)
D.将List2.AddItemText改为List2.AddItemList.ListIndex