Salut à tous
Je voudrais mettre le caractère du milieu en majuscule comme par exemple si j'entre le mot: faq le resultat sera fAq. Comment faire ?
Voila mon code:
Merci.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 Dim nom As String Console.Out.WriteLine("entrez un nom") Do nom = Console.In.ReadLine If Len(nom) Mod 2 <> 0 Then UCase(Mid(nom, Len(((((nom))) + 1) / 2), 1)) Console.Out.WriteLine("le nom est: " & UCase(Mid(nom, Len(((((nom))) + 1) / 2), 1))) Else Console.Out.WriteLine("le nom est paire") End If Loop Until nom = "n" Console.In.ReadLine()
Partager