vb中冒泡排序法详解？

气泡排序的基本思想(升序)：1)有n个数字(存储在数组a(n)中)。第一次，每两个相邻的数字进行比较，较小的一个移到前面。n-1相邻比较后，最大的数被“下沉”放在最后一位，小数上升“浮动”；2)第二轮，剩余的n-1个数(最大的数被“下沉”)按上述方法进行比较，n-2对相邻比较后得到次大数；3)类推，对n-1个数进行n-1比较，第j次行程进行n-j成对比较。对于I=1到N-1，对于J=1到N-1，对于J=1到N-I，如果a(J)&gt a(J 1)，则temp=a(J)：a(J)=a(J)=a(J 1)=tempend if next J next J next I

dim I，J，int min为整数，N为整数dim sngsq()，sngt as single“input original data n=Val(输入框(”请输入排序数n值“))ReDim sngsq(n)”redefine array printprintto重定义数组，printPrintPrintArray，重定义数组printPrintPrintArray，重定义数组，redefine the array printPrintPrintPrintn(n)“重新定义数组，将I=1的and”“Before sorting”重新定义为nmsgbox“请输入”&amp str(I)&amp“Number:”sngsq(I)=Val(InputBox(“please input”)”将输入数据转换为数字类型print sngsq(I)nextprint”排序后排序“对于I=1到N-1inmsgbox=I”第I次排序，首先假设第I个元素是J=i1到N”的最小元素序数如果sngsq(J)

求VB冒泡排序法的代码？

本文定义了原始数据的数组N=Val(InputBox(“please input the number of sorting，”)redimmsngsq(n) “重新定义数组打印”在排序前“forI=1tonmsgbox”请输入“&amp；str(I)&amp”编号：sngsq(I)=Val(输入框(“请输入”“)”将输入数据转换为数字类型printsngsq(I)nextprintprin n n(n)\将输入数据转换为数字类型printsngsq(I)nextprintprin prinn n n(n)将输入数据转换为数值类型printsngsq(I)nextprintprin(I)nextprintprin n n(n)将输入数据转换为数值类型printsnit是I-Pass排序的一个好主意，初始假设是第I个元素最小，forej=i1ton“如果fsngsq(J)&ltsngsq(int min)thenintmin=jnnextj，则查找最小的元素数和第I个元素，将找到的最小元素与第i个元素交换sngt=sngsq(i)sngsq(i)sngsq(i)=sngsq(int min)sngsq(int min)=sngtnexti“打印并输出forI=1tonprintsngsq(i)”不换行，输出输出输出行不换行，输出输出输出不换行，输出输出输出不换行，output output不断线，output output不断线，line output output，output output output output，output，output nexti

为了使其更精确，让它重新启动endifnextifori=0to9randominize“initialize n(I)=RND*100”为下一个值分配随机值，并将其用作临时存放处，以备更换位置。对于I=0to8ifn(I)&GTN(I 1)，则“判断前一位是否大于最后一位，tempn=n(I)n(I 1)n(I 1)=tempi=-1”为了更准确，让它重新启动endifnextifori=0to9print”amp；1&amp；1&amp；1&amp；1；下一步输出