冒泡法排序vb.net 冒泡法排序c语言程序

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

接下来，我

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

相关问答

Q1: vb.net的随机3个数字，然后排序一下

给你一个最简单的冒泡排序代码：

将三个数放到一个数组中。

a(0)=val(text1.text):a(1)=val(text2.text):a(2)=val(text3.text)

dim flag as Boolean,temp as Integer

for i = 0 to 2

flag = true

for j = 2 to 1

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

temp = a(j-1)

a(j-1) = a(j)

a(j) = temp

flag = false

end if

next j

if flag then Exit For

next i

text4.text=a(0):text5.text=a(1):text6.text=a(2)

Q2: 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