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