精华内容
下载资源
问答
  • 高中vb中冒泡排序法演示动画

    热门讨论 2009-10-15 11:54:55
    冒泡排序法演示动画 高中算法与程序设计 自己用flash做的
  • 冒泡排序VB

    2015-03-28 21:43:21
    冒泡排序VB.NET版,重温简洁版。有需要的可以下载。谢谢评价
  • vb冒泡排序算法

    2021-05-11 20:11:26
    vb冒泡排序算法源代码示例,将输入的数据转换为数值型,对第i遍排序,初始假定第i个元素最小,将找出的最小元素与第i个元素交换,对冒泡算法不熟悉的推荐下载本款VB源码实例。 运行环境:Windows/VB6
  • VB冒泡法排序源码

    2013-09-17 09:22:36
    VB写的冒泡法排序源码,可以自由输入需要排序的数字,也可以选择降序排序还是升序排序
  • VB冒泡排序法详细教学

    万次阅读 2012-08-14 10:09:28
    冒泡排序法作为二级考试比较常见的题目,难点有3个 数组定义 变量值交换 排序算法的实现 前两个比较简单,后面的我来分析一下,首先以升序(从小到大)为例 第1步 第一个数与第二个数比较,如果第一...

    冒泡排序法作为二级考试中比较常见的题目,难点有3个


    数组定义

    变量值交换

    排序算法的实现


    前两个比较简单,后面的我来分析一下,首先以升序(从小到大)为例

    第1步   第一个数与第二个数比较,如果第一个数大于第二个,则交换变量,直到倒数第二个数(i-1),将最大的排在最后面

    第2步   最大的数被推倒最后,故不用管它,继续执行第一步,但执行到上一步倒数第二个数之前一个数(j-i)


    分析步骤可以看出,这个过程需要两个循环进行嵌套,现在以数组上标为 变量 i  为例,代码如下

    '该代码测试时点击窗体执行,复制代码请单击两张纸图标,查看代码请单击两张纸图标左边的图标↑↑
    
    Private Sub Form_click()
    Dim a(1 To 5) As Integer
    a(1) = 37
    a(2) = 21
    a(3) = 56
    a(4) = 23
    a(5) = 20
    
    
    n = UBound(a)   '取得数组上界
    
    
    '可替换代码开始
    For j = n - 1 To 1 Step -1 '范围逐渐缩小
     For i = 1 To j Step 1  '两两交换
       If a(i) > a(i + 1) Then   '第18行
         ls = a(i)
         a(i) = a(i + 1)
         a(i + 1) = ls
         
       End If
     Next i
    Next j
    '可替换代码结束
    
    For i = 1 To n Step 1
     num = num & a(i) & " "   '将排序好的数组保存到变量
    Next i
    
    Print num   '打印数组
    
    
    End Sub



    当然嵌套循环那部分也可以写成这样,这也是网上的一般写法


    For j = 1 To n - 1 Step 1 '范围逐渐缩小
     For i = 1 To n - j Step 1 '两两交换
       If a(i) > a(i + 1) Then
         ls = a(i)
         a(i) = a(i + 1)
         a(i + 1) = ls
         
       End If
     Next i
    Next j

    step 1此时可以省略


    当然,步骤也可以这样,把最小的排在最前面

    第1步   倒数第一个数与倒数第二个数比较,如果倒数第一个数小于倒数第二个,则交换变量,直到第二个数 2

    第2步   最小的数被推倒最前,故不用管它,继续执行第一步,但执行到上一步第二个数之后一个数 3


    替换代码那段换成这样

    For j = 2 To n Step 1 '范围逐渐缩小
     For i = n To j Step -1 '两两交换
       If a(i) < a(i - 1) Then
         ls = a(i)
         a(i) = a(i - 1)
         a(i - 1) = ls
         
       End If
     Next i
    Next j
    

    至于降序排列,之前代码里面的判断语句将  ">" 改为 "<"  或者 "<" 改为 ">"  即可,就是这样>< >< >< >< > <   ><    > <   ><   ><

    展开全文
  • VB冒泡排序

    2020-03-23 11:13:02
    //先按照LocationNo排序,再按照DNNoDNItemNo排序 Private Sub Sort(ByVal boxList As IList(Of ShippingServiceDTO.SuggestionBox)) Dim locationNo As String = "" Dim boxNo As String = "" Dim fID...
    //先按照LocationNo排序,再按照DNNoDNItemNo排序
    Private Sub Sort(ByVal boxList As IList(Of ShippingServiceDTO.SuggestionBox))
            Dim locationNo As String = ""
            Dim boxNo As String = ""
            Dim fIDNo As String = ""
            Dim mLFB As String = ""
            Dim quantity As String = ""
            Dim status As String = ""
            Dim dNNoDNItemNo As String = ""
            Dim rExChange As Integer
    
            For i As Integer = 0 To boxList.Count - 1
                For j As Integer = i + 1 To boxList.Count - 1
                    rExChange = SortContext(boxList(i).LocationNo, boxList(j).LocationNo)
                    If (rExChange = 0) Then
                        rExChange = SortContext(boxList(i).DNNoDNItemNo, boxList(j).DNNoDNItemNo)
                    End If
                    If (rExChange = 1) Then
                        locationNo = boxList(j).LocationNo
                        boxNo = boxList(j).BoxNo
                        fIDNo = boxList(j).FIDNo
                        mLFB = boxList(j).MLFB
                        quantity = boxList(j).Quantity
                        status = boxList(j).Status
                        dNNoDNItemNo = boxList(j).DNNoDNItemNo
    
                        boxList(j).LocationNo = boxList(i).LocationNo
                        boxList(j).BoxNo = boxList(i).BoxNo
                        boxList(j).FIDNo = boxList(i).FIDNo
                        boxList(j).MLFB = boxList(i).MLFB
                        boxList(j).Quantity = boxList(i).Quantity
                        boxList(j).Status = boxList(i).Status
                        boxList(j).DNNoDNItemNo = boxList(i).DNNoDNItemNo
    
                        boxList(i).LocationNo = locationNo
                        boxList(i).BoxNo = boxNo
                        boxList(i).FIDNo = fIDNo
                        boxList(i).MLFB = mLFB
                        boxList(i).Quantity = quantity
                        boxList(i).Status = status
                        boxList(i).DNNoDNItemNo = dNNoDNItemNo
                    End If
                Next
            Next
        End Sub
    
        Private Function SortContext(ByVal strI As String, ByVal strJ As String) As String
            Dim iCount As Integer
            Dim arri() As Char
            Dim arrj() As Char
            Dim rExChange As Integer
            arri = strI.ToCharArray()
            arrj = strJ.ToCharArray()
            If (arri.Length < arrj.Length) Then
                iCount = arri.Length
            Else
                iCount = arrj.Length
            End If
            For m As Integer = 0 To iCount - 1
                If (arri(m) > arrj(m)) Then
                    rExChange = 1
                    Exit For
                End If
                If (arri(m) < arrj(m)) Then
                    rExChange = -1
                    Exit For
                End If
                If (arri(m) = arrj(m)) Then
                    rExChange = 0
                End If
            Next
            If (rExChange = 0) Then
                If (arri.Length > arrj.Length) Then
                    rExChange = 1
                End If
                If (arri.Length < arrj.Length) Then
                    rExChange = -1
                End If
            End If
            Return rExChange
        End Function
    
    展开全文
  • vb.net 冒泡排序

    2020-10-09 09:54:54
    如果有需要可以直接在输入添加其他输入量,例如索引之类的,也是同样的排序方法。 Private Function Sortnum(ByVal Mat() As Double) Dim p As Double ‘中间变量 For i = 0 To Mat.Count - 2 For j = 0 To ...

    输入一个一维数组。

    如果有需要可以直接在输入中添加其他输入量,例如索引之类的,也是同样的排序方法。

    Private Function Sortnum(ByVal Mat() As Double)
            Dim p As Double  ‘中间变量
            For i = 0 To Mat.Count - 2
                For j = 0 To Mat.Count - i - 2
                    If Mat(j) < Mat(j + 1) Then
                        p = Mat(j)
                        Mat(j) = Mat(j + 1)

                    End If
                Next
            Next
            Return Mat

        End Function

     

     

    展开全文
  • 冒泡排序 VB

    2014-04-21 10:26:58
    利用VB编程,最简单的冒泡排序代码 冒泡排序(Bubble Sort)是在一列数据把较小的数据逐次向上推移的一种排序技术。冒泡排序算法把待排序的n个元素的数组看成是垂直堆放的一列数据,从最下面的一个元素起,...
  • vb冒泡排序

    2013-08-07 21:52:43
    vb冒泡排序
  • 首先在自学Java的第9天,我学到了Java冒泡排序,于是自己动手按照高中时期的记忆写了一下,先上代码 package com.ycy; import java.lang.reflect.Array; import java.util.Arrays; public class demo { ...
  • VB.Net 冒泡排序

    千次阅读 2012-07-24 10:10:14
    冒泡排序 ( Bubble Sort ,台湾译为: 泡沫排序或气泡排序 )是一种简单的排序算法 。 它重复地走访过要排序的数列,一次比较两个元素,如果他们的顺序错误就把他们交换过来。 走访数列的工作是重复地进行...
  • 从VB来看-BubbleSort(VB冒泡排序

    千次阅读 热门讨论 2016-07-19 11:32:52
    冒泡排序 有时也被叫做交换排序 沉没排序 ,是一种简单的排序算法通过列表反复步骤进行排序,每对相邻的项目进行比较,根据需要的升降序交换他们。 这是一种比较排序 ,虽然算法简单,但是存在大量数据排列较慢,不...
  • VB 冒泡法排序

    2010-06-07 14:12:02
    VB 冒泡法排序 VB 冒泡法排序 VB 冒泡法排序
  • VB6.0 动态演示冒泡法过程,冒泡法的使用平时也是很常见的,本源码演示数组的冒泡法排序,开始排序后,气泡的颜色有所变化。部分代码如下:  Option Base 1  Dim b(5) As Shape '建立形状数组和标签数组  Dim a(5...
  • 国家开放大学(电大)VisualBasic程序设计,VB 形考任务【第3章】-【实战演练】“实验3 冒泡排序程序”
  • 冒泡法VB程序.rar

    2010-07-27 10:29:06
    冒泡法VB 程序 排序 经典 包括练习数据,很好用
  • VB中三种排序方法

    2011-12-11 19:28:40
    冒泡法,选择,比较三种方法对一组数进行排序
  • VB 冒泡排序

    2019-09-25 05:18:26
    '在此处放置初始化页的用户代码 'Dim arr As New ArrayList 'arr.Add("57171_36_100_2438_二楼D区_5_18") 'arr.Add("57171_35_100_2438_二楼D区_4_16") 'arr.Add("57171_35_100_2438...
  • 对于程序猿而言,算法和数据结构就像一门强大的内功,练的过程,会比较难,相对于武学招式,需要更多的理解能力和悟性,但是一旦练成,那就能变身强大的武林高手,纵横武林,不再是梦想。本系列武林秘籍主要来自于...
  • 这是一段快速冒泡排序程序,一维数组,按照字符串进行排序StrComp(vTempVal, arrData(lTmpHi), CompareMethod.Text) ,如果需要按照其他方式排序可以去修改这个比较方式. ''' <summary> ''' Quick Sort ''' ...
  • 1. 使用了:选择排序法,冒泡排序法 2. 排序法对于两个数据的交换用了指针,用了引用
  • 定义:冒泡排序是一种简单的排序算法。它重复地走访过要排序的数列,一次比较两个元素,如果他们的顺序错误就把他们交换过来。走访数列的工作是重复地进行直到没有再需要交换,也就是说该数列已经排序完成。 根据...
  • 通常使用的排序算法冒泡为主,但是在实际的应用过程,选择排序的效果是远远好于冒泡的。 但是两者的时间复杂度其实是没有区别的,都是O(n^2),那么其原因在于哪里呢?以如下主程序进行演示 public class Test...
  • 冒泡排序出现错误

    2018-11-26 17:53:55
    我先对奇数和偶数部分用选择排序是没有问题的,但是换成冒泡排序就出现问题,只要数组有2,2就会被排在第一位,然后才是我要的奇数排序,试了几次,都是这样的。有人知道为什么吗,还请指教。 #include &...
  • vb内部排序7大算法

    千次阅读 2019-12-22 14:07:26
    信息技术 VB程序整理排序算法(以数组a(n)降序为例)1、冒泡排序(Bubble Sort)1.0 性质总结1.1 基本思想1.2 具体步骤1.3 代码实现1.4改进的冒泡排序2、直接选择排序(Straight Select Sort)2.0 性质总结2.1 基本...
  • 一切复杂的逻辑都是有简单的到复杂的,今天复习一下选在排序法和冒泡排序法
  • 7种VB排序算法源码

    2021-05-12 18:40:28
    摘要:VB源码,算法相关,排序算法 七种常见的VB排序算法示例程序,演示了冒泡排序法、插入排序法、Bucket排序法、选择排序法、Shell排序法、快速排序法、Heap排序法这7种常见的VB排序算法示例,选择对应算法,可能...
  • 随机生成10个整数,冒泡排序算法

    千次阅读 2019-10-11 14:20:26
    * 冒泡排序 * j的范围:排出9个也就都出来了 * k的范围:前一个与后一个比较选出大的,因为最大就是number.length */ int i; for (int j = 0; j ; j++) { for (int k = 0; k (j + 1); k++) { if (arr[k] > ...
  • 冒泡排序和递归

    2021-01-11 19:00:14
    冒泡排序 基本思想: 冒泡排序,类似于水中冒泡,较大的数沉下去,较小的数慢慢冒起来,假设从小到大,即为较大的数慢慢往后排,较小的数慢慢往前排。 直观表达,每一趟遍历,将一个最大的数移到序列末尾。 算法...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,762
精华内容 704
关键字:

vb中冒泡排序法