Dim skipi As New List(Of Integer)
...
skipi.Add(i)
...
Dim bSkip = False
For Each tmpi As Integer In skipi
If tmpi = i Then
bSkip = True
Exit For
End If
Next
....
条件に一致した要素を抜き出すには他にもいろいろ方法はあるもののfor回すのが一番早いそうです。
Dim skipi As New List(Of Integer)
...
skipi.Add(i)
...
Dim bSkip = False
For Each tmpi As Integer In skipi
If tmpi = i Then
bSkip = True
Exit For
End If
Next
....
条件に一致した要素を抜き出すには他にもいろいろ方法はあるもののfor回すのが一番早いそうです。