VB中删除数组重复元素

Option Explicit<br />Function Delete3(Arr As Variant) As Variant<br /> Dim i As Integer<br /> For i = LBound(Arr) To UBound(Arr)<br /> If i > UBound(Arr) Then Exit For<br /> If Arr(i) = 3 Then<br /> Do<br /> Dim j As Integer<br /> For j = i To UBound(Arr) – 1<br /> Arr(j) = Arr(j + 1)<br /> Next j<br /> If LBound(Arr) = UBound(Arr) Then<br /> Delete3 = Empty<br /> Exit Function<br /> End If<br /> ReDim Preserve Arr(LBound(Arr) To UBound(Arr) – 1)<br /> If i > UBound(Arr) Then Exit For<br /> Loop While Arr(i) = 3<br /> End If<br /> Next i<br /> Delete3 = Arr<br />End Function<br />Sub Test()<br /> Delete3 (Array(3, 3, 3, 3, 1, 3, 7, 3, 3, 3, 9, 3, 3))<br /> Delete3 (Array(3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3))<br /> Delete3 (Array(1, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3))<br /> Delete3 (Array(3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 1))<br />End Sub<br />