-
VB排序代码(7种经典排序算法已优化)
2016-08-05 10:32:35VB排序代码---7种经典排序算法已优化---可记录各种排序的时间及循环次数。 -
求助:VB排序代码,小弟工作不保求助啊!
2013-02-20 23:43:54冒泡 选择 插入 快速 堆 希尔 归并 基数 外部 位图 拓补 最近 台湾来了个不懂技术的主管,不知怎么的最近经常说我;...工作 用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冒泡排序法流程图_冒泡排序升序vb代码 vb冒泡法排序例题
2020-12-29 05:19:12vb中冒泡排序法详解?气泡排序的基本思想(升序):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)> 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;下一步输出
-
VB.Net冒泡排序代码
2011-02-17 10:34:00VB.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:57vb快速排序源代码 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源代码)
2011-05-03 19:43:40这是用VB编写的“排序计算”问题的源代码,希望对大家有所帮助! -
VB070-数组排序 源代码
2016-12-26 21:19:41VB070-数组排序 源代码 -
冒泡排序代码_No.48 详细解释VB冒泡排序,具体到每一句代码。
2020-12-16 14:46:53点击上方“爱VB” 关注我们上一节课我们学习了什么是冒泡排序(点此查看),以及冒泡排序的排序过程。今天我们来学习一下如何用代码来实现。大家先来回忆一下昨天的图,我们在程序中排序,就得有实际数值,所以我把每... -
排序输出程序(VB6.0代码编写)
2008-09-09 07:44:35排序输出程序(VB6.0代码编写) 排序输出,任意输入5个数字,程序将以升序排列输出 QQ223857666勾月 -
VB代码-excel自动排序
2020-04-05 22:59:19VB代码 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源代码编写
2009-06-10 08:15:40排序问题(选择法排序, 冒泡法排序, 合并法排序),VB6.0源代码编写 -
vb课程设计——排序演示代码
2009-01-18 19:58:47这个是我自己制作的排序演示的代码,其中有四种排序方法,都是比较常见的排序方法,例如:插入法、希尔法,比较排序法。本人第一次写,代码不够简练老鸟勿笑。 -
vb初学者编程代码大全_学习VB编程第14天,一个简单的排序代码把我难住了
2020-12-11 14:36:46今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据... -
解析VB.NET控件自动排序代码相关信息
2012-07-17 08:53:14VB.NET编程语言就是其中一个作用比较大的编程语言。 在VB.NET中,面对大量相同控件的整齐排列时,虽可在设计时排列好,但难免在调试中不小心移动,或后来又增减一些。于是有人用语句在程序中调节,其艰辛是... -
利用集合进行排序,VB6.0源代码编写
2009-06-10 07:58:00利用集合进行排序,VB6.0源代码编写,很实用 -
数组排序(VB6.0源代码编写)
2008-11-24 10:27:52数组排序(VB6.0源代码编写) 给定一个数组,把不是升序的数据去掉,然后重新赋给另一数组 -
排序输出程序(VB6.0源代码编写)
2010-03-06 21:20:04排序输出程序(VB6.0源代码编写)排序输出,任意输入若干个数字,程序将以升序排列输出 -
vb冒泡排序法流程图_VB 冒泡排序
2020-12-19 16:21:42编程之家收集整理的这篇文章主要介绍了VB 冒泡排序,编程之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。'在此处放置初始化页的用户代码'Dim arr As New ArrayList'arr.Add("57171_36_100_2438_二楼D区_5... -
VB文本数据排序及文件读取实例源代码.rar
2019-07-10 03:49:24VB数据排序及文件读取的应用,可以读取TXT文本数据和保存数据,在此基础上进行数据的排序。注:数据库部分没有编写完成,因此没有附带数据库。 -
VB之排序
2020-05-11 11:25:27VB程序中的排序处理 该段代码处理的是Sheet1表单的数据 对D列到H列的第二行到最后行进行排序 按照E行的数据大小递增排序 '排序 Range("D2:H2").Select Selection.AutoFilter ActiveWorkbook.Worksheets("Sheet1... -
VB快排代码
2015-03-24 23:37:36vb快排代码 VB快速排序 VB字符串快排代码 -
hash排序和hash索引到底在vb代码中怎么用?
2016-10-03 06:37:07hash排序和hash索引到底在vb代码中怎么用?有用hash制成控件调用的思路是什么呢?怎么对dat文件进行检索? -
记事本编程的简单代码_学习VB编程第14天,一个简单的排序代码把我难住了
2021-01-26 04:48:49今天学习了刘金玉老师VB编程教程的第21期,学习的主要内容是冒泡排序算法。一、算法的主要种类1.算法的种类有冒泡排序法、选址排序法、折半查找法、快速排序法、穷举法等。2.补充知识:variant数据是一种特殊的数据... -
数组排序(VB6.0代码编写)给定一个数组,把不是升序的数据去掉,然后重新赋给另一数组
2009-12-14 16:15:34数组排序(VB6.0代码编写)给定一个数组,把不是升序的数据去掉,然后重新赋给另一数组 -
如何实现排序算法小程序Visual Basic6.0源程序,VB6.0源代码
2010-02-02 11:28:32如何实现排序算法小程序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 基本...