For...Next Statement
āĻāĻāĻāĻŋ āύāĻŋāϰā§āĻĻāĻŋāώā§āĻ āϏāĻŽā§ āĻĒāϰā§āϝāύā§āϤ For...Next āĻŦā§āϞāĻā§āϰ āĻŽāϧā§āϝ⧠āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĒā§āϰāĻĻāĻžāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
For counter=start To end [Step step]
āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
[Exit For]
āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻŦā§āϞāĻ
Next [counter]
āĻā§āϰāĻŋā§ā§āĻŦāϞ:
āĻāĻŖāύāĻžāĻāĻžāϰā§: āϞā§āĻĒ āĻāĻŖāύāĻžāĻāĻžāϰā§āĻāĻŋ āĻĒā§āϰāĻžāĻĨāĻŽāĻŋāĻāĻāĻžāĻŦā§ āϏāĻŽāĻžāύ āĻāĻŋāĻšā§āύā§āϰ (āĻļā§āϰā§) āĻĄāĻžāύ⧠āĻāĻāĻāĻŋ āĻŽāĻžāύ āĻŦāϰāĻžāĻĻā§āĻĻ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻŽāĻžāύ āĻšāϞ⧠āĻŦā§āϧāĨ¤ End āĻĒāĻžāϏ āύāĻž āĻāϰāĻž āĻĒāϰā§āϝāύā§āϤ āĻā§āϰāĻŋā§ā§āĻŦāϞā§āϰ āϏā§āϤāϰ āĻ āύā§āϏāĻžāϰ⧠āϞā§āĻĒ āĻāĻŖāύāĻžāĻāĻžāϰ⧠āĻŦā§āĻĻā§āϧāĻŋ āĻ āĻĨāĻŦāĻž āĻšā§āϰāĻžāϏ āĻĒāĻžā§āĨ¤
āĻļā§āϰā§: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻāĻā§āϏāĻĒā§āϰā§āĻļāύ āϝāĻž āϞā§āĻĒā§āϰ āĻļā§āϰā§āϤ⧠āĻĒā§āϰāĻžāϰāĻŽā§āĻāĻŋāĻ āĻŽāĻžāύ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϏāĻŽāĻžāĻĒā§āϤ: āϏāĻāĻā§āϝāĻžāϏā§āĻāĻ āĻā§āϰāĻŋā§ā§āĻŦāϞ āϝāĻž āϞā§āĻĒā§āϰ āĻļā§āώ⧠āϏāϰā§āĻŦāĻļā§āώ āĻŽāĻžāύ āύāĻŋāϰā§āĻĻāĻžāϰāĻŖ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϧāĻžāĻĒ: āĻāĻāĻāĻŋ āĻŽāĻžāύ āύāĻŋāϰā§āϧāĻžāϰāĻŖ āĻāϰāĻž āĻšā§ āϝāĻž āĻĻā§āĻŦāϰāĻž āϞā§āĻĒ āĻāĻŖāύāĻžāĻāĻžāϰā§āϰ āĻŽāĻžāύ āĻŦā§āĻĻā§āϧāĻŋ āĻ āĻĨāĻŦāĻž āĻšā§āϰāĻžāϏ āĻāϰāĻž āϝāĻžā§āĨ¤ āϝāĻĻāĻŋ āϧāĻžāĻĒāĻāĻŋ āϏā§āύāĻŋāϰā§āĻĻāĻŋāώā§āĻāĻāĻžāĻŦā§ āĻāϞā§āϞā§āĻ āĻāϰāĻž āύāĻž āĻšā§, āϤāĻžāĻšāϞ⧠āϞā§āĻĒ āĻāĻŖāύāĻžāĻāĻžāϰā§āϰ āĻŽāĻžāύ ā§§ āĻŦā§āĻĻā§āϧāĻŋ āĻĒāĻžā§āĨ¤ āĻāĻ āĻā§āώā§āϤā§āϰā§, āϏāϰā§āĻŦāĻļā§āώ āĻŽāĻžāύāĻāĻŋ āĻ āĻŦāĻļā§āϝāĻ āĻļā§āϰā§āϰ āĻŽāĻžāύ āĻĨā§āĻā§ āĻŦā§ āĻšāϤ⧠āĻšāĻŦā§āĨ¤ āĻāĻĒāύāĻŋ āϝāĻĻāĻŋ āĻāĻŖāύāĻžāĻāĻžāϰā§āϰ āĻŽāĻžāύ āĻšā§āϰāĻžāϏ āĻāϰāϤ⧠āĻāĻžāύ, āϤāĻžāĻšāϞ⧠āϏāϰā§āĻŦāĻļā§āώ āĻŽāĻžāύāĻāĻŋ āĻ āĻāĻļā§āϝāĻ āĻļā§āϰā§āϰ āĻŽāĻžāύ āĻĨā§āĻā§ āĻā§āĻ āĻšāϤ⧠āĻšāĻŦā§, āĻāĻŦāĻ āϧāĻžāĻĒā§āϰ āĻŽāĻžāύ āĻāύāĻžāϤā§āĻŽāĻ āĻšāϤ⧠āĻšāĻŦā§āĨ¤
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ⧠āĻāϞā§āϞā§āĻāĻŋāϤ āϏāĻŽā§ā§āϰ āĻāύā§āϝ āϞā§āĻĒā§ For...Next āϞā§āĻĒā§āϰ āϏāĻžāĻšāĻžāϝā§āϝ⧠āϏāĻāϞ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āĻāĻŖāύāĻž āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻšā§āϰāĻžāϏ āĻĒāĻžāĻā§āĻžāϰ āĻĢāϞā§, āϏāϰā§āĻŦāĻļā§āώ āĻŽāĻžāύ āĻĒāĻžāĻā§āĻž āĻāĻŋā§ā§āĻā§ āĻāĻŋāύāĻž āϤāĻž LibreOffice āĻŦā§āϏāĻŋāĻā§āϰ āĻŽāĻžāϧā§āϝāĻŽā§ āĻĒāϰā§āĻā§āώāĻž āĻāϰāĻž āĻšā§āĨ¤ āĻāĻŖāύāĻžāĻāĻžāϰ⧠āϏāϰā§āĻŦāĻļā§āώ āĻŽāĻžāύ⧠āĻĒā§āĻāĻāĻžāύā§āϰ āϏāĻžāĻĨā§ āϏāĻžāĻĨā§ āϞā§āĻĒāĻāĻŋ āϏā§āĻŦā§āĻāĻā§āϰāĻŋā§āĻāĻžāĻŦā§ āϏāĻŽāĻžāĻĒā§āϤ āĻšā§ā§ āϝāĻžā§āĨ¤
For...Next āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻāĻāϤā§āϰāĻŋāϤ āĻāϰāĻž āϏāĻŽā§āĻāĻŦāĨ¤ Next āϏā§āĻā§āĻāĻŽā§āύā§āĻ āĻ āύā§āϏāϰāĻŖāĻāĻžāϰ⧠āĻāĻāĻāĻŋ āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻāϞā§āϞā§āĻ āύāĻž āĻāϰā§āύ, āϤāĻžāĻšāϞ⧠Next āϏā§āĻŦā§āĻāĻā§āϰāĻŋā§āĻāĻžāĻŦā§ āϏāĻŦāĻā§ā§ā§ āϏāĻžāĻŽā§āĻĒā§āϰāϤāĻŋāĻ For āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āύāĻŋāϰā§āĻĻā§āĻļāύ āĻāϰ⧠āĻĨāĻžāĻā§āĨ¤
āϝāĻĻāĻŋ 0 āĻāϰ āĻŦā§āĻĻā§āϧāĻŋ āĻāϞā§āϞā§āĻ āĻāϰāĻž āĻšā§, āϤāĻžāĻšāϞ⧠For āĻāĻŦāĻ Next āĻāϰ āĻŽāϧā§āϝ⧠āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āϏā§āĻā§āĻāĻŽā§āύā§āĻ āϧāĻžāϰāĻžāĻŦāĻžāĻšāĻŋāĻāĻāĻžāĻŦā§ āĻĒā§āύāϰāĻžāĻŦā§āϤā§āϤāĻŋ āĻāϰāĻž āĻšā§āĨ¤
āĻāĻŖāύāĻž āĻā§āϰāĻŋā§ā§āĻŦāϞ āĻāĻŖāύāĻž āĻāϰāĻžāϰ āϏāĻŽā§, LibreOffice āĻŦā§āϏāĻŋāĻ āĻĻā§āĻŦāĻžāϰāĻž āĻāĻāĻžāϰāĻĢā§āϞ⧠āĻ āĻĨāĻŦāĻž āĻāύā§āĻĄāĻžāϰāĻĢā§āϞ⧠āĻĒāϰā§āĻā§āώāĻž āĻāϰāĻž āĻšā§āĨ¤ āĻāĻŖāύāĻžāĻāĻžāϰā§āĻāĻŋ End (āϧāĻžāĻĒā§āϰ āϧā§āĻŦāύāĻžāϤā§āĻŽāĻ āĻŽāĻžāύ) āĻāϰ āĻŦā§āĻļāĻŋ āĻ āĻĨāĻŦāĻž End (āϧāĻžāĻĒā§āϰ āĻāύāĻžāϤā§āĻŽāĻ āĻŽāĻžāύ) āĻāϰ āĻā§āĻ āĻšā§ āϤāĻžāĻšāϞ⧠āϞā§āĻĒāĻāĻŋ āĻļā§āώ āĻšā§ā§ āϝāĻžā§āĨ¤
āĻāĻāĻāĻŋ āϞā§āĻĒ āĻĨā§āĻā§ āĻļāϰā§āϤāĻšā§āύāĻāĻžāĻŦā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰāĻžāϰ āĻāύā§āϝ Exit For āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§āύāĨ¤ āĻāĻ āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻ āĻŦāĻļā§āϝāĻ For...Next āϞā§āĻĒā§āϰ āĻŽāϧā§āϝ⧠āĻĨāĻžāĻāϤ⧠āĻšāĻŦā§āĨ¤ āύāĻŋāĻŽā§āύāĻžāύā§āϏāĻžāϰ⧠āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻļāϰā§āϤāĻāĻŋ āĻĒāϰā§āĻā§āώāĻŖā§āϰ āĻāύā§āϝ If...Then āϏā§āĻā§āĻāĻŽā§āύā§āĻāĻāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰā§āύ:
For...
statements
If condition = True Then Exit For
statements
āĻĒāϰāĻŦāϰā§āϤā§
āύā§āĻ: āύā§āϏā§āĻāĻā§āϤ For...Next āϞā§āĻĒā§, āϝāĻĻāĻŋ āĻāĻĒāύāĻŋ āĻāĻāĻāĻŋ āϞā§āĻĒ āĻĨā§āĻā§ Exit For āĻāϰ āϏāĻžāĻšāĻžāϝā§āϝ⧠āύāĻŋāĻāĻļāϰā§āϤāĻāĻžāĻŦā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰā§āύ āϤāĻžāĻšāϞ⧠āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āĻāĻāĻāĻŋ āϞā§āĻĒ āĻĨā§āĻā§ āĻĒā§āϰāϏā§āĻĨāĻžāύ āĻāϰāĻŦā§āĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ
āύāĻŋāĻā§āϰ āĻāĻĻāĻžāĻšāϰāĻŖāĻāĻŋ āĻĻāĻŋāĻāĻāĻŋ āĻāĻāϤā§āϰāĻŋāϤ āϞā§āĻĒ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āĻāĻāĻāĻŋ āϏā§āĻā§āϰāĻŋāĻ ā§§ā§ĻāĻāĻŋ āĻāϞāĻŋāĻŽā§āύā§āĻā§āϰ āĻŽāϧā§āϝ⧠āϏāĻžāĻāĻžā§ ( sEntry() ), āϝāĻž āĻĒā§āϰāĻĨāĻŽā§ āĻŦāĻŋāĻāĻŋāύā§āύ āĻŦāĻŋāώā§āĻŦāϏā§āϤ⧠āĻĻā§āĻŦāĻžāϰāĻž āĻĒā§āϰāĻŖ āĻāϰāĻž āĻšā§:
Sub ExampleSort
Dim sEntry(9) As String
Dim iCount As Integer
Dim iCount2 As Integer
Dim sTemp As String
sEntry(0) = "Jerry"
sEntry(1) = "Patty"
sEntry(2) = "Kurt"
sEntry(3) = "Thomas"
sEntry(4) = "Michael"
sEntry(5) = "David"
sEntry(6) = "Cathy"
sEntry(7) = "Susie"
sEntry(8) = "Edward"
sEntry(9) = "Christine"
For iCount = 0 To 9
For iCount2 = iCount + 1 To 9
If sEntry(iCount) > sEntry(iCount2) Then
sTemp = sEntry(iCount)
sEntry(iCount) = sEntry(iCount2)
sEntry(iCount2) = sTemp
End If
Next iCount2
Next iCount
For iCount = 0 To 9
Print sEntry(iCount)
Next iCount
End Sub