不甘呐，竟然被FOR循环难住了(2)

Public Function strDelSameItemInArr(strArray() As String) As String()
   Dim I As Long, J As Long, K As Long, mCount As Long
   '**************************
   Dim arrTemp() As String
   Dim strTemp$
   '**************************
   arrTemp = strArray
   mCount = UBound(strArray)
   For I = 0 To mCount - 1
      'For J = I + 1 To mCount
      '   If strArray(I) = strArray(J) Then
      '      For K = J To mCount - 1
      '          strArray(K) = strArray(K + 1)
      '      Next K
      '      ReDim Preserve strArray(mCount - 1)
      '      mCount = mCount - 1
      '      If J = mCount Then
      '          Exit For
      '      End If
      '   End If
      'Next
      strTemp = arrTemp(I)
      '用于比较的‘基准串’用简单变量，可以提升运行速度
      J = I + 1
      '下面这段‘筛选’过程，比你原来的方式速度要快得多
      Do
         If (strTemp = arrTemp(J)) Then
            arrTemp(J) = arrTemp(mCount)
            mCount = mCount - 1
         Else
            If (mCount = J) Then Exit Do
            J = J + 1
         End If
      Loop
      If (mCount = I + 1) Then Exit For
   Next
   ReDim Preserve arrTemp(mCount)
   'Return strArray   '语法错误
   strDelSameItemInArr = arrTemp
End Function
注意这个修改后的代码，会改变字符串数组的元素顺序。
如果不允许改变顺序，则可以用‘索引表’的方法来解决。

　　另外给楼主的建议是，如果数据量比较大，最好还是通过 Dictionary 或 Collection 对象来‘筛选’，比你自己用循环来进行字符串比较要快些，并且过程也简单、清晰些。

------解决方案--------------------
二楼分析的对，毛病就出在循环的上限是开始时就固定了的。在循环内更改循环上限是无效的。

一个绕过的办法就是递减循环，因为循环计数器是可以动态改动的。下面是 VB6.0 代码：

Public Sub strDelSameItemInArr(ByRef strArray() As String)

    Dim I As Long, J As Long, K As Long, mCount As Long