VB6 二维数组去重实现

关于VB6的二维数组去重算法实现

当然，这里还是有局限性，当我们的数组被填满了各个不同的值时，例如下方 700*700 = 490000 就要While49万次，这谁受得了？

所以以下仅适合小规模使用 千次计算量以内可以考虑：

'//InkHin_190310
'// 求改进指导。

Option Explicit

Public Function C_StringValue(ByRef Value() As String, ByRef rValue() As Long)
ReDim Value( To ,  To ) As String
Dim y As Integer, x As Integer
For y =  To
For x =  To
    Value(x, y) = CStr(rValue(x, y))
Next
Next
'Value 初始化默认值 = 0
Value(, ) = ""
Value(, ) = ""
Value(, ) = ""
Value(, ) = ""
Value(, ) = ""
Value(, ) = ""
Value(, ) = ""
End Function

Public Function C_classification(ByRef rValue() As Long, ByRef Classification() As Long) As Long

Dim y As Integer, x As Integer, i As Long, i2 As Integer
'//
Dim y2 As Integer, x2 As Integer, C As Boolean
'Dim Classification() as Long
Dim Value() As String
ReDim rValue( To ,  To )
Call C_StringValue(Value(), rValue()) 'to String

ReDim Classification() As Long
y2 = : x2 = : i2 = : C = True

Classification() = Value(, )
While C
For i = i2 To UBound(Classification())
    C = False
For y =  To
For x =  To
    If Value(x, y) <> "" Then ' a==b
        If Value(x, y) = CStr(Classification(i)) Then
        Value(x, y) = ""
        Else
            If Not C Then
                y2 = y
                x2 = x
                i2 = i2 +  'i++
                C = True
            End If
        End If
    End If
Next
Next
If C Then
ReDim Preserve Classification(UBound(Classification()) + ) As Long
Classification(UBound(Classification())) = Value(x2, y2)
End If
Next
Wend
For i =  To UBound(Classification())
MsgBox "位置：【" & CStr(i) & "】    ：" & Classification(i)
Next
C_classification = UBound(Classification()) +
MsgBox "一共有：" & C_classification & "个值."
End Function

Private Sub Command1_Click()
Dim a_C() As Long, a() As Long
Call C_classification(a(), a_C())
End Sub