Question

How to print characters that have even frequencies of occurrence in a string with VB.NET

Answer 1

Imports System

Public Class Test
	Public Shared Sub print_even_frequencies_char(s As String) 
		Dim letters(256) As Integer
           
		For i As Integer = 0 To s.Length - 1
			If (Char.IsLetter(s(i))) Then
				letters(Convert.ToByte(s(i))) = letters(Convert.ToByte(s(i))) + 1
			End If
		Next
            
        For i As Integer = 0 To 256 - 1
            If (letters(i) <> 0 And letters(i) Mod 2 = 0) Then
                Console.WriteLine("{0} {1}", Chr(i) , letters(i))
            End If
        Next
	End Sub 
	
    Public Shared Sub Main()
        Dim s As String = "vb.net programming pro oo"
           
        print_even_frequencies_char(s)
    End Sub
End Class



' run:
'
' g 2
' m 2
' n 2
' o 4
' p 2

 

70+ SQL courses for beginners and professionals