While...Wend Statement
рдЬрдм рдХрд╛рд░реНрдпрдХреНрд░рдорд▓реЗ рдХрдердирдорд╛ рд╕рд╛рдордирд╛ рдЧрд░рд┐рд░рд╣рдиреНрдЫ рдпрд╕рд▓реЗ рдЕрд╡рд╕реНрдерд╛ рдкрд░рд┐рдХреНрд╖рдг рдЧрд░реНрджрдЫ ред рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рдЭреБрдареЛ рднрдПрдХреЛ рдЦрдгреНрдбрдорд╛ рдХрд╛рд░реНрдпрдХреНрд░рдорд▓рд╛рдИ рд╢рд┐рдзреИ рджрд┐рдПрдХреЛ рдЧрдорди рдЧрд░реНрдиреЗ рдХрдердирд▓реЗ рд╕реБрдЪрд╛рд░реВ рдЧрд░рд╛рдЙрдЫ ред рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рд╕рддреНрдп рднрдПрдорд╛ рд▓реВрдкрд▓реЗ рдХрд╛рд░реНрдпрдХреНрд░рдорд▓реЗ рдЧрдорди рдЧрд░реНрдиреЗ рдкрддреНрддрд╛рд▓рдЧрд╛рдЙрдиреЗ рдмреЗрд▓рд╛рд╕рдореНрдо рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрджрдЫ рд░ рддреНрдпрд╕рдкрдЫрд┐ рдЬреБрдирдмреЗрд▓рд╛рдХрдердирд▓рд╛рдИ рдкрдЫрд╛рдбрд┐ рдЙрдлрд╛рд░реНрдЫ ред рдпрджрд┐ рдЕрд╡рд╕реНрдерд╛ рддреНрдпреЛ рд╕рдордп рд╕рдореНрдо рд╕рддреНрдп рд░рд╣реЗрдХреЛ рдЦрдгреНрдбрдорд╛ рд▓реВрдкрд▓реЗ рдлреЗрд░рд┐рдкрдирд┐ рдХрд╛рд░реНрдпрд╛рдиреНрд╡рдпрди рдЧрд░реНрджрдЫ ред
Unlike the Do...Loop statement, you cannot cancel a While...Wend loop with Exit. Never exit a While...Wend loop with GoTo, since this can cause a run-time error.
рдбреБ...рд▓реВрдк рдЬрдм... рд╡реЗрдиреНрдб рднрдиреНрджрд╛ рдзреЗрд░реИ рд▓рдЪрдХрджрд╛рд░ рд╣реБрдиреНрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рдЬрдм рд╢рд░реНрдд [Statement] рд╡реЗрдиреНрдб
рдЙрджрд╛рд╣рд░рдг:
рд╕рдм рдЙрджрд╛рд╣рд░рдг рдЬрдм рд╡реЗрдиреНрдб
рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ Dim stext
рдЗрдиреНрдЯрд┐рдЬрд░рдХреЛ рд░реВрдкрдорд╛ Dim iRun
sText ="рдпреЛ рдЫреЛрдЯреЛ рдкрд╛рда рд╣реЛ"
iRun = рез
рдЬрдм iRun < Len(sText)
рдпрджрд┐ Mid(sText,iRun,1 )<> " " рддреНрдпрд╕рдкрдЫрд┐ Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )
iRun = iRun + 1
рд╡реЗрдиреНрдб
MsgBox sText,реж,"рд╕рдЩреНрдХреЗрддрди рдЧрд░рд┐рдПрдХреЛ рдкрд╛рда"
End Sub