我是要快速排序的代码。
假设值都放在数组里
假设有a（0）-a（9）
代码
for i=0 to 8
for j=i+1 to 9
if a(i)>a(j) then
temp=a(i)
a(i)=a(j)
a(j)=temp
next
next
这样就可把数从小到大进行排列本回答被网友采纳
vb快速排序算法 不明白原理 求教 悬赏100
'依此类推，直到i循环aa元素个数次之后，j循环就从aa元素的倒数第一个元素排列到了正数第一个元素 这就是著名的冒泡排序法的递增算法(从小到大排序)。反之递减算法就是把aa(j)>aa(j+1)换成aa(j)<aa(j+1)
VB快速排序算法 能详细写的不要省略
Dim Num(9) As Long '定义一个数组 Dim TmpNum As Long '定义一个临时变量 For i = 0 To 9 Num(i) = InputBox("请输入一个数字：","排序数字输入",100,1000,1000) '通过InputBox输入10个数字，并且加入到数组中 Next for i = 0 To 8 for j = i + 1 to 9 if Num(j...
如何用一文搞懂什么是快速排序?
算法理念：分而治之的艺术快速排序的核心思想，源自于经典的分治法策略。它的每一步都如同魔术师的手法，通过巧妙地选择一个基准值（pivot），将数组分为两个子序列：一个包含所有小于基准的元素，另一个则包含所有大于或等于基准的元素。这一过程被称为一次“划分”，通过递归地对子序列进行同样的操作...
VB 快速排序法 源代码
end function\/\/这是一个分段函数 将数列 分为两段\/\/ sub quick_sort(byval i as integer,byval j as integer)dim t as integer t=position(i,j)quick_sort(i,t-1)quick_sort(t+1,j)end sub 接下来在文本框或列表框中 输出a（9）就可以了;可能有点c 的风格 你原样照应即可啦！
在VB编程中求最大和最小数
首先，我们需要一个数组来存储这些数。例如，我们有五个数：X[1] = 2, X[2] = 5, X[3] = 1, X[4] = 4, X[5] = 3。我们将这些数赋给数组。然后，我们开始冒泡排序过程。在这个过程中，我们不断地比较相邻的两个元素，如果它们的顺序不正确（即第一个数大于第二个数），我们就交换...
vb排序问题
'这个语句是以小到大排序，数组的第一个就是最小数 If Vimt(i) < Vimt(j) Then '这个语句是以大到小排序，数组的第一个就是最大数 '注意上面的二个语句只能用一个！！Num = Vimt(i)Vimt(i) = Vimt(j)Vimt(j) = Num End If Next Sum = Sum & vbCrLf & Vimt(i)Next ...
vb快速排序算法 怎么做呢 我百度了不是很理解 求教 代码按照百度上的...
算法的原理 书上写的很清楚，代码也很多 就不贴了。要想验证排序算法，直接执行是不行的。你得准备好一个乱序的数组当做参数传给它，然后再将计算后的数组与之比较对照，才能看出排序算法的作用。
VB快速排序问题
Private Sub Form_Click()Dim a(1 To 8) As Long, b(1 To 8) As Long a(1) = 63 a(2) = 36 a(3) = 12 a(4) = 69 a(5) = 3 a(6) = 48 a(7) = 66 a(8) = 100 For i = LBound(b) To UBound(b)b(i) = i Next qsort a, b For i = LBound(a) To ...
求教一个VB排序问题:
a(i) = a(j)a(j) = tmp End If Next Next Debug.Print Join(a, vbCrLf)End Sub Function GetValue(ByVal s As String) As Double GetValue = Val(Split(s, Chr(32))(1))End Function 如果你排序的数量巨大，这个冒泡算法效率太低了，可以考虑用快排或借用recordset对象的sort方法......
如何在VB中用递归对数组排序
给你一个吧 快速排序法的递归算法 Public Sub QuickSort2(ByRef aStrSort() As Long, ByVal lngleft As Long, ByVal lngright As Long)Dim i As Long Dim j As Long Dim temp As Long i = lngleft j = lngright temp = aStrSort(i)Do Until i >= j While (aStrSort(j) > temp ...
