快速排序vb代码：

Dim a() As Integer '定义一个动态数组

Sub qsort(a() As Integer, ByVal kaishi As Integer, ByVal jieshu As Integer)

Dim temp As Integer, j As Integer, i As Integer

i = kaishi: j = jieshu '将i、j作为指针，从两侧向中部移动

If kaishi < jieshu Then '控制是否进入循环

temp = a(kaishi) '将数组第一个值赋给temp，暂时充当对比量

While i < j

Do While i < j '指针j从右向左移动，当遇到比temp小的数时，将该值移动到指针i的位置，并使i向右移动一位

If a(j) <= temp Then a(i) = a(j): i = i + 1: Exit Do

j = j - 1

Loop

Do While i < j '指针i从左向右移动，当遇到比temp大的数时，将该值移动到指针j的位置，并使j向左移动一位

If a(i) > temp Then a(j) = a(i): j = j - 1: Exit Do

i = i + 1

Loop

Wend

a(i) = temp

Call qsort(a(), kaishi, i - 1) '递归二分法过程进行排序

Call qsort(a(), i + 1, jieshu)

Else

Exit Sub

End If

End Sub

Private Sub Command1_Click()

Me.Cls

Dim n As Integer, u As Integer, l As Integer

n = Val(Text1) '令n=文本框中的值

ReDim a(n - 1) As Integer '重新定义数组

u = UBound(a): l = LBound(a) '得到数组的上下标

Randomize '给数组随机赋值

For i = l To u '输出排序前的数组

a(i) = Rnd * 90 + 10

Print a(i);

Next

Print vbCr

End Sub

Private Sub Command2_Click()

Dim u As Integer, l As Integer

u = UBound(a): l = LBound(a)

Call qsort(a, l, u) '对数组使用二分法

For i = l To u '输出排序后的数组

Print a(i);

Next

End Sub

vb中冒泡排序法详解？
气泡排序的基本思想(升序)：1)有n个数字(存储在数组a(n)中)。第一次，每两个相邻的数字进行比较，较小的一个移到前面。n-1相邻比较后，最大的数被“下沉”放在最后一位，小数上升“浮动”；2)第二轮，剩余的n-1个数(最大的数被“下沉”)按上述方法进行比较，n-2对相邻比较后得到次大数；3)类推，对n-1个数进行n-1比较，第j次行程进行n-j成对比较。对于I=1到N-1，对于J=1到N-1，对于J=1到N-I，如果a(J)&gt a(J 1)，则temp=a(J)：a(J)=a(J)=a(J 1)=tempend if next J next J next I
dim I，J，int min为整数，N为整数dim sngsq()，sngt as single“input original data n=Val(输入框(”请输入排序数n值“))ReDim sngsq(n)”redefine array printprintto重定义数组，printPrintPrintArray，重定义数组printPrintPrintArray，重定义数组，redefine the array printPrintPrintPrintn(n)“重新定义数组，将I=1的and”“Before sorting”重新定义为nmsgbox“请输入”&amp str(I)&amp“Number:”sngsq(I)=Val(InputBox(“please input”)”将输入数据转换为数字类型print sngsq(I)nextprint”排序后排序“对于I=1到N-1inmsgbox=I”第I次排序，首先假设第I个元素是J=i1到N”的最小元素序数如果sngsq(J)
求VB冒泡排序法的代码？
本文定义了原始数据的数组N=Val(InputBox(“please input the number of sorting，”)redimmsngsq(n) “重新定义数组打印”在排序前“forI=1tonmsgbox”请输入“&amp；str(I)&amp”编号：sngsq(I)=Val(输入框(“请输入”“)”将输入数据转换为数字类型printsngsq(I)nextprintprin n n(n)\将输入数据转换为数字类型printsngsq(I)nextprintprin prinn n n(n)将输入数据转换为数值类型printsngsq(I)nextprintprin(I)nextprintprin n n(n)将输入数据转换为数值类型printsnit是I-Pass排序的一个好主意，初始假设是第I个元素最小，forej=i1ton“如果fsngsq(J)&ltsngsq(int min)thenintmin=jnnextj，则查找最小的元素数和第I个元素，将找到的最小元素与第i个元素交换sngt=sngsq(i)sngsq(i)sngsq(i)=sngsq(int min)sngsq(int min)=sngtnexti“打印并输出forI=1tonprintsngsq(i)”不换行，输出输出输出行不换行，输出输出输出不换行，输出输出输出不换行，output output不断线，output output不断线，line output output，output output output output，output，output nexti
为了使其更精确，让它重新启动endifnextifori=0to9randominize“initialize n(I)=RND*100”为下一个值分配随机值，并将其用作临时存放处，以备更换位置。对于I=0to8ifn(I)&GTN(I 1)，则“判断前一位是否大于最后一位，tempn=n(I)n(I 1)n(I 1)=tempi=-1”为了更准确，让它重新启动endifnextifori=0to9print”amp；1&amp；1&amp；1&amp；1；下一步输出

VB.Net冒泡排序代码(有详细解释)
 
   冒泡排序是一种最常见的排序方法。VB.Net可写出代码如下：
   

    Function BubbleSort(ByVal Ar As Array)
        Dim i As Integer
        Dim j As Integer
        Dim Temp                    '不定义变量类型,以自动适应数组Ar的类型
        Dim Flag As Boolean
        Dim n As Integer = Ar.Length - 1
 
        For i = 1 To n
           
            Flag = False
 
            '从第1个元素开始,比较每两个相邻元素的大小,让大元素下沉,小元素上浮
            '经过一轮循环,可使数组中最大元素下沉到数组最底部
            '进入下一轮循环,只对前 n - i 个元素进行相邻比较(已排到后面的不用比较)
            For j = 0 To n - i 
                If Ar(j) > Ar(j + 1) Then 
                    Temp = Ar(j)
                    Ar(j) = Ar(j + 1)
                    Ar(j + 1) = Temp
                    Flag = True         '如果有排序行为，则设为 True
                End If
            Next
 
            If Flag = False Then   '如未排序,说明已完成整个排序过程,退出
                Exit For
            End If
        Next
    End Function
 
 
    示例
    
    Dim A() As Integer= {5,7,2,4,11,9,6}
   
    BubbleSort(A)   结果会是{2,4,5,6,7,9,11}
   
    Dim B() As String= {"DD","GG","CC","FF","JJ","AA","BB"} 
   
    BubbleSort(B)   结果会是{"AA","BB","CC","DD","FF","GG","JJ"}

vb快速排序源代码




a（n）个元素排序原理： n 个元素被分成三段（组）：左段l e f t，右段r i g h t和中段m i d d l e。中段仅包含一个元素。左段中各元素都小于等于中段元素，右段中各元素都大于等于中段元素。因此l e f t和r i g h t中的元素可以独立排序，并且不必对l e f t和r i g h t的排序结果进行合并。m i d d l e中的元素被称为支点( p i v o t )。 使用快速排序方法对a(n)排序 从a(n)中选择一个元素作为m i d d l e，该元素为支点 把余下的元素分割为两段left
 和r i g h t，使得l e f t中的元素都小于等于支点，而right 中的元素都大于等于支点 递归地使用快速排序方法对left 进行排序 递归地使用快速排序方法对right 进行排序 所得结果为l e f t + m i d d l e + r i g h t 比如：

考察元素序列[ 4 , 8 , 3 , 7 , 1 , 5 , 6 , 2 ]。假设选择元素6作为支点，则6位于m i d d l e；4，3，1，5，2位于l e f t；8，7位于r i g h t。当left 排好序后，所得结果为1，2，3，4，5；当r i g h t排好序后，所得结果为7，8。把right 中的元素放在支点元素之后， l e f t中的元素放在支点元素之前，即可得到最终的结果[ 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 ]。


分享到：







热心网友
Private Sub Command1_Click()

Dim a(10) As Integer

For i = LBound(a) To UBound(a)

a(i) = Int(Rnd * 100)

Next i

qsort a, LBound(a), UBound(a)

For i = LBound(a) To UBound(a)

Print a(i);

Next i

Print

End Sub


Sub swap(a As Integer, b As Integer)

t = a: a = b: b = t

End Sub


Sub qsort(a() As Integer, ByVal p As Integer, ByVal r As Integer)

Dim q As Integer

If p >= r Then Exit Sub

q = p

For i = p To r - 1

If a(i) < a(r) Then swap a(i), a(q): q = q + 1

Next i

swap a(q), a(r)

qsort a, p, q - 1

qsort a, q + 1, r

End Sub