vb.net数字排序冒泡

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

Private Sub Command1_Click()

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

If k = 10 Then k = 0: Print

Next i

Print

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

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

End Sub

vb中冒泡排序法详解

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

j=1

to

n-1'外循环for

i=

j+1

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);

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

呵呵.

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

For

i

=

To

j

If

aa(i)

aa(j)

Then

kk

End

Next

VB.NET中的"冒泡排序"问题

N = A（L）

A（L）,= A（L +1）

（L +1） =

结束如果下一页l

此时此刻呢,我

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

以上就是土嘎嘎小编为大家整理的vb.net数字排序冒泡相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！