Erreur Tentative de division par zéro.

Signaler
-
Messages postés
14790
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2021
-
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
A voir également:

1 réponse

Messages postés
14790
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
15 mai 2021
155
Car list est vide donc list.Count=0