Exercice a resoudre en code vb

moi aussi j'ai le même problème. est-ce que c'est possible qu'on me l'envoie. svp. c'est urgent.

saluuut tout le monde
en fait j'ai le même problème que jéram
exam du jeu du pendu
donc si quelqu'un pouvait me l'envoyer, ce serait vraiment gentil
d'avance un IMMENSE merci!!!

Console.Title = "MOHAMED ELHADIM"

Dim mot, lettre, rep, B(), D(), T(10) As String
Dim i, j, k, l, e, f As Int32

Do
f = 0
Console.SetWindowSize(80, 25)
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Premièr joueur : ")
Console.WriteLine("Veuillez choisir un mot de moins de 10 lttres : ")
Console.ForegroundColor = ConsoleColor.Black
mot = CType(Console.ReadLine, String)
mot = mot.ToLower
mot = mot.Trim
Console.ForegroundColor = ConsoleColor.White

ReDim B(mot.Length)
ReDim D(mot.Length)

For i = 0 To mot.Length - 1
B(i) = "_"
D(i) = mot.Chars(i)
Next
For i = 0 To mot.Length - 1
Console.Write(B(i) & " ")
Next
Console.WriteLine()
Console.WriteLine()

i = 0
For j = 0 To 10
Console.WriteLine()
Console.WriteLine("Deuxièm joueur")
Console.WriteLine("Entrer votre lettre propoesée : ")
lettre = CType(Console.ReadLine, Char)
lettre = lettre.ToLower
lettre = lettre.Trim
l = 0
For i = 0 To mot.Length - 1
If D(i) = lettre Then
Console.WriteLine()
If l = 0 Then
Console.WriteLine("C'est une correcte proposition")
Console.WriteLine("Nombre d'erreurs : " & f)
l = 1
End If
B(i) = B(i).Replace("_", lettre)
For k = 0 To mot.Length - 1
e = B(k).IndexOf("_")
If e = 0 Then
Exit For
End If
Next
End If
Next
If l = 0 Then
f = f + 1
Console.WriteLine()
Console.WriteLine("Non, c'est une lettre incorrecte")
Console.ForegroundColor = ConsoleColor.Red
Console.WriteLine("Il vous reste " & 10 - j & " chances")
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Nombre d'erreurs : " & f)
End If
i = 0
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.Yellow
For i = 0 To mot.Length - 1
Console.Write(B(i) & " ")
Next
Console.ForegroundColor = ConsoleColor.White
i = 0
If e = 0 Then
Console.WriteLine()
Console.WriteLine()
Console.Write("Les lettre déjà annoncées : ")
Console.ForegroundColor = ConsoleColor.Green
For i = 0 To 10
t(j) = lettre
Console.Write(t(i) & " ")
Next
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine()
End If
If e < 0 And l = 1 Then
Console.WriteLine()
Console.WriteLine()
Console.BackgroundColor = ConsoleColor.Red
Console.ForegroundColor = ConsoleColor.Green
Console.WindowHeight = 8
Console.WriteLine("Vous avez gagné")
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine()
Console.WriteLine("Le mot recherché est : ")
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine(mot.ToUpper)
Exit For
End If
Next
If e = 0 Then
Console.WriteLine()
Console.WriteLine()
Console.WindowHeight = 5
Console.ForegroundColor = ConsoleColor.Magenta
Console.WriteLine(" Vous êtes pendu ")
End If
Console.WriteLine()
Console.ForegroundColor = ConsoleColor.White
Console.WriteLine("Voulez vous recommencer : ")
rep = CType(Console.ReadLine, String)
rep = rep.ToLower
Console.Clear()
Loop Until rep = "n" Or rep = "non"
Console.ReadLine()

Salut moi aussi je dois faire un jeu comme tu a fais.
Est ce que tu pourrai m'envoyé ton programme complet pour que je puisse voir a quoi correspond chaque ligne et comment tu a structuré le dessin.
Cela me permettrai de me débloqué.
Merci d'avance.

comment faire pour ne pas affichre le mat lors de la saisie
mercie

voila le programme

Dim i, j, k, b, f, h, s, q, n As Int16
Dim mot As String
Dim a, p As Char
Console.WriteLine("entrez un mot!!!")
mot = CType(Console.ReadLine, String)
Dim t1 As Array = Array.CreateInstance(GetType(String), mot.Length)
Dim t2 As Array = Array.CreateInstance(GetType(String), mot.Length)
Dim t3 As Array = Array.CreateInstance(GetType(String), mot.Length)
For i = 0 To mot.Length - 1
t2(i) = "*" + " "
t1(i) = "*" + " "
Console.Write(t1(i))
Next
For i = 0 To mot.Length - 1
a = mot.Chars(i)
For j = (i + 1) To mot.Length - 1
If a = mot.Chars(j) Then

s = s + 1

End If
Next
Next
Console.WriteLine()
Console.WriteLine("vous avez" & " " & mot.Length - s & " " & "propositions")
Console.WriteLine()
Console.WriteLine("entrez une proposition")
Do
b = 0
p = CType(Console.ReadLine, Char)
Console.WriteLine()
For j = 0 To mot.Length - 1
a = mot.Chars(j)
If p + " " = t1(j) Then
Console.WriteLine("cette proposition est déjà entrer")
End If
If p + " " = t1(j) And q = mot.Length - 1 Then
Exit Do
End If
If a = p Then
t1(j) = p + " "
q = q + 1
End If
Console.Write(t1(j))
Next
For k = 0 To mot.Length - 1
If t1(k) = t2(k) Then
b = b + 1
End If
Next
If b = mot.Length Then
Console.WriteLine()
Console.WriteLine("ce caractaire n'est pas là")
f = f + 1
End If
If q = mot.Length Or mot.Length - f = 0 Then
Exit Do
End If
Console.WriteLine()
Console.WriteLine("vous avez" & " " & mot.Length - (f + s) & " " & "propositions")
Console.WriteLine()
Console.WriteLine("entrez une autre proposition")
For b = 0 To mot.Length - 1
t2(b) = t1(b)
Next
Loop
If q = mot.Length Then
Console.WriteLine()
Console.WriteLine()
Console.WriteLine("BRAVO VOUS AVEZ REUSSEZ")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(Chr(9) + Chr(9) + Chr(9) + Chr(9) & "fin du jeu")
Else
Console.WriteLine()
Console.WriteLine("DESOLE")
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()
Console.WriteLine(Chr(9) + Chr(9) + Chr(9) + Chr(9) & "fin du jeu")
End If
Console.readline()

j'attent