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

vb選擇法排序代碼？

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

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

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

打印“排序前”

forI=1ton

msgbox”請輸入“&str（I）&；“

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

printngsq（I）

next

print”排序后“

”row Order

forI=1ton-1

intmin=I”表示第I順序，首先假設(shè)第i個元素是最小的

forj=i 1ton“找出最小的元素序列號

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

nextj

”將找到的最小元素與第i個元素交換

sngt=sngsq（i）

sngsq（i）=sngsq（intmin）

sngsq（intmin）=sngtnexti

“打印輸出

forI=1ton

printngsq（I）”不帶換行符的輸出

nexti