精华内容
下载资源
问答
  • VB排序代码---7种经典排序算法已优化---可记录各种排序的时间及循环次数。
  • 冒泡 选择 插入 快速 堆 希尔 归并 基数 外部 位图 拓补 最近 台湾来了个不懂技术的主管,不知怎么的最近经常说我;...工作 用VB排序,我还没问就把电话挂了所以我想把所有的排序都写了吧。 请求大虾帮忙啊~
  • 快速排序vb代码

    2020-12-27 12:17:34
    快速排序vb代码: Dim a() As Integer '定义一个动态数组 Sub qsort(a() As Integer, ByVal kaishi As Integer, ByVal jieshu As Integer) Dim temp As Integer, j As Integer, i As Integer i = kaishi: j = jieshu...

    快速排序vb代码:
    Dim a() As Integer '定义一个动态数组
    Sub qsort(a() As Integer, ByVal kaishi As Integer, ByVal jieshu As Integer)
    Dim temp As Integer, j As Integer, i As Integer
    i = kaishi: j = jieshu '将i、j作为指针,从两侧向中部移动
    If kaishi < jieshu Then '控制是否进入循环
    temp = a(kaishi) '将数组第一个值赋给temp,暂时充当对比量
    While i < j
    Do While i < j '指针j从右向左移动,当遇到比temp小的数时,将该值移动到指针i的位置,并使i向右移动一位
    If a(j) <= temp Then a(i) = a(j): i = i + 1: Exit Do
    j = j - 1
    Loop
    Do While i < j '指针i从左向右移动,当遇到比temp大的数时,将该值移动到指针j的位置,并使j向左移动一位
    If a(i) > temp Then a(j) = a(i): j = j - 1: Exit Do
    i = i + 1
    Loop
    Wend
    a(i) = temp
    Call qsort(a(), kaishi, i - 1) '递归二分法过程进行排序
    Call qsort(a(), i + 1, jieshu)
    Else
    Exit Sub
    End If
    End Sub
    Private Sub Command1_Click()
    Me.Cls
    Dim n As Integer, u As Integer, l As Integer
    n = Val(Text1) '令n=文本框中的值
    ReDim a(n - 1) As Integer '重新定义数组
    u = UBound(a): l = LBound(a) '得到数组的上下标
    Randomize '给数组随机赋值
    For i = l To u '输出排序前的数组
    a(i) = Rnd * 90 + 10
    Print a(i);
    Next
    Print vbCr
    End Sub
    Private Sub Command2_Click()
    Dim u As Integer, l As Integer
    u = UBound(a): l = LBound(a)
    Call qsort(a, l, u) '对数组使用二分法
    For i = l To u '输出排序后的数组
    Print a(i);
    Next
    End Sub

    展开全文
  • vb中冒泡排序法详解?气泡排序的基本思想(升序):1)有n个数字(存储在数组a(n)中)。第一次,每两个相邻的数字进行比较,较小的一个移到前面。n-1相邻比较后,最大的数被“下沉”放在最后一位,小数上升“浮动”;2)第...

    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;下一步输出

    展开全文
  • VB.Net冒泡排序代码

    2011-02-17 10:34:00
    VB.Net冒泡排序代码(有详细解释) 冒泡排序是一种最常见的排序方法。VB.Net可写出代码如下:   Function BubbleSort(ByVal Ar As Array)  Dim i As Integer  Dim j As Integer...

    VB.Net冒泡排序代码(有详细解释)
     
       冒泡排序是一种最常见的排序方法。VB.Net可写出代码如下:
       

        Function BubbleSort(ByVal Ar As Array)

            Dim i As Integer

            Dim j As Integer

            Dim Temp                    '不定义变量类型,以自动适应数组Ar的类型

            Dim Flag As Boolean

            Dim n As Integer = Ar.Length - 1

     

            For i = 1 To n

               

                Flag = False

     

                '从第1个元素开始,比较每两个相邻元素的大小,让大元素下沉,小元素上浮

                '经过一轮循环,可使数组中最大元素下沉到数组最底部

                '进入下一轮循环,只对前 n - i 个元素进行相邻比较(已排到后面的不用比较)

                For j = 0 To n - i 

                    If Ar(j) > Ar(j + 1) Then 

                        Temp = Ar(j)

                        Ar(j) = Ar(j + 1)

                        Ar(j + 1) = Temp

                        Flag = True         '如果有排序行为,则设为 True

                    End If

                Next

     

                If Flag = False Then   '如未排序,说明已完成整个排序过程,退出

                    Exit For

                End If

            Next

        End Function

     

     

        示例

        

        Dim A() As Integer= {5,7,2,4,11,9,6}

       

        BubbleSort(A)   结果会是{2,4,5,6,7,9,11}

       

        Dim B() As String= {"DD","GG","CC","FF","JJ","AA","BB"} 

       

        BubbleSort(B)   结果会是{"AA","BB","CC","DD","FF","GG","JJ"}

    展开全文
  • vb快速排序代码

    千次阅读 2015-07-18 15:28:57
    vb快速排序代码 a(n)个元素排序原理: n 个元素被分成三段(组):左段l e f t,右段r i g h t和中段m i d d l e。中段仅包含一个元素。左段中各元素都小于等于中段元素,右段中各元素都大于等于中段...
    vb快速排序源代码
    a(n)个元素排序原理: n 个元素被分成三段(组):左段l e f t,右段r i g h t和中段m i d d l e。中段仅包含一个元素。左段中各元素都小于等于中段元素,右段中各元素都大于等于中段元素。因此l e f t和r i g h t中的元素可以独立排序,并且不必对l e f t和r i g h t的排序结果进行合并。m i d d l e中的元素被称为支点( p i v o t )。 使用快速排序方法对a(n)排序 从a(n)中选择一个元素作为m i d d l e,该元素为支点 把余下的元素分割为两段left 和r i g h t,使得l e f t中的元素都小于等于支点,而right 中的元素都大于等于支点 递归地使用快速排序方法对left 进行排序 递归地使用快速排序方法对right 进行排序 所得结果为l e f t + m i d d l e + r i g h t 比如:
    考察元素序列[ 4 , 8 , 3 , 7 , 1 , 5 , 6 , 2 ]。假设选择元素6作为支点,则6位于m i d d l e;4,3,1,5,2位于l e f t;8,7位于r i g h t。当left 排好序后,所得结果为1,2,3,4,5;当r i g h t排好序后,所得结果为7,8。把right 中的元素放在支点元素之后, l e f t中的元素放在支点元素之前,即可得到最终的结果[ 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 ]。
    分享到:
    热心网友
    Private Sub Command1_Click()
    Dim a(10) As Integer
    For i = LBound(a) To UBound(a)
    a(i) = Int(Rnd * 100)
    Next i
    qsort a, LBound(a), UBound(a)
    For i = LBound(a) To UBound(a)
    Print a(i);
    Next i
    Print
    End Sub

    Sub swap(a As Integer, b As Integer)
    t = a: a = b: b = t
    End Sub

    Sub qsort(a() As Integer, ByVal p As Integer, ByVal r As Integer)
    Dim q As Integer
    If p >= r Then Exit Sub
    q = p
    For i = p To r - 1
    If a(i) < a(r) Then swap a(i), a(q): q = q + 1
    Next i
    swap a(q), a(r)
    qsort a, p, q - 1
    qsort a, q + 1, r
    End Sub
    展开全文
  • 这是用VB编写的“排序计算”问题的源代码,希望对大家有所帮助!
  • VB070-数组排序代码

    2016-12-26 21:19:41
    VB070-数组排序代码
  • 点击上方“爱VB” 关注我们上一节课我们学习了什么是冒泡排序(点此查看),以及冒泡排序排序过程。今天我们来学习一下如何用代码来实现。大家先来回忆一下昨天的图,我们在程序中排序,就得有实际数值,所以我把每...
  • 排序输出程序(VB6.0代码编写) 排序输出,任意输入5个数字,程序将以升序排列输出 QQ223857666勾月
  • VB代码-excel自动排序

    2020-04-05 22:59:19
    VB代码 Option Explicit Sub rangeit() Dim r Dim firstNotNull Dim FirstValue Dim FitstPos Dim Count Dim NewPos Dim NewValue '从(1.2)开始寻找第一个不为空的单元格位置 For r = 2 To 10000...
  • 排序问题(选择法排序, 冒泡法排序, 合并法排序),VB6.0源代码编写
  • 这个是我自己制作的排序演示的代码,其中有四种排序方法,都是比较常见的排序方法,例如:插入法、希尔法,比较排序法。本人第一次写,代码不够简练老鸟勿笑。
  • 今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据...
  • VB.NET编程语言就是其中一个作用比较大的编程语言。 在VB.NET中,面对大量相同控件的整齐排列时,虽可在设计时排列好,但难免在调试中不小心移动,或后来又增减一些。于是有人用语句在程序中调节,其艰辛是...
  • 利用集合进行排序,VB6.0源代码编写,很实用
  • 数组排序(VB6.0源代码编写) 给定一个数组,把不是升序的数据去掉,然后重新赋给另一数组
  • 排序输出程序(VB6.0源代码编写)排序输出,任意输入若干个数字,程序将以升序排列输出
  • 编程之家收集整理的这篇文章主要介绍了VB 冒泡排序,编程之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。'在此处放置初始化页的用户代码'Dim arr As New ArrayList'arr.Add("57171_36_100_2438_二楼D区_5...
  • VB数据排序及文件读取的应用,可以读取TXT文本数据和保存数据,在此基础上进行数据的排序。注:数据库部分没有编写完成,因此没有附带数据库。
  • VB排序

    2020-05-11 11:25:27
    VB程序中的排序处理 该段代码处理的是Sheet1表单的数据 对D列到H列的第二行到最后行进行排序 按照E行的数据大小递增排序 '排序 Range("D2:H2").Select Selection.AutoFilter ActiveWorkbook.Worksheets("Sheet1...
  • VB快排代码

    2015-03-24 23:37:36
    vb快排代码 VB快速排序 VB字符串快排代码
  • hash排序和hash索引到底在vb代码中怎么用?有用hash制成控件调用的思路是什么呢?怎么对dat文件进行检索?
  • 今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据...
  • 数组排序(VB6.0代码编写)给定一个数组,把不是升序的数据去掉,然后重新赋给另一数组
  • 如何实现排序算法小程序Visual Basic6.0源程序,VB6.0源代码
  • 冒泡排序 VB

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

空空如也

空空如也

1 2 3 4 5 ... 17
收藏数 334
精华内容 133
关键字:

vb排序代码