Loại bỏ số trong Arr (1 người xem)

[thuyyeu99]

Chào các anh chị, em có vấn đề này mà nghĩ hoài chưa ra nay nhờ mọi người giúp đỡ với ah

em có 1 mãng Arr=[1,2,3,4,5,6,7,8,9,....,n]
có cách nào loại bỏ các số 4,5,6 trong Arr không ah (cứ lấy 3 số thì 3 số liền kề sẽ bỏ ra)
Ví dụ
Arr=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,....,n]
Kết quả
Arr=[1,2,3,7,8,9,13,14,15,....,n]

Cám ơn mọi người đã quan tâm

 

[befaint]

Chào các anh chị, em có vấn đề này mà nghĩ hoài chưa ra nay nhờ mọi người giúp đỡ với ah

em có 1 mãng Arr=[1,2,3,4,5,6,7,8,9,....,n]
có cách nào loại bỏ các số 4,5,6 trong Arr không ah (cứ lấy 3 số thì 3 số liền kề sẽ bỏ ra)
Ví dụ
Arr=[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,....,n]
Kết quả
Arr=[1,2,3,7,8,9,13,14,15,....,n]

Cám ơn mọi người đã quan tâm

Sao lấy ví dụ đặc biệt thế.
3 số liền kề được hiểu liền kề theo dãy số hay theo chỉ số của mảng?

 

[thuyyeu99]

Sao lấy ví dụ đặc biệt thế.
3 số liền kề được hiểu liền kề theo dãy số hay theo chỉ số của mảng?

Em nói rõ thêm chúc tức là Arr khi dua vao em da sắp xep từ 1-n rồi, tức là lấy như thế nào cũng được miễn là 3 số liền kề theo dãy số hay theo mãng

 

[befaint]

Em nói rõ thêm chúc tức là Arr khi dua vao em da sắp xep từ 1-n rồi, tức là lấy như thế nào cũng được miễn là 3 số liền kề theo dãy số hay theo mãng

Thử đoạn sau xem:

Function RemoveItemArray(ByVal arSrc As Variant, ByVal nItem As Long, Optional ByVal FirstRemove As Boolean = False)
''arSrc - Mang 1 chieu
''nItem - So phan tu lien ke can loai bo
''FirstRemove - Loai phan tu dau tien, mac dinh = False
    If IsArray(arSrc) = False Then Exit Function
    Dim Result(), i As Long, j As Long, k As Long, No As Long, Nmax As Long, Stp As Long
    No = IIf(FirstRemove = True, nItem + LBound(arSrc), LBound(arSrc))
    Nmax = UBound(arSrc)
    Stp = 2 * nItem
    For i = No To Nmax Step Stp
        For j = i To i + nItem - 1
            If j > Nmax Then Exit For
            ReDim Preserve Result(k)
            Result(k) = arSrc(j)
            k = k + 1
        Next j
    Next i
    RemoveItemArray = Result
End Function

Sub vidu()
Dim a, b, c
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14)
b = RemoveItemArray(a, 3)
c = RemoveItemArray(a, 3, True)
MsgBox Join(b, "-")
MsgBox Join(c, "-")
End Sub

 

[thuyyeu99]

Thank anh nhiều, em có hướng giải quyết rồi