VB 快速排序法 源代码

Question

快速排序原理已经知道，只是递归计算的细节不懂，求VB源代码

Answer 1

是这样的：
假设有 2 3 5 1 0 8 7 -6 9
dim a(9) as integer //全局变量

function position(byval i as integer,byval j as integer)as integer
dim temp as integer
flag=a(0);
while i<j
while i<j and flag<a(j)
j--
end while
temp=flag
flag=a(j)
a(j)=temp
while i<j and a(i)<a(j)
i++
end while
temp=a(i)
a(i)=a(j)
a(j)=temp
end while
return i
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 的风格
你原样照应即可啦！