array 運用判斷是否有重覆設定值

在遇到一些群組flag型且又多時,可利用陣列方式來處理過濾是否有重覆設定並提示!
底下是簡單例子,就看怎運用!
---
'0-9=10
Dim a() As Integer = {0, 1, 0, 3, 4, 0, 9, 7, 8, 6}
Dim j As Integer = 0
For Each q As Integer In a.Distinct.ToArray
j += 1
Next