A voir également:
- Programmation en visual basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide
1 réponse
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)
