VB怎样排序……

[lshy2009]

设置一个窗体有两个标签控件，分别显示“排序前：”、“排序后：”，有5个文本框显示排序前随机产生的5个二位整数，另5个文本框显示按顺序由大到小排序后的5个随机二位数。
我是自学VB的，很多东西都搞不懂，还好有这个平台，还请高手们指点一下……先谢谢罗

[qzw405]

帮你顶了！

[of123]

五个随机数放在 Text1(0) - Text1(4); 排序后的结果放在 Text2(0) - Text2(4)

Dim i As Integer, j As Integer, tmp As Integer

Randomize
For i = 0 To 4
Text1(i) = Int(Rnd * 10000)
Text2(i) = Text1(i)
Next i

For i = 3 To 0 Step -1
For j = 3 To i Step -1
If Text2(j + 1) > Text2(j) Then
tmp = Text2(j)
Text2(j) = Text2(j + 1)
Text2(j + 1) = tmp
End If
Next j
Next i

[嗷嗷叫的老马]

Private Sub Form_Load()
    '改进的冒泡
    Dim A() As Variant, Temp As Long, I As Long
    
    A = Array(12, 32, 99, 43, 66, 93, 82, 50, 77, 39, 64)       '生成数列,自己换成TextBox控件
    
    For I = 0 To UBound(A)
        If I <> 0 Then
          If A(I) < A(I - 1) Then
              Temp = A(I)
              A(I) = A(I - 1)
              A(I - 1) = Temp
              I = I - 2             '注意这一句
              If I < 0 Then I = 0
          End If
        End If
    Next
    
    For I = 0 To UBound(A)      '输出结果
        Debug.Print A(I) & " ";
    Next
End Sub

原帖:

http://www.m5home.com/bbs/dispbbs.asp?BoardID=14&ID=338

[白发程序猿]

冒泡排序算法

[Simao]

快速排序算法

[熊孩子开学喽]

才5个数字,冒泡排序最快捷了.

大体意思就是5个数字,放到数组里,然后循环比较相邻的数字,如果大小关系符合你要排序的方式那就什么也不做,跳过,如果不符合就交换位置.
最多重复5次循环,就排好了.

不过老实说,即使是自学VB,最基本的排序也不能不会呀.
特别是冒泡法这种自己就能"发明"出来的算法,一定要掌握阿.

[lili830209]

友情up

[dlschan]

友情up

[vbman2003]

5个二位数，如下思路：

    dim a(0 to 99) as long　　'2位数不会大于99
    dim i as long,idx as long

    for i=0 to 4    '假设你文本框是控件数组index由0到4
        a(val(text1(i)))=a(val(text1(i)))+1
    next
    idx=-1
　　 for i=0 to ubound(a)
        do while a(i)>0　　　'可能会有重复的数字，所以用do
            idx=idx+1
            text2(idx)=a(i)  '把a(i)大于1的值写入text2
            a(i)=a(i)-1
        loop
    next    

随手写的没有测试 ....

[vbman2003]

错了，改一下：

    dim   a(0   to   99)   as   long　　 '2位数不会大于99 
    dim   i   as   long,idx   as   long 

    for   i=0   to   4         '假设你文本框是控件数组index由0到4 
        a(val(text1(i)))=a(val(text1(i)))+1 
    next 
    idx=-1 
　　 for   i=0   to   ubound(a) 
         do   while   a(i)> 0　　　 '可能会有重复的数字，所以用do 
             idx=idx+1 
             text2(idx)=i    '把a(i)大于1的i写入text2 
             a(i)=a(i)-1 
         loop 
     next         

[missbbbb]

使用冒泡排序

[lshy2009]

学习一下公众方法也不为过嘛，我早就解决了……不过既然发了贴，多少还是得给点分哦，唉，只可惜，我的可用分实在少得可怜，表示一下啦，还望高手们理解一下……嘻嘻