miska59
-
21 avril 2017 à 20:03
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024
-
21 avril 2017 à 20:39
Bonsoir,
le but de ce programme c'est entrer un mot , il m'affiche avec des chiffres du mot.
voici le code :
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
For i = 48 To 57
str_list.Add(i)
Next
For i = 97 To 122
str_list.Add(i)
Next
For i = 65 To 90
str_list.Add(i)
Next
For i = 1 To 1000000000000
If TextBox1.Text = bruteForce(i, str_list) Then
TextBox2.Text = i
End If
Next
End Sub
Private Function bruteForce(ByVal position As Integer, ByVal list As List(Of String)) As String
Dim ModList As New List(Of Decimal)
Dim lecture As String = ""
While position >= 0
<gras>ModList.Add(position Mod list.Count)</gras> ' erreur Tentative de division par zéro.
position -= position Mod list.Count
position /= list.Count
position -= 1
End While
For a = ModList.Count - 1 To 0 Step -1
lecture += list(ModList(a))
Next
Return lecture
End Function
Pouvez-vous me dire pourquoi m'affiche ceci dans ModList.Add(position Mod list.Count) , il m'afficher ce message.
merci de votre réponse