求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），則找出最小的元素序列號