假设你的listview的名称为listview1,变量为a(3)代码为for i=1 to listview1.ListItems.count k=0 if listview1.ListItems(i).Checked=True then k=k+1 a(k)=listview1.ListItems(i).SubItems(1) end fnext