下载文档原格式
vb各种排序算法'此文飞本人原创具体出处未知Option ExplicitDim Sums(9999) As Long, Sumb(9999) As Long '生成数据数量可自己设置Private blnSort As Boolean '排序方向Private Declare Function SendMessageFind Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wmsg As Long, ByVal wparam As Integer, ByVal lparam As String) As Long Private Declare Function timeGetTime Lib "winmm.dll" () As LongDim T As LongPrivate Sub Command1_Click()Dim i As Long, z As Long, j As LongList1.ClearDoEventsList1.Visible = FalseFor i = 0 To UBound(Sums)nn:Randomizez = 99999 * Rnd + 9j = SendMessageFind(List1.hWnd, &H18F, 0, z)If j > -1 ThenGoTo nnElseSums(i) = zSumb(i) = zList1.AddItem Sums(i)End IfNextList1.Visible = TrueMe.Caption = "共产生数据:" & UBound(Sums) + 1 & " 项"End SubPrivate Sub Command2_Click()Dim ti As Integer, i As LongList2.ClearDoEventsFor i = 0 To UBound(Sumb)Sums(i) = Sumb(i)NextblnSort = Option1(0).ValueT = timeGetTimeIf Option2(0).Value = True ThenCall mpsort(Sums) '冒泡排序ti = 0End IfIf Option2(1).Value = True ThenCall insort(Sums) '插入排序ti = 1End IfIf Option2(2).Value = True ThenCall QuickSort(LBound(Sums), UBound(Sums)) '快速排序ti = 2End IfIf Option2(3).Value = True ThenCall selctsort(Sums) '选择排序ti = 3End IfIf Option2(4).Value = True ThenCall hirsort(Sums) '希尔排序ti = 4End IfIf Option2(5).Value = True ThenCall duisort(Sums) '堆排序ti = 5End IfIf Option2(6).Value = True ThenCall nsort(Sums) '打乱次序ti = 6End IfLabel1(ti).Caption = timeGetTime - TList2.Visible = FalseDoEventsFor i = 0 To UBound(Sums)List2.AddItem Sums(i)NextList2.Visible = TrueMe.Caption = "成功对：" & UBound(Sums) + 1 & " 项数据进行了排序,用时: " & Label1(ti).Caption & " 毫秒"Exit SubEnd SubPrivate Sub Command3_Click()List1.ClearList2.ClearMe.Caption = "六种排序"End SubPrivate Sub nsort(ByRef arrtosort() As Long)Dim i As Long, j As Long, tmp As LongFor i = LBound(arrtosort) To UBound(arrtosort)j = (UBound(arrtosort) - i) * Rnd + iIf i <> j Thentmp = arrtosort(i)arrtosort(i) = arrtosort(j)arrtosort(j) = tmpEnd IfNext iEnd SubPrivate Sub mpsort(ByRef arrtosort() As Long) '冒泡排序'经过n-1趟子排序完成的,它的时间复杂度为O（n^2）'优点：1.“编程复杂度”很低，很容易写出代码；2.具有稳定性Dim i As Long, j As Long, M As Long, tmp As LongM = UBound(arrtosort) 'm 等于数组上标Do While M '至m等于数组下标j = M - 1M = 0If blnSort ThenFor i = 0 To jIf arrtosort(i) > arrtosort(i + 1) Then '找到后者大于前者地数tmp = arrtosort(i) '两者互换arrtosort(i) = arrtosort(i + 1)arrtosort(i + 1) = tmpM = i '从该位置开始继续查找End IfNext iElseFor i = 0 To jIf arrtosort(i) < arrtosort(i + 1) Thentmp = arrtosort(i)arrtosort(i) = arrtosort(i + 1)arrtosort(i + 1) = tmpM = iEnd IfNext iEnd IfLoopEnd SubPrivate Sub insort(ByRef arrtosort() As Long) '插入排序'插入排序的基本操作就是将一个数据插入到已经排好序的有序数据中,从而得到一个新的、个数加一的有序数据'算法适用于少量数据的排序，时间复杂度为O(n^2)。
第三章顺序结构程序设计§１、预备知识一、结构化程序设计的三种基本结构：顺序结构、分支结构、循环结构顺序结构：就是从头到尾依次执行每一个语句分支结构：根据不同的条件执行不同的语句或者语句体循环结构：重复的执行语句或者语句体,达到重复执行一类操作的目的二、语句概念：语句是执行具体操作的指令。
ＶＢ程序中一行代码称为一条语句。
例如：LetＡ＝３程序中的每条语句都必须遵从语句的语法规则和格式。
１、语句格式的符号规定＜＞尖括号；必选项［］方括号；可选项｜竖线；用来分隔多个选择项，选其中之一项…省略号；表示同类项目的重复出现例如：[<对象名> .]Print [<表达式表>]２、语句书写规则（１）每行通常写一条语句；若将几个语句写在一行，语句间需要用冒号分隔；例如：Ａ＝３：Ｂ＝４（２）一个语句行不能超过１０２３个字符，如果太长，可用“_”续行；例如：Form1.print “I am a _Student.”（３）与其他高级语言一样，在VB中使用的分号、引号、括号等符号都是英文状态下的半角符号，而不能使用中文状态下的全角符号。
例如：If a<5 Then x=10Print "x="; x不能写成If a〈5 Then x=10Print “x=”；x§２、顺序结构的基本语句和方法一、赋值语句Let格式：［Let］<变量名>=<表达式>［〈对象名〉．］<属性名>=<表达式>功能：首先计算赋值号右边表达式的值，然后，将值赋予左边变量或对象属性。
例1+4=? 程序Private Sub Form_Activate()Dim a&, b&, m&a = 1:b = 4m = a + bPrint mEnd Sub例3_2_1Private Sub Form_Click()Dim a As Long, b As String, c As Booleana = 100.23b = "100.23"a = bc = 1 > 5 And -1End Sub说明:（１）当数值赋值于字符变量时，自动转换为字符，但是字符数据赋值与数值变量时，必须为数字，否则出错。
冒泡法：(1) 从第一个元素开始，将相邻的数比较，若为逆序，就交换，比较完一轮，最大的数已沉底，成为数组中的最后一个元素a(n)(2) 对a(1)和a(n-1)的n-1个数进行同(1)的操作，次大的数放入a(n-1)中，完成第二轮排序。
(3) 进行n-1轮排序，所有的数排序完毕。
Dim a%(), i%, j%, n%For i = 1 To n - 1For j = 1 To n - iIf a(j) > a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = t End IfNext jNext iPrintFor i = 1 To nPrint a(i);Next i 顺序交换法：(1) 从第一个元素开始，将它和其后的每个元素进行比较，若为逆序，就交换，比较完一轮，a(1)成为数组中的最小的元素。
(2) 对a(2)和a(n)的n-1个数进行同(1)的操作，次小的数放入a(2)中，完成第二轮排序。
(3) 进行n-1轮排序，所有的数排序完毕。
Dim a%(), i%, j%, n%For i = 1 To n - 1For j = i + 1 To nIf a(i) > a(j) Thent = a(i): a(i) = a(j): a(j) = t End IfNext jNext i选择法(1) 从n个数的序列中选出最小的数，与第1个数交换位置；(2) 除第1个数外，其余n-1个数再按(1)的方法选出次小的数，与第2个数交换位置；(3) 重复(1)n-1遍，最后构成递增序列。
Dim a%(), i%, j%, n%For i = 1 To n – 1k=iFor j = i + 1 To nIf a(j) < a(k) Then k=jNext jif k<>i then t=a(i): a(i)=a(k): a(k)=tNext i 插入法：1. 找到插入数在数组中的位置i2. 将从n到i的每个元素向后移动一个位置3. 插入数插入法1：将一个数插入到有序数列，使插入后数列仍然有序Dim a(1 To 10) As IntegerKey = Val(InputBox("输入一个数"))For i=1 to 9If a(i)>Key Then Exit Fornext iFor k = 9 To i Step -1a(k + 1) = a(k)Next ka(i) = Key插入法2：用上面的插入方法将一批数排序（从小到大），设数列中开始只有一个元素。
第三章顺序结构程序设计§１、预备知识一、结构化程序设计的三种基本结构：顺序结构、分支结构、循环结构顺序结构：就是从头到尾依次执行每一个语句分支结构：根据不同的条件执行不同的语句或者语句体循环结构：重复的执行语句或者语句体,达到重复执行一类操作的目的二、语句概念：语句是执行具体操作的指令。
ＶＢ程序中一行代码称为一条语句。
例如：LetＡ＝３程序中的每条语句都必须遵从语句的语法规则和格式。
１、语句格式的符号规定＜＞尖括号；必选项［］方括号；可选项｜竖线；用来分隔多个选择项，选其中之一项…省略号；表示同类项目的重复出现例如：[<对象名> .]Print [<表达式表>]２、语句书写规则（１）每行通常写一条语句；若将几个语句写在一行，语句间需要用冒号分隔；例如：Ａ＝３：Ｂ＝４（２）一个语句行不能超过１０２３个字符，如果太长，可用“_”续行；例如：Form1.print “I am a _Student.”（３）与其他高级语言一样，在VB中使用的分号、引号、括号等符号都是英文状态下的半角符号，而不能使用中文状态下的全角符号。
例如： If a<5 Then x=10Print "x="; x不能写成If a〈5 Then x=10Print “x=”；x§２、顺序结构的基本语句和方法一、赋值语句Let格式：［Let］<变量名>=<表达式>［〈对象名〉．］<属性名>=<表达式>功能：首先计算赋值号右边表达式的值，然后，将值赋予左边变量或对象属性。
例1+4=? 程序Private Sub Form_Activate()Dim a&, b&, m&a = 1:b = 4m = a + bPrint mEnd Sub例3_2_1Private Sub Form_Click()Dim a As Long, b As String, c As Booleana = 100.23b = "100.23"a = bc = 1 > 5 And -1End Sub说明:（１）当数值赋值于字符变量时，自动转换为字符，但是字符数据赋值与数值变量时，必须为数字，否则出错。
