關(guān)于VB6的二維數(shù)組去重算法實(shí)現(xiàn)

當(dāng)然，這里還是有局限性，當(dāng)我們的數(shù)組被填滿了各個不同的值時，例如下方 700*700 = 490000 就要While49萬次，這誰受得了？

所以以下僅適合小規(guī)模使用 千次計(jì)算量以內(nèi)可以考慮：

'//InkHin_190310 '// 求改進(jìn)指導(dǎo)。Option ExplicitPublic Function C_StringValue(ByRef Value() As String, ByRef rValue() As Long) ReDim Value(0 To 699, 0 To 699) As String Dim y As Integer, x As Integer For y = 0 To 699 For x = 0 To 699Value(x, y) = CStr(rValue(x, y)) Next Next 'Value 初始化默認(rèn)值 = 0 Value(0, 300) = "100765" Value(1, 0) = "999" Value(10, 100) = "990001" Value(100, 200) = "765990001" Value(500, 200) = "1765990001" Value(400, 200) = "22222" Value(500, 100) = "7555555" End FunctionPublic Function C_classification(ByRef rValue() As Long, ByRef Classification() As Long) As LongDim 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(0 To 699, 0 To 699) Call C_StringValue(Value(), rValue()) 'to StringReDim Classification(0) As Long y2 = 0: x2 = 0: i2 = 0: C = TrueClassification(0) = Value(0, 0) While C For i = i2 To UBound(Classification())C = False For y = 0 To 699 For x = 0 To 699If Value(x, y) <> "" Then ' a==bIf Value(x, y) = CStr(Classification(i)) ThenValue(x, y) = ""ElseIf Not C Theny2 = yx2 = xi2 = i2 + 1 'i++C = TrueEnd IfEnd IfEnd If Next Next If C Then ReDim Preserve Classification(UBound(Classification()) + 1) As Long Classification(UBound(Classification())) = Value(x2, y2) End If Next Wend For i = 0 To UBound(Classification()) MsgBox "位置：【" & CStr(i) & "】 ：" & Classification(i) Next C_classification = UBound(Classification()) + 1 MsgBox "一共有：" & C_classification & "個值." End FunctionPrivate Sub Command1_Click() Dim a_C() As Long, a() As Long Call C_classification(a(), a_C()) End Sub

?

轉(zhuǎn)載于:https://www.cnblogs.com/lingqingxue/p/10505684.html

與50位技術(shù)專家面對面20年技術(shù)見證，附贈技術(shù)全景圖

總結(jié)

以上是生活随笔為你收集整理的VB6 二维数组去重实现的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。