Imports System
Imports System.Collections.Generic
Public Class CountNumberOfEachVowelInString_VB
Public Shared Function CountNumberOfEachVowelInString(ByVal s As String) As Dictionary(Of Char, Integer)
Dim vowels As String = "aeiou"
Dim countVowels As Dictionary(Of Char, Integer) = New Dictionary(Of Char, Integer)()
For Each ch As Char In vowels
countVowels(ch) = 0
Next
Return countVowels
End Function
Public Shared Sub Main(ByVal args As String())
Dim s As String = "python c c++ c# java php javascript vb"
Dim countVowels As Dictionary(Of Char, Integer) = CountNumberOfEachVowelInString(s)
For Each ch As Char In s
If countVowels.ContainsKey(ch) Then
countVowels(ch) += 1
End If
Next
For Each kvp In countVowels
Console.WriteLine(kvp.Key & ":" & kvp.Value)
Next
End Sub
End Class
' run:
'
' a:4
' e:0
' i:1
' o:1
' u:0
'
