'Consonne, Voyelle, Autre' Visual basic
moustic
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour, je coince sur un exo, en visual basic. Le but est , que lorsque l'on rentre un caractaire, le programme doit nous dire si , le caractaire est une consonne, voyelle ou autre. Seulement il me dit tout le temps 'autre'
En voici la source:
Module Module1
Dim ent As String
Const con As String = "bcdfghjklmnpqrstvwxz"
Const voy As String = "aeiouy"
Sub Main()
Console.Write("entrer un caractaire : ")
ent = Console.Read()
If ent = con Then
Console.Write(ent & " est une consonne")
Else
If ent = voy Then
Console.Write(ent & " est une voyelle")
Else
Console.Write("autre caractaire")
End If
End If
Console.WriteLine("fin")
Console.ReadKey()
End Sub
End Module
Quelqu'un pourrai t-il m'aider??
merci
En voici la source:
Module Module1
Dim ent As String
Const con As String = "bcdfghjklmnpqrstvwxz"
Const voy As String = "aeiouy"
Sub Main()
Console.Write("entrer un caractaire : ")
ent = Console.Read()
If ent = con Then
Console.Write(ent & " est une consonne")
Else
If ent = voy Then
Console.Write(ent & " est une voyelle")
Else
Console.Write("autre caractaire")
End If
End If
Console.WriteLine("fin")
Console.ReadKey()
End Sub
End Module
Quelqu'un pourrai t-il m'aider??
merci
A voir également:
- 'Consonne, Voyelle, Autre' 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
