你限定了输入100字，无法输入代码。只好提示：1，用两个循环嵌套，首句写成For i = 0 To List1.ListCount 2，格式同一般排序。List1变量用List1.List(i)表示，如果是数字要用到Val()来转换
手动排序，先读入数组，利用冒泡法将组合框数据排序，然后再重新显示组合框内容。限于篇幅不给例子了。
