vb.net数字排序冒泡,冒泡法10个整数从小到大排序vb

编写一个 VB.NET 程序,产生 100 个 100 以内的随机数,将他们从大到小排序后输出

Private Sub Command1_Click()

成都创新互联公司是专业的凉城网站建设公司,凉城接单;提供成都网站建设、成都网站制作,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行凉城网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

Dim a(1 To 100) As Integer

Dim i As Integer, j As Integer, k As Integer

For i = 1 To 100 '给数组a一百个元素赋值,并换每行十个数字输出来窗体上

a(i) = Int(Rnd * 101)

k = k + 1

Print Tab((k - 1) * 5); a(i);

If k = 10 Then k = 0: Print

Next i

Print

Print

For i = 100 To 2 Step -1 '用冒泡排序法对数组进行排序

For j = 1 To i - 1

If a(j) a(j + 1) Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t

End If

Next j

Next i

For i = 1 To 100 '输出排好序的数组

k = k + 1

Print Tab((k - 1) * 5); a(i);

If k = 10 Then k = 0: Print

Next i

End Sub

vb中冒泡排序法详解

设要排序的数组为a(n)for

j=1

to

n-1'外循环for

i=

j+1

to

n‘内循环if

a(j)a(i)

then’分别比较第i和其后所有个元素,若第i个元素大于第j个元素则交换,相当于把最小的移到第一个,即冒泡到最上个

t=a(i)a(i)=a(j)a(j)=tnext

inext

jend

ifnext

n内循环一次保证最小的元素移到最前,下次排序只需要从第j+1个元素开始就行

vb.net冒泡排序法代码

试试看:

For i = LBound(moto) To UBound(moto) - 1

For j = LBound(moto) To UBound(moto) - 1 - i

If moto(j)  moto(j + 1) Then

t = moto(j)

moto(j) = moto(j + 1)

moto(j + 1) = t

End If

Next j

Next i

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

Print moto(i);

Next i

求详细讲解VB数组用冒泡法排序!

呵呵。

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

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

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

出来了,第一位就不用比了。只有1.2.3.4,这下就只有四位了,次数就是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

VB.NET中的“冒泡排序”问题

如果五个号码为数组元素(1)到(5),正确的排序过程:

对于i = 1至4

对于L = 1到5 - 如果A(L)(L +1)

N = A(L)

A(L),= A(L +1)

(L +1) =

结束如果下一页l

接下来,我

能够到第一台计算机来验证结果,然后分析程序。


文章题目:vb.net数字排序冒泡,冒泡法10个整数从小到大排序vb
分享地址:http://myzitong.com/article/hecode.html