L'extrémité de moment… tandis que rapport

Sinon connu explicitement alors lui est connu par une variable qui résout à un nombre entier qui place sa valeur de fin.
À l'intérieur de la boucle, la boucle réitère que beaucoup de fois à moins que sorti sur une condition qui surgit.
Il peut y avoir des situations, cependant, où il ne peut pas connaître à l'avance exactement combien de fois d'exécuter les rapports et à quelle valeur la valeur de fin devrait être placée.

L'extrémité de moment… tandis que boucle

Pour ces situations, l'extrémité de moment… tandis que la boucle est conçue. Son format général est donné ci-dessous.

While condition

...statements

End While

Une extrémité de moment… alors que la boucle n'exécute pas un nombre de fois fixe et elle s'exécute tant que un essai de condition au début de la boucle demeure vrai. Il pourrait être que la condition est fausse au début de la boucle, dans ce cas elle n'obtient pas exécutée du tout. Naturellement, il est important que quelque part à l'intérieur de la boucle la condition devienne vraie ; autrement, la boucle ne finit jamais. Considérant qu'a pour… après la boucle présente une condition pour finir la boucle, une extrémité de moment… tandis que des présents une condition pour continuer la boucle.

Avant qu'une application plus pratique soit présentée, jeter un coup d'oeil à la façon dont une extrémité de moment… tandis que la boucle peut être placée jusqu'à ressemblent à a pour… après la boucle et comme dans une illustration précédente une rangée est chargée avec des valeurs et des affichages d'une boucle son contenu.

Sub Get_Fruit (Src As Object, Args As EventArgs)

Dim Fruit() As String = {"apples","oranges","lemons","grapes","beer"}

Dim i As Integer = 0
While i <= Fruit.Length - 1
FruitOut.Text &= Fruit(i) & " "
i += 1
End While

End Sub

<asp:Button Text="Get Fruit" OnClick="Get_Fruit" runat="server"/>
<asp:Label id="FruitOut" EnableViewState="False" runat="server"/>

Chargement d'une rangée à partir d'un dossier

Une rangée est chargée d'un magasin externe de données -- une table de base de données ou de dossier -- contenir l'information à la laquelle peut être ajouté, changé, ou supprimé en dehors doivent mettre à jour le manuscrit qui contient la rangée. Dans l'exemple ci-dessous, deux rangées (StatesArray () et CodesArray ()) sont chargés à partir d'un dossier externe des textes (StateCodes.txt). C'est un dossier des noms d'état et des codes d'état pour chacun des 50 états. Dans le manuscrit suivant ces rangées sont définies globalement pour l'accès par d'autres sous-programmes qui effectuent le traitement contre les rangées.

<SCRIPT runat="server">

Dim StatesArray(0) As String
Dim CodesArray(0) As String

Sub Page_Load

Dim FileReader As StreamReader
Dim LineIn As String
Dim FieldArray() As String

FileReader = File.OpenText("e:\WebSite\tutorials\vbnet\vbnet04\StateCodes.txt")
LineIn = FileReader.ReadLine()

While LineIn <> ""
FieldArray = Split(LineIn, ",")
StatesArray(UBound(StatesArray)) = FieldArray(0)
CodesArray(UBound(CodesArray)) = FieldArray(1)
LineIn = FileReader.ReadLine()
If LineIn <> "" Then
ReDim Preserve StatesArray(StatesArray.Length)
ReDim Preserve CodesArray(CodesArray.Length)
End If
End While
FileReader.Close()

End Sub

</SCRIPT>

Employer les rangées

Dans cet exemple, le sous-programme de Page_Load charge les rangées de CodesArray et de StatesArray, ainsi la page courante a ces rangées disponibles à elle. Mettre juste un contact de finissage sur cette discussion, avec les rangées, un couple des choses peut être fait.

Consultation de rangée

Puisque les deux rangées ont des valeurs correspondantes d'élément et pour cette raison elles peuvent être employées en tant que rangées correspondantes pour la consultation de table.

Sub Get_The_Code (Src As Object, Args As EventArgs)

If State.Text <> "" Then
Dim i As Integer
For i = 0 To UBound(StatesArray)
If StatesArray(i) = State.Text Then
Code.Text = CodesArray(i)
Exit For
End If
Next
End If

End Sub

<b>State: </b><asp:TextBox id="State" Size="12" runat="server"/>
<asp:Button Text="Get Code" OnClick="Get_The_Code" runat="server"/>
<b>Code: </b><asp:Label id="Code" EnableViewState="False" runat="server"/>

Keywords: The While...End While Statement in VB.NET, switch case statement, for loop while, for loop statement, select case statement, java statement, while perl, value statement, switch statement, case statement, function statement, loop statement, nested statement, command statement, while examples, while tutorial, condition statement,

HTML Quizes

XML Quizes