Programmation en visual basic

stefyledur -  
 Utilisateur anonyme -
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. Utilisateur anonyme
     
    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)
    
    0