The While...End While Statement |
- Mit für… zunächst Art der Programmierung, wann sie die Schleife anfängt, bekannt die Zahl Wiederholungen..
- Wenn Sie nicht ausdrücklich dann ihm gewußt werden, durch eine Variable bekannt, die zu einer Ganzzahl behebt, die seinen Endewert einstellt.
- Innerhalb der Schleife wiederholt die Schleife daß viele Male, es sei denn herausgenommen auf einer Bedingung, die entsteht.
- Es kann Situationen geben jedoch wo es nicht im voraus genau bekannt kann, zu wievielen Malen, die statementsn und, zu welchem Wert durchzuführen der Endewert eingestellt werden sollte.
|
The While...End While Loop
|
Für diese Situationen The While-… Ende, während Schleife entworfen ist. Sein allgemeines Format wird unten gegeben.
|
While condition
...statements
End While
|
|
Ein While-… Ende, während Schleife nicht eine örtlich festgelegte Anzahl von Zeiten durchführt und es führen durch, solange ein Bedingungtest am Anfang der Schleife zutreffend bleibt. Es könnte sein, daß die Bedingung beim Anfang der Schleife falsch ist, in diesem Fall sie nicht an allen durchgeführt erhält. Selbstverständlich ist es wichtig, daß irgendwo innerhalb der Schleife die Bedingung zutreffend wird; andernfalls beendet die Schleife nie. Während a für… zunächst Schleife eine Bedingung für das Ende der Schleife darstellt, ein While-… End While Geschenke eine Bedingung für das Fortsetzen der Schleife.
Bevor eine praktischere Anwendung dargestellt wird, nehmen einen Blick an, wie ein While-… Ende, während Schleife bis eingestellt werden kann, a für… zunächst Schleife ähneln und wie in einer vorhergehenden Abbildung eine Reihe mit Werten und eine Schleife Anzeigen sein Inhalt geladen wird.
|
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"/>
|
|
Loading an Array from a File
|
Eine Reihe wird von einem externen Datenspeicher geladen -- eine Datenbank- oder Aktentabelle -- das Enthalten der Informationen, denen hinzugefügt werden kann, geändert worden oder außen gelöscht müssen den Index verbessern, der die Reihe enthält. Im Beispiel unten, zwei Reihen (StatesArray () und CodesArray ()) werden von einer externen Textakte (StateCodes.txt) geladen. Dieses ist eine Akte der Zustandnamen und der Zustandcodes für alle 50 Zustände. Im folgenden Index werden diese Reihen global für Zugang durch andere Unterprogramme definiert, die die Verarbeitung gegen die Reihen durchführen.
|
<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>
|
|
Using the Arrays
|
In diesem Beispiel lädt das Page_Load Unterprogramm die CodesArray und StatesArray Reihen, also hat die aktuelle Seite diese Reihen, die für sie vorhanden sind. , eine Vollendennote auf diese Diskussion, mit den Reihen gerade zu setzen, kann ein Paar von Sachen erfolgt werden.
|
Array Lookup
|
Da die zwei Reihen entsprechende Elementwerte haben und für diesen Grund können sie als entsprechende Reihen für Tabelle Look-up verwendet werden.
|
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,
|