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