la méthode if avec for each
bjr l'équipe.
depuis ce matin je suis coincé ,vraiment coincé sur mon code que j'ai écrit.
Code:
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:
if reponse ="pas" then
il ferme la condition sans exécuter la boucle for.
auparavant j'avais écrit ce code
Code:
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