|
- Il y a certaines situations de traitement, cependant, qui exigent d'un ensemble de rapports d'être exécuté à plusieurs reprises --jusqu'à un certain état est réuni pour réitérer à plusieurs reprises encore.
- Vous pourriez, par exemple, jusqu'à ce que vous trouviez une valeur assortie que vous devez regarder par les articles dans une rangée, une par une.
- Le code pour effectuer cette recherche doit s'exécuter à plusieurs reprises et chaque fois que indexation au prochain élément dans la rangée.
|
|
Pour… après la boucle
|
|
Pour réitérer un ensemble de rapports, de base visuel fournit à cette capacité pour… après le rapport dont le format général est montré ci-dessous.
|
For counter = start value To end value
...statements
Next
|
|
Pour maintenir des itérations par les rapports inclus, a pour… après la boucle établit un compteur.
Il est donné une valeur de début et une valeur de fin -- valeurs de nombre entier -- pour commander le nombre de fois où les rapports sont exécutés et le compteur sont incrémentés par 1 chaque fois par la boucle.
Le code ci-dessous, par exemple, exécute les rapports dans pour… après la boucle 10 fois.
|
Dim i As Integer
For i = 1 To 10
...statements
Next
|
|
|
La variable i est définie pendant que le compteur et le compteur est initialisé à 1 quand la boucle est d'abord écrite. Après que les rapports soient exécutés pour la première fois et le prochain rapport est produit, la commande de programme revient à l'assortiment pour le rapport. Le compteur est incrémenté par 1 et un essai est fait pour voir si le compteur a encore atteint la valeur 10 de fin ou pas. Sinon, les rapports sont exécutés une deuxième fois, et la commande revient encore au pour le rapport où est examiné contre la valeur de fin et le compteur est incrémenté encore. Ceci qui traite continue jusqu'à ce que finalement le compteur atteigne la valeur de fin et également la boucle se termine et puis, commande de programme « excédent de sauts » la boucle et continue dans l'ordre le rapport suivant après.
Dans l'exemple ci-dessus, la valeur de fin et la valeur de début sont indiquées des valeurs littérales de nombre entier. Plus probablement, en valeur de début de manuscrit, et particulièrement valeur de fin, sont assignés par des variables réglées ailleurs.
Le manuscrit suivant est une illustration simple d'a pour… après la boucle et l'utilisateur écrit une valeur de nombre entier qui est employée comme valeur de fin pour la boucle. La boucle montre l'ordre des nombres entiers à la valeur de fin, commencement avec 1,
|
Sub Make_Numbers (Src As Object, Args As EventArgs)
If IsNumeric(EndValue.Text) Then
Dim i As Integer
For i = 1 To EndValue.Text
Numbers.Text &= i & " "
Next
End If
End Sub
<asp:TextBox id="EndValue" Size="1" MaxLength="2" runat="server"/>
<asp:Button Text="Make Numbers" OnClick="Make_Numbers" runat="server"/>
<asp:Label id="Numbers" EnableViewState="False" runat="server"/>
|
|
| Réitérer des rangées
|
|
Pour réitérer les éléments dans une rangée, pour… après la boucle fournit un mécanisme idéal. Pour incrémenter par les index de la rangée, le compteur peut être établi, se dirigeant dans l'ordre à chaque élément dès le début par durent. Retournant à un exemple précédent, la rangée suivante contient les cinq premières lettres de l'alphabet grec. Pour montrer, une boucle est établie, alternativement, chacune de ces cinq lettres.
|
Sub Get_Greek (Src As Object, Args As EventArgs)
Dim Letters() As String = {"alpha","beta","gamma","delta","epsilon"}
Dim i As Integer
For i = 0 To Letters.Length - 1
GreekOut.Text &= Letters(i) & " "
Next
End Sub
<asp:Button Text="Get Greek" OnClick="Get_Greek" runat="server"/>
<asp:Label id="GreekOut" EnableViewState="False" runat="server"/>
|
|
 |
 |
Keywords:
while loop statement,
switch case statement,
group by statement,
for loop statement,
select case statement,
sql server statement,
order by statement,
pl sql statement,
java statement,
value statement,
values statement,
vision statement,
sql statement,
oracle statement,
function statement,
switch statement,
command statement
|
