杨金柱的回答：

问题有点乱啊……小弟认为的话做一个Sub，在每次删除List和添加list过程的后面加上这个Sub Public?Sub?List1Change()?'先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为????List1。当发生删除List或添加List事件之后加上这个事件。 ?For?i?=?0?To?List1.ListCount?-?1 ??If?IsNumeric(CStr(Split(Trim(List1.List(i))?&?"?",?"?")(0)))?=?True?Then ????List1.List(i)?=?i?+?1?&?"?"?&?Split(List1.List(i)?&?"?",?"?")(1) ????'如果已有标记，更新标记 ??Else ????List1.List(i)?=?i?+?1?&?"?"?&?Trim(List1.List(i)) ????'如果没有标记则添加标记 ??End?If ?Next End?Sub Private?Sub?cmd1_Click() List1.AddItem?"今天的天气是:"?&?cmd1.Caption Call?List1Change End?Sub Private?Sub?Cmd2_Click() List1.AddItem?"今天的天气是:"?&?Cmd2.Caption Call?List1Change End?Sub完成的效果： 否则的话建议你用ListView，我比较擅长ListView，功能多，而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。

何浩然的回答：

问题有点乱啊……小弟认为的话做一个Sub，在每次删除List和添加list过程的后面加上这个Sub Public?Sub?List1Change()?'先添加两个command，分别为Cmd1，Cmd2和一个Listbox，为????List1。当发生删除List或添加List事件之后加上这个事件。 ?For?i?=?0?To?List1.ListCount?-?1 ??If?IsNumeric(CStr(Split(Trim(List1.List(i))?&?"?",?"?")(0)))?=?True?Then ????List1.List(i)?=?i?+?1?&?"?"?&?Split(List1.List(i)?&?"?",?"?")(1) ????'如果已有标记，更新标记 ??Else ????List1.List(i)?=?i?+?1?&?"?"?&?Trim(List1.List(i)) ????'如果没有标记则添加标记 ??End?If ?Next End?Sub Private?Sub?cmd1_Click() List1.AddItem?"今天的天气是:"?&?cmd1.Caption Call?List1Change End?Sub Private?Sub?Cmd2_Click() List1.AddItem?"今天的天气是:"?&?Cmd2.Caption Call?List1Change End?Sub完成的效果： 否则的话建议你用ListView，我比较擅长ListView，功能多，而且ListView控件在每个List前加序号是不用建一个Sub。反正就是功能比较全→_→。

噯鉨①輩zi的回答：

listview1.columns.add("1", 60); listview1.columns.add("2", 60); listview1.columns.add("3", 60); .. listviewitem lvi = new listviewitem("", 0); lvi.subitems.add(""); lvi.subitems.add(""); .. listview1.items.add(lvi);

张平平的回答：

1直接在属性窗口中修改。 2.在窗体初始化事件里修改。 3.设置列数：ColumnCount； 4.设置宽度：ColumnWidths ?；