鹤望兰·流 - U盘病毒专杀工具 Ver 2.0.0（圣诞修正）

http://www.vb-helper.com/HowTo/quiksort.zip Purpose Sort data and remove duplicates. Method Quicksort. See below. Quicksort is a fine general purpose sorting algorithm. For different kinds of data, however, it may not be the fastest or the best. For example, it has trouble sorting lists that contain many duplicate values and the algorithm countingsort is much faster at sorting numeric data. For more information on other sorting algorithms, see the book: Ready-to-Run Visual Basic Algorithms, second edition For more information on the book, go to: www.vb-helper.com/vba2.htm Note also that you may be able to speed this program up by using explicit data types (e.g. Integer or String) instead of Variants. Author This program was provided by Kenneth Ives. Disclaimer This example program is provided "as is" with no warranty of any kind. It is intended for demonstration purposes only. In particular, it does no error handling. You can use the example in any form, but please mention www.vb-helper.com and the original author Kenneth Ives, kenives@cmpu.net. ------------------------------------- Sort.Exe and RemoveDupes.Exe Demo (3/17/98) Quick sort example with option to remove duplicate values. Remove duplicate values from a list box. Author - Kenneth Ives kenives@cmpu.net Any updates or comments, please write. ------------------------------------- All of my routines have been compiled with VB5 Service Pack 3. There are several locations on the web to obtain these modules if you have not installed VB5 Service Pack 3. I did not use any customized controls other that those that are distributed with VB5. [This version was converted in VB4 by Rod Stephens, VB Helper.] ------------------------------------- Sort is an example of using a QuickSort routine instead of a listbox to perform sorting. This will sort string or numeric data. Also, this demo will remove any duplicate values if so desired. The another other demo, named RemoveDupes, will show you how to remove any duplicate values from a sorted list box. Files included are: ReadMe.txt The file you are reading SortDemo.exe QuickSort/RemoveDupes demo program Demo.frm QuickSort/RemoveDupes form RemoveDupes.bas Remove duplicates BAS module Sort.bas Quick Sort BAS module RemoveDupes.exe Remove duplicates demo by itself RemoveDupes.frm RemoveDupes form Legal Stuff: Registration - There is none. Copyright and License - This is freeware to do with as you see fit. The author accepts no responsibility for any damage or data loss caused by this program.