Demande d'aide programe

J'ai créé un programme qui permet d'afficher l'occurence ( nombre de fois le caractère est répeter).

voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub Main() Dim mot As String Dim i, j, compt As Integer Dim premier As Char compt = 0   Console.WriteLine("Donner un mot") mot = Console.ReadLine   For i = 0 To mot.Length - 1 compt = 0 premier = mot.Chars(i) For j = i To mot.Length - 1 If premier = mot.Chars(j) Then compt = compt + 1 End If   Next j Console.WriteLine("l'occ de : " & mot.Chars(i) & compt) Next

---

au momennt d'affichage, il m'affiche en boucle le Nbre de caraterèe.
EXP: t=4 , T=3, t=2, t=1

Voici le resultat

Donner un mot
testtest
l'occ de : t4
l'occ de : e2
l'occ de : s2
l'occ de : t3
l'occ de : t2
l'occ de : e1
l'occ de : s1
l'occ de : t1

Merci de me corriger le programme ou de me donner une autre solution.

deja descend le writeline

Code:

---

Console.WriteLine("l'occ de : " & mot.Chars(i) & compt)

---

apres tous les next