Programmation en visual basic

Bonjour, c'stefy s'il vous plait je voudrais avoir le code d' un programme en visual basic qui permet de compter le nombre de voyelles dans une phrase
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1. Salut, c'est facile avec l'instruction select :

            Dim Phrase As String
            Dim Voyelles As Integer
            Dim I As Integer
    
            Phrase = "Salut, comment tu vas?"
    
            Phrase = LCase(Phrase) ' Mieux si on fait tout en minuscule
    
            For I = 1 To Phrase.Length()
                Select Case Mid(Phrase, I, 1)
                    Case "a"
                        Voyelles = Voyelles + 1
                    Case "e"
                        Voyelles = Voyelles + 1
                    Case "i"
                        Voyelles = Voyelles + 1
                    Case "o"
                        Voyelles = Voyelles + 1
                    Case "u"
                        Voyelles = Voyelles + 1
                    Case "y"
                        Voyelles = Voyelles + 1
                End Select
            Next
            MsgBox(Voyelles)