求VB冒泡排序法的代碼？Dim I，J，intmin as integer，n as integerdim sngsq（），sngt as single “input raw data n=Val（I

求VB冒泡排序法的代碼？

Dim I，J，intmin as integer，n as integerdim sngsq（），sngt as single “input raw data n=Val（InputBox（“please input the number of sorted n）”）ReDim sngsq（n）“redefine array print ”fore sorting “for I=1 to nmsgbox “please input the number of ”&str（I）& “：“sngsq（I）=Val（InputBox（“please input”）“Convert the input data to numeric print sngsq（I）nextprint”排序，然后“sort for I=1 to N-1 intmin=I”對(duì)第I個(gè)過(guò)程進(jìn)行排序，最初假設(shè)第I個(gè)元素是最小的，對(duì)于J=I 1 to N“找出最小的元素序列號(hào)如果sngsq（J）

vb中冒泡排序法詳解？

也就是說(shuō)，如果循環(huán)比較完成后數(shù)據(jù)沒(méi)有交換過(guò)一次，則表示數(shù)據(jù)是按順序排列的，并且退出排序循環(huán)。因?yàn)橐容^一個(gè)數(shù)字和前一個(gè)數(shù)字的大小，所以要這樣比較的第一個(gè)數(shù)字>；第二個(gè)數(shù)字>；第三個(gè)數(shù)字>；第四個(gè)數(shù)字。。。倒數(shù)第二個(gè)數(shù)>比較后的最后一個(gè)數(shù)，如果沒(méi)有數(shù)據(jù)交換，則表示前一個(gè)數(shù)大于后一個(gè)數(shù)，即按從大到小的順序排列，可以退出排序循環(huán)。