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)> 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“请输入”& str(I)&“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”请输入“&;str(I)&”编号: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)<sngsq(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)>N(I 1),则“判断前一位是否大于最后一位,tempn=n(I)n(I 1)n(I 1)=tempi=-1”为了更准确,让它重新启动endifnextifori=0to9print”amp;1&;1&;1&;1;下一步输出