[VBNET] stampa le sole consonanti

Module Module1

    Sub CPrint(text As String)
        Console.Write("{0} => ", text)
        ' prendo tutti i caratteri di "text" uno alla volta
        For Each c As Char In text
            ' controlla se "c" è una vocale
            ' Char.IsLetter(c) restituisce TRUE se c è
            ' carattere alfabetico
            If Char.IsLetter(c) AndAlso "aeiouAEIOU".IndexOf(c) = -1 Then
                ' se "c" è vocale indexof da un valore > -1
                ' quindi se -1 signfica che NON è vocale: la stampo
                Console.Write(c)
            End If
        Next
        Console.WriteLine()
    End Sub

    Sub Main()
        Dim s1 As String = "Pippo"
        Dim s2 As String = "PLUTO"
        Dim s3 As String = "PApeRinO"
        Dim s4 As String = "Paperon De' Paperoni"
        CPrint(s1)
        CPrint(s2)
        CPrint(s3)
        CPrint(s4)

        Console.ReadLine()
    End Sub

End Module