求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”對第I個過程進行排序，最初假設第I個元素是最小的，對于J=I 1 to N“找出最小的元素序列號如果sngsq（J）

vb中冒泡排序法詳解？

也就是說，如果循環(huán)比較完成后數據沒有交換過一次，則表示數據是按順序排列的，并且退出排序循環(huán)。因為要比較一個數字和前一個數字的大小，所以要這樣比較的第一個數字>；第二個數字>；第三個數字>；第四個數字。。。倒數第二個數>比較后的最后一個數，如果沒有數據交換，則表示前一個數大于后一個數，即按從大到小的順序排列，可以退出排序循環(huán)。