For...Next Statement
рдЕрд░реНрдХреЛ рдЦрдгреНрдбрдХреЛрд▓рд╛рдЧрд┐ рдирдореНрдмрд░ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рднрдПрдХрд╛ рд╕рдордпрд╣рд░реВрдХреЛ рдмреАрдЪрдорд╛ рдХрдердирд╣рд░реВ рджреЛрд╣реЛрд░реНрдпрд╛рдЙрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдХреЛрд▓рд╛рдЧрд┐ =рд╕реБрд░реБ рдЕрдиреНрддреНрдпрд▓рд╛рдИ [рдЪрд░рдг рдЪрд░рдг]
рдХрдерди рдЦрдгреНрдб
[рдмрд╛рд╣рд┐рд░рд┐рдирдХрд╛ рд▓рд╛рдЧрд┐]
рдХрдерди рдЦрдгреНрдб
рдЕрд░реНрдХреЛ [counter]
рдЪрд▓рд╣рд░реВ:
рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛:рд▓реВрдк рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛ рдмрд╛рд░рд╛рдмрд░ рдЪрд┐рдиреНрд╣(рд╕реБрд░реБ)рдХреЛ рджрд╛рдпрд╛рдБрд▓рд╛рдИ рд╕реНрдерд╛рдкрдирд╛рдХрд╛рд▓рдореИ рдорд╛рди рдорд╛рдирдВрдЩреНрдХрди рдЧрд░реЗрдХреЛ рд╣реБрдиреНрдЫ ред рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓рд╣рд░реВ рдорд╛рддреНрд░ рд╡реИрдз рд╣реБрдиреНрдЫрдиреН ред рдЕрдиреНрддрд┐рдо рдкрдЯрдХ рдкрд╛рд╕ рднрдПрд╕рдореНрдордХреЛ рдЪрд▓ рдЪрд░рдг рдЕрдиреБрд╕рд╛рд░ рд▓реВрдк рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛ рдШрдЯ рдмрдв рд╣реБрдиреНрдЫ ред
рд╕реБрд░реБ:рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓ рдЬрд╕рд▓реЗ рд▓реВрдкрдХреЛ рд╕реБрд░реБрдорд╛ рд╕реНрдерд╛рдкрдирд╛ рдЧрд░реЗрдХреЛ рдорд╛рди рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред
рдЕрдиреНрддреНрдп:рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЪрд▓ рдЬрд╕рд▓реЗ рд▓реВрдкрдХреЛ рдЕрдиреНрддреНрдпрдорд╛ рдЕрдиреНрддрд┐рдо рдорд╛рди рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред
рдЪрд░рдг: рдорд╛рди рд╕реЗрдЯ рдЧрд░реНрдиреБрд╣реЛрд╕реН рдЬрд╕рд▓реЗ рд▓реВрдк рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛ рдШрдб рдмрдв рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдЪрд░рдг рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдирдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рд▓реВрдк рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛ резрд▓реЗ рдмрдвреЗрдХреЛ рдкрд╛рдЗрдиреНрдЫ рдпреЛ рдХреЗрд╕рдорд╛ рд╕реБрд░реБрдХреЛ рднрдиреНрджрд╛ рдЕрдиреНрддреНрдпрдорд╛ рдмрдвреА рд╣реБрдиреИ рдкрд░реНрджрдЫ ред рдпрджрд┐ рддрдкрд╛рдИрдБрд▓реЗ рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛ рдШрдЯрд╛рдЙрди рдЪрд╛рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рд╕реБрд░реБ рднрдиреНрджрд╛ рдЕрдиреНрддреНрдп рдХрдо рд╣реБрдиреИ рдкрд░реНрджрдЫ , рдЪрд░рдгрд▓реЗ рдЛрдгрд╛рддреНрдордХ рдорд╛рди рдорд╛рдирд╛рдЩреНрдХрди рдЧрд░реЗрдХреЛ рд╣реБрдиреИ рдкрд░реНрджрдЫ ред
...рдЕрд░реНрдХреЛ рдХреЛрд▓рд╛рдЧрд┐рд▓реВрдкрд▓реЗ рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВрджреНрд╡рд╛рд░рд╛ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░рд┐рдПрдХрд╛ рд╕рдордпрд╣рд░реВрдХреЛ рдирдореНрдмрд░рдХреЛрд▓рд╛рдЧрд┐ рд╕рдмреИ рдХрдердирд╣рд░реВ рд▓реВрдкрдорд╛ рджреЛрд╣реЛрд░реНрдпрд╛рдЙрдЫ ред
рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдХреЛ рдЪрд▓ рдШрдЯреЗрдорд╛,рдЖрдзрд╛рд░рднреВрддLibreOfficeрд▓реЗ рдЕрдиреНрддрд┐рдо рдорд╛рди рдлреИрд▓рд┐рд╕рдХреЗрдХреЛ рдЦрдгреНрдбрдорд╛ рдЬрд╛рдБрдЪ рдЧрд░реНрджрдЫ ред рдЪрд╛рдБрдбреЛ рднрдиреНрджрд╛ рдЪрд╛рдБрдбреЛ рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рд▓реЗ рдЕрдиреНрддрд┐рдо рдорд╛рди рдкрд╛рд╕ рдЧрд░реНрджрд╛ рд▓реВрдкрд▓реЗ рд╕реНрд╡рдд:рд░реВрдкрдореИ рдЕрдиреНрддреНрдп рдЧрд░рд┐рджрд┐рдиреНрдЫ ред
...рдЕрд░реНрдХреЛрдХреЛрд▓рд╛рдЧрд┐рдХрдердирд╣рд░реВ рдПрдХрдкрдЫрд┐ рдЕрд░реНрдХреЛ рд░рд╛рдЦреНрдирд▓рд╛рдИ рд╕рдореНрднрд╡ рд╣реБрдиреНрдЫ ред рдпрджрд┐ рджрд┐рдПрдХреЛ рдЕрд░реНрдХреЛрдХрдердирд╣рд░реВрдорд╛ рддрдкрд╛рдИрдБрд▓реЗ рдЪрд▓ рд╡рд┐рд╢реЗрд╖рд┐ рдХреГрдд рдирдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛,рдЕрд░реНрдХреЛрд▓реЗ рдЕрд╣рд┐рд▓реЗ рднрд░реНрдЦрд░реИрдХреЛ рдХреЛрд▓рд╛рдЧрд┐рдХрдердирд▓рд╛рдИ рд╕реНрд╡рдд: рдЕрдиреБрдорддрд┐ рджрд┐рдиреНрдЫ ред
рдпрджрд┐ режрдХреЛ рдмрдвреЛрддреНрддрд░реА рд╡рд░реНрдгрди рдЧрд░реЗрдХреЛ рдЦрдгреНрдбрдорд╛, рдХрдердирд╣рд░реВ рдХреЛрд▓рд╛рдЧрд┐ рд░ рдЕрд░реНрдХреЛрдХреЛ рдмреАрдЪрдорд╛ рд╕реБрдЪрд╛рд░реБрд░реВрдкрд▓реЗ рджреЛрд╣реЛрд░рд┐рд░рд╣рдиреНрдЫрдиреН ред
рдЬрдм рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдХреЛ рдЪрд▓рд▓рд╛рдИ рддрд▓ рдЧрдгрдирд╛ рдЧрд░реНрджреИ рд╣реБрдиреНрдЫ рдЖрдзрд╛рд░рднреВрдд LibreOfficeрд▓реЗ рдЕрдзрд┐рдХ рдкреНрд░рд╡рд╛рд╣ рд╡рд╛ рдиреНрдпреБрди рдкреНрд░рд╡рд╛рд╣ рдЬрд╛рдБрдЪ рдЧрд░реНрджрдЫ ред рдЬрдм рд╡рд┐рдкрд░рд┐рдд рджрд┐рд╢рд╛рдорд╛ рдЕрдиреНрддреНрдпрдХреЛ (рдзрдирд╛рддреНрдордХ рдЪрд░рдг рдорд╛рди) рднрдиреНрджрд╛ рдмрдвреА рд╡рд╛ рдЕрдиреНрддреНрдпрдХреЛ(рдЛрдгрд╛рддреНрдордХ рдЪрд░рдг рдорд╛рди) рднрдиреНрджрд╛ рдХрдо рднрдПрдХреЛ рдмреЗрд▓рд╛ рд▓реВрдкрдХреЛ рдЕрдиреНрддреНрдп рд╣реБрдиреНрдЫ ред
рд▓реВрдкрдмрд╛рдЯ рдмрд┐рдирд╛ рдЕрд╡рд╕реНрдерд╛ рдмрд╛рд╣рд┐рд░рд┐рдирд▓рд╛рдИ рдмрд╛рд╣рд┐рд░рд┐рдирдХрд╛ рд▓рд╛рдЧрд┐рдХрдерди рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реН ред рдпреЛ рдХрдерди рдХреЛрд▓рд╛рдЧрд┐...рдЕрд░реНрдХреЛрд▓реВрдк рднрд┐рддреНрд░рдорд╛рддреНрд░ рд╣реБрдиреНрдЫ ред рдирд┐рд╕реНрдХрдиреБрд╣реЛрд╕реН рдЕрд╡рд╕реНрдерд╛рд▓рд╛рдИ рдирд┐рдореНрди рдХрд┐рд╕рд┐рдорд▓реЗ рдкрд░рд┐рдХреНрд╖рдгрд▓рд╛рдИ рдЧрд░реНрдирд▓рд╛рдИ рдпрджрд┐...рддреНрдпрд╕рдкрдЫрд┐рдХрдерди рдкреНрд░рдпреЛрдЧ рдЧрд░реНрдиреБрд╣реЛрд╕реНред
рдХреЛрд▓рд╛рдЧрд┐...
рдХрдердирд╣рд░реВ
рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ = рд╕рддреНрдп рддреНрдпрд╕рдкрдЫрд┐ рдмрд╛рд╣рд┐рд░рд┐рдирдХрд╛ рд▓рд╛рдЧрд┐
рдХрдердирд╣рд░реВ
рдЕрд░реНрдХреЛ
рджреНрд░рд╖реНрдЯреНрдмреНрдп:рдХрд╛ рд▓рд╛рдЧрд┐...рдЕрд░реНрдХреЛ рд▓реВрдкрд╣рд░реВ рдПрдХрдкрдЫрд┐ рдЕрд░реНрдХреЛ рдЧрд░рд┐рдПрдХреЛ рд╣реБрдиреНрдЫ ред рдпрджрд┐ рддрдкрд╛рдИрдБ рдмрд╛рд╣рд┐рд░рд┐рди рдХреЛрд▓рд╛рдЧрд┐рд╕рдБрдЧ рд▓реВрдкрдмрд╛рдЯ рдмрд┐рдирд╛ рдЕрд╡рд╕реНрдерд╛ рдмрд╛рд╣рд┐рд░рд┐рдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдПрдХрдкрдЯрдХрдорд╛ рдПрдЙрдЯрд╛ рдорд╛рддреНрд░ рд▓реВрдк рдмрд╛рд╣рд┐рд░рд┐рдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг
рджрд┐рдПрдХреЛ рдЙрджрд╛рд╣рд░рдгрдорд╛ рджреБрдИрдЯрд╛ рдПрдХрдкрдЫрд┐ рдЕрд░реНрдХреЛ рдЧрд░рд┐ рд░рд╛рдЦрд┐рдПрдХрд╛ рд▓реВрдк резреж рд╡рдЯрд╛ рддрддреНрд╡рд╣рд░реВ( sEntry() )рд╕рдБрдЧ рд╕реНрдЯреНрд░рд┐рдЩ рдПрд░реЗ рдХреНрд░рдордмрджреНрдз рдЧрд░реНрдирд▓рд╛рдИ рдкреНрд░рдпреЛрдЧ рд╣реБрдиреНрдЫрди рддреА рдмрд┐рднрд┐рдиреНрди рдкреНрд░рдХрд╛рд░рдХрд╛ рд╕рд╛рдордЧреНрд░реАрд╣рд░реВрд╕рдБрдЧ рдкрд╣рд┐рд▓реНрдпреИ рднрд░рд┐рдПрдХрд╛ рд╣реБрдиреНрдЫрди ред
Sub ExampleSort
Dim sEntry(9) As String
Dim iCount As Integer
Dim iCount2 As Integer
Dim sTemp As String
sEntry(реж) = "рдЬреЗрд░рд┐"
sEntry(рез) = "рдкреЗрдЯреНрдЯрд┐"
sEntry(реи) = "рдХреБрд░реНрдЯ"
sEntry(рей) = "рдереЛрдорд╕"
sEntry(рек) = "рдорд╛рдИрдХрд▓"
sEntry(5) = "рдбреЗрднрд┐рдб"
sEntry(рем) = "рдХреНрдпрд╛рдерд┐"
sEntry(рен) = "рд╕реБрд╕рд┐"
sEntry(рео) = "рдЗрдбрд╡рд╛рд░реНрдб"
sEntry(реп) = "рдХреНрд░рд┐рд╕реНрдЯрд╛рдЗрди"
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