Imports System
Public Module Module1
Dim TOTLAASCII As Integer = 256
Function get_highest_frequency_character(s As String) As Char
Dim arr(TOTLAASCII) As Integer
Dim len As Integer = s.Length
For i As Integer = 0 To len - 1
arr(Convert.ToInt32(s(i))) += 1
Next
Dim max As Integer = arr(0)
Dim ch As Char = " "
For i As Integer = 0 To len - 1
If max < arr(Convert.ToInt32(s(i))) Then
max = arr(Convert.ToInt32(s(i)))
ch = Convert.ToChar(s(i))
End If
Next
return ch
End Function
Public Sub Main()
Dim s As String = "javac++phpcpythonc#"
Console.Write("Highest frequency character: {0}", get_highest_frequency_character(s))
End Sub
End Module
' run:
'
' Highest frequency character: c
'
