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