www.5129.net > 冒泡排序vB解析

冒泡排序vB解析

Dim i, j, intmin As Integer, n As Integer Dim sngsq(), sngt As Single '输入原始数据 n = Val(InputBox("请输入排序的个数N的值")) ReDim sngsq(n) '重新定义数组 Print "排序前" For i = 1 To n MsgBox "请输入第" & Str(i) & "个数:" sngsq(

冒泡排序法分为降序和升序,我就说升序,其实都差不多,如下: 假如你要大到小的排列5个数,分别为5,3,6,8,7 那么程序的思路是把大的数字一个劲的往前面移,就像泡泡往水面上浮出一样 那么用一个数组a(5)来获取这5个数,顺序还是原来

呵呵. 这个不难理解啊,冒泡法就是先取最大的然后依次往下,排完后就是从大到小,比如1,2,3,4,5外层就是从第一位到第五位,比较第一位.从头到尾的选 5最大,放到第一位,就变成5,1,2,3,4,下一轮,因为5已经选 出来了,第一位就不用比了.只有1.2.3.4,这下就只有四位了,次数就是n-i了.到了第几位只跟他后面的几位比,前面的不管,所以..不知道你明白没外层就是从1-5,每位操作一次,内层就是从外层选定的位置开始,向后比较. For i = 1 To 50 For j = i To 50 If aa(i) 评论0 0 0

冒泡法排序(升序) 基本思想:(将相邻两个数比较,小的调到前头) 1)有n个数(存放在数组a(n)中),第一趟将每相邻两个数比较,小的调到前头,经n-1次两两相邻比较后,最大的数已“沉底”,放在最后一个位置,小数上升“浮起”

冒泡排序(Bubble Sort),是一种计算机科学领域的较简单的排序算法.它重复地走访过要排序的数列,一次比较两个元素,如果他们的顺序错误就把他们交换过来.走访数列的工作是重复地进行直到没有再需要交换,也就是说该数列已经排序

For i = 1 To 10 For j = 1 To 10 - i If a(j) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(j) a(j) = temp End If Next j Next i

看上面那一大段,我晕了()b下面的是从小到大排序的,从大到小只需改一个“>”号,看下面的注释,整个过程不变的.private sub command1_click()dim x(1 to 5) as double, i%, j%, tx(1) = val(text1)x(2) = val(text2)x(3) = val(text3)x(4) =

' 冒泡排序法(升序) public sub popoasc(byref bobo() as string, byval m as integer)dim i as integer dim j as integer dim tem as string'冒泡排序法,核心程序 for i = 1 to m - 1 for j = 1 to m - i if (bobo(j) > bobo(j + 1)) then tem = bobo(j) bobo(j) = bobo(j + 1) bobo(j + 1) = tem end if next j next iend sub

冒泡排序法:Option Explicit Private Sub Form_Click() Const N = 10 Dim i%, a(1 To N), m%, j%, t% Randomize For i = 1 To N '随机输出10个1位数 a(i) = Int(Rnd * 9 + 1) Print a(i); Next i Print For i = 1 To N - 1 '采用冒泡排序 For j = 1 To N - 1 If a(j) >

Option Explicit Option Base 1 Dim xx Private Sub Command1_Click() '选择排序法 Dim i As Integer, j As Integer, t As Integer Debug.Print: Debug.Print "选择排序法 从小到大排列" For i = 1 To 9 For j = i + 1 To 10 '"<"从大e68a

网站地图

All rights reserved Powered by www.5129.net

copyright ©right 2010-2021。
www.5129.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com