Imports System
Public Class Program
Public Shared Sub Main()
Dim arr As Integer() = {4, 1, 2, 8, 9, 5, 1, 7, 8, 8, 8}
Dim frequency As Integer() = New Integer(9) {}
For i As Integer = 0 To arr.Length - 1
frequency(arr(i)) += 1
Next
For i As Integer = 0 To 10 - 1
If frequency(i) = 1 Then Console.WriteLine("{0}: - {1} time", i, frequency(i))
Next
End Sub
End Class
' run:
'
' 2: - 1 time
' 4: - 1 time
' 5: - 1 time
' 7: - 1 time
' 9: - 1 time
'