bjr l'équipe.
depuis ce matin je suis coincé ,vraiment coincé sur mon code que j'ai écrit.quand je débogue le code arrivé sur
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 Subil ferme la condition sans exécuter la boucle for.
Code : Sélectionner tout - Visualiser dans une fenêtre à part if reponse ="pas" then
auparavant j'avais écrit ce codequi 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.
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
merci
Partager