VB的排序法的代码

排序的各类很多，最简单的冒泡排序代码如下：

Private Sub Command1_Click()

Dim a(), i As Integer, j As Integer, tmp As Integer

a = Array(1, 3, 2, 5, 4, 6, 9, 7, 8, 0)

Print Join(a, ",")

For i = 0 To UBound(a)

For j = i + 1 To UBound(a)

If a(j) < a(i) Then

tmp = a(j)

a(j) = a(i)

a(i) = tmp

End If

Next

Next

Print Join(a, ",")

End Sub

呵呵。

这个不难理解啊，冒泡法就是先取最大的然后依次往下，排完后就是从大到小，比如1，2，3，4，5

外层就是从第一位到第五位，比较第一位。从头到尾的选

5最大，放到第一位，就变成5,1,2,3,4,下一轮，因为5已经选

出来了，第一位就不用比了。只有1234，这下就只有四位了，次数就是n-i了。到了第几位只跟他后面的几位比，前面的不管，所以。。不知道你明白没

外层就是从1-5，每位 *** 作一次，内层就是从外层选定的位置开始，向后比较。

For

i

=

1

To

50

For

j

=

i

To

50

If

aa(i)

<

aa(j)

Then

kk

=

aa(i)

aa(i)

=

aa(j)

aa(j)

=

kk

End

If

Next

Next

就是把 a(i)和a(j)的值交换````

这个程序就是说第一个和后面一个的数比较，如果比后面一个大，就交换这两个数，然后和下一个进行比较，直到最后一个```

然后在把第二个数重复上述 *** 作，直到最后一个

VB程序如下：

private sub form_click()

randomize

dim a(1 to 1000) as integer

'开始随机生成1000个数

for i=1 to 1000

a(i)=int(rnd10000)

next i

'开始冒泡排序

for i=1 to 1000

for j=i+1 to 1000

if(a(j-1)>a(j)) then

t=a(j-1):a(j-1)=a[j]):a[j])=t

next j

next i

print "排序结果："

for i=1 to 1000

print a(i);

next i

以上就是关于VB的排序法的代码全部的内容，包括:VB的排序法的代码、求详细讲解VB数组用冒泡法排序!、关于VB一维数组的冒泡排序法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！