VB.Net冒泡排序代码

FunctionBubbleSort(ByValArAsArray)

DimiAsInteger

DimjAsInteger

DimTemp'不定义变量类型,以自动适应数组Ar的类型

DimFlagAsBoolean

DimnAsInteger =Ar.Length - 1

Fori = 1Ton

Flag =False

'从第1个元素开始,比较每两个相邻元素的大小,让大元素下沉,小元素上浮

'经过一轮循环,可使数组中最大元素下沉到数组最底部

'进入下一轮循环,只对前 n - i 个元素进行相邻比较(已排到后面的不用比较)

Forj = 0Ton - i

IfAr(j) > Ar(j + 1)Then

Temp = Ar(j)

Ar(j) = Ar(j + 1)

Ar(j + 1) = Temp

Flag =True'如果有排序行为，则设为 True

EndIf

Next

IfFlag =FalseThen'如未排序,说明已完成整个排序过程,退出

ExitFor

EndIf

Next

EndFunction

示例

DimA()AsInteger= {5,7,2,4,11,9,6}

BubbleSort(A)结果会是{2,5,6,11}

DimB()AsString= {"DD","GG","CC","FF","JJ","AA","BB"}

BubbleSort(B)结果会是{"AA","BB","DD","JJ"}