vb.net的隨機(jī)3個(gè)數(shù)字，然后排序一下

給你一個(gè)最簡(jiǎn)單的冒泡排序代碼：

我們提供的服務(wù)有：成都做網(wǎng)站、成都網(wǎng)站建設(shè)、微信公眾號(hào)開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、睢陽ssl等。為近1000家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的睢陽網(wǎng)站制作公司

將三個(gè)數(shù)放到一個(gè)數(shù)組中。

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)

vb中冒泡排序法詳解

設(shè)要排序的數(shù)組為a(n)for

j=1

to

n-1'外循環(huán)for

i=

j+1

to

n‘內(nèi)循環(huán)if

a(j)a(i)

then’分別比較第i和其后所有個(gè)元素，若第i個(gè)元素大于第j個(gè)元素則交換，相當(dāng)于把最小的移到第一個(gè)，即冒泡到最上個(gè)

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

inext

jend

ifnext

n內(nèi)循環(huán)一次保證最小的元素移到最前，下次排序只需要從第j+1個(gè)元素開始就行

VB.NET中的“冒泡排序”問題

如果五個(gè)號(hào)碼為數(shù)組元素（1）到（5），正確的排序過程：

對(duì)于i = 1至4

對(duì)于L = 1到5 - 如果A（L）（L +1）

N = A（L）

A（L），= A（L +1）

（L +1） =

結(jié)束如果下一頁l

接下來，我

能夠到第一臺(tái)計(jì)算機(jī)來驗(yàn)證結(jié)果，然后分析程序。

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