利用集合进行排序,VB6.0源代码编写,很实用