Résultat de la boucle Do..While ...
Question
Quels devraient être les résultats du pseudocode suivant:
Initialise le compteur à 10
À faire pendant le compteur <100
Afficher le compteur multiplié par 2
Ajoutez 10 au compteur
Fin de la boucle
Je pense: 20, 60, 140
Voici mon code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim multiplied As Integer
Dim counter As Integer = 10
Do While counter < 100
multiplied = counter * 2
Label1.Text = Label1.Text & ControlChars.NewLine & multiplied.ToString
counter = multiplied + 10
Loop
End Sub
Merci les gars !!
La solution
Afficher le compteur multiplié par 2
Rien dans cette instruction ne dit de modifier le compteur.Sur la base d'une interprétation stricte de vos instructions, le résultat devrait ressembler à ceci:
20 40 60 80100120140160180
Votre code, cependant, correspond aux résultats que vous attendez.Si vous voulez un code qui correspond à vos instructions, procédez comme suit:
Dim counter As Integer = 0
Dim result As New StringBuilder()
Dim delimiter As String = ""
Do While counter < 100
result.Append(delimiter).Append( (counter*2).ToString() )
delimiter = Environment.NewLine
counter += 10
Loop
Label1.Text = result.ToString()
Et pour le plaisir, nous pourrions faire quelque chose comme ceci:
Label1.Text = Enumerable.Range(1, 9)
.Select(Function(i) i * 10)
.Aggregate("", Function(s, i) s = s & i.ToString() & ",")
Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow