Kod ponizej porownuje i zlicza table1 z table2. Co zrobic jesli bede mial jszcze jakies np
Dim table3 As Integer() = {1, 2, 3, 4, 5, 6}
Czyli chce aby table1 bylo porownywane z table2 i table3 a nastepnie zwracalo wynik w rodzaju:
liczba : ilosc
Private Shared Sub Main(args As String())
Dim table1 As Integer() = {1, 2, 3, 4, 1, 2, _
3, 4, 1, 2, 3, 4, _
1, 2, 3, 4}
Dim table2 As Integer() = {1, 2, 3, 4, 5, 6, _
7, 8, 9, 9, 9}
Dim merge = table1.Concat(table2).ToArray()
Dim dist = merge.Distinct()
For Each i As var In dist
Dim iloc = merge.Count(Function(x) x.Equals(i))
Console.WriteLine(Convert.ToString(i) & " : " & Convert.ToString(iloc))
Next
Console.ReadKey()
End Sub