Erreur Tentative de division par zéro.

miska59 - 21 avril 2017 à 20:03
NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 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

1 réponse

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
21 avril 2017 à 20:39
Car list est vide donc list.Count=0
1
Rejoignez-nous