bjr l'équipe.
depuis ce matin je suis coincé ,vraiment coincé sur mon code que j'ai écrit.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim X As Integer, reponse As String = Nothing
        reponse = InputBox("avez-vous mangé ?")
        If reponse = "oui" Then
            reponse = InputBox("combien de fois?")
            If reponse = " pas " Then '(en programmation le signe différent s’écrit « <> »)
 
                For X = 1 To 10 Step 2 '(“pour x=1 à 10 par 2)
                    MsgBox(X & "fois ?") '(« & » signifie concaténé)
                    reponse = InputBox("choisis maintenant une reponse")
                    If reponse <> 0 Then MsgBox("merci pour ta reponse")
                Next '(« ferme la boucle »)
 
            End If
        End If
    End Sub
quand je débogue le code arrivé sur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
if reponse ="pas" then
il ferme la condition sans exécuter la boucle for.
auparavant j'avais écrit ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim X As Integer, reponse As String = Nothing
        reponse = InputBox("avez-vous mangé ? ")
        If reponse = "oui" Then
            reponse = InputBox("combien de fois")
            If reponse <> 0 Then '(en programmation le signe différent s’écrit « <> »)
                For X = 1 To 10 Step 2 '(“pour x=1 à 10 par 2)
                    MsgBox(X & "fois") '(« & » signifie concaténé)
                Next '(« ferme la boucle »)
            End If
        End If
 
    End Sub
qui marche . j'ai donc voulu approfondir mon expérience et voilà que je me retrouve au point zéro. veuillez m'expliquer svp mon erreur dans le premier code.
merci