在线 等待急急急!!!!!!!!

[chunhan856]

对于数组中第n 个数与前边n-1个数相比较的算法

[moonless]

    Private Sub compareZ(ByVal objDate() As Object)

        For i As Integer = 0 To objDate.Length - 1
            If i = 0 Then
                Continue For
            End If
            '比较条件，自己改变
            If objDate(i - 1) > objDate(i) Then
                '对比较的结果自己处理
            End If
            
        Next
    End Sub

你说的太不详细了，我只能做到这了

[Griot]

for(int i = 0;i<数组/列表长度 - 1;i++)
{
if(i>0)
{
if(数组[i] > 数组[i+1])
//具体操作
}
}

[chunhan856]

谢谢你们的回复但我想要的是：对于数组中第n 个数与前边n-1个数相比较的算法，就是每一个数都比较啊

[yunyun837]

Private Sub bijiao(ByVal objDate() As Object)

        For i As Integer = 0 To objDate.Length - 1
          '比较条件，自己改变
            If objDate(i) >= objDate(objDate.Length - 1) Then
                '如果小于或等于第i个数的处理
            Else
                '如果大于第i个数的处理
            End If
            
        Next
    End Sub

是这样的么？

[yanlongwuhui]

应该是这样的吧

   Private Sub bijiao(ByVal objDate() As Object)
        Dim intI As Integer, intJ As Integer
        For intI = 0 To objDate.Length - 1
            For intJ = 0 To intI - 1
                If objDate(intI) >= objDate(intJ) Then
                    '   填写自己需要处理的代码
                Else
                    '   填写自己需要处理的代码
                End If
            Next
        Next
    End Sub

[Mangafan]

给你一个选择排序的算法,我想这应该就是你想要的效果.

Private Sub sort(a() As Integer)
  Dim i As Integer, j As Integer, k As Integer
  Dim n As Integer = a.Length
  
  For i = 0 To n - 1
    k = a(i)
    For j = i+1 To n
      If a(j) < k Then
        a(i) = a(j);
        a(j) = k;
      End If
    Next          
  Next
End Sub

[水如烟]

数组中选字某项k,将该项与前面的k-1项对比.(0起)

dim result(k - 1) as integer

For i as integer = 0 to k -1
result(i) = compare(array(i),array(k))
next i

[wudichong]

冒泡法排序

[chunhan856]

具体分析一下行吗。谢谢了compare 需要自己定义吗

[水如烟]

看你的数据类型.一般的数据类型都提供了compare方法

[珍惜生命远离CPP]

怎么比较?

[meiZiNick]

我也想了解，谢谢LZ.