vb選擇法排序代碼？Dimsngsq（），sngtassingle“輸入原始數(shù)據(jù)n=Val（InputBox（”請(qǐng)輸入已排序的n個(gè)數(shù)）redimsngsq（n）”重定義數(shù)組打印“排序前”forI=1t

vb選擇法排序代碼？

Dimsngsq（），sngtassingle“輸入原始數(shù)據(jù)

n=Val（InputBox（”請(qǐng)輸入已排序的n個(gè)數(shù)）

redimsngsq（n）”重定義數(shù)組

打印“排序前”

forI=1ton

msgbox”請(qǐng)輸入“&str（I）&；“

sngsq（I）=Val（InputBox（”please input“）”將輸入數(shù)據(jù)轉(zhuǎn)換成數(shù)字類(lèi)型

printngsq（I）

next

print”排序后“

”row Order

forI=1ton-1

intmin=I”對(duì)于第I順序，最初假設(shè)第I個(gè)元素是最小的

forj=I 1ton”查找最小的元素序號(hào)

ifsngsq（J）<sngsq（intmin）thenintmin=J

nextj

“用第i個(gè)元素交換找到的最小元素

sngt=sngsq（i）

sngsq（i）=sngsq（intmin）

sngsq（intmin）=sngt

nexti

]對(duì)于i=1ton

printingsq（i）”非換行輸出

nexti

1。選擇sort to send（從小到大）private sub command1Click（）Dim a（10）As Integer For i=1 to 10隨機(jī)化a（i）=Int（Rnd*90）10 Next i For i=1 to 9 For j=i 1 to 10 If a（i）> a（j），則r=a（i）a（i）=a（j）a（j）=r End IfNext j Next i For i=1 To 10打印a（i）Next Iend sub2，冒泡排序私有子命令1uclick（）Dim a（10）As Integer For i=1 To 10隨機(jī)化a（i）=Int（Rnd*90）10 Next i For i=1 To 9 For j=1 To 10-i如果a（j）> a（j 1），則r=a（j）a（j）=a（j1） a（j 1）=r結(jié)束，如果下一個(gè)j下一個(gè)i，對(duì)于i=1到10，則打印a（i）下一個(gè)iEnd Sub