While...Wend Statement

Если ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° встрСчаСт ΠΈΠ½ΡΡ‚Ρ€ΡƒΠΊΡ†ΠΈΡŽ While, ΠΎΠ½Π° провСряСт ΡƒΠΊΠ°Π·Π°Π½Π½ΠΎΠ΅ условиС. Если условиС Π»ΠΎΠΆΠ½ΠΎ, ΠΏΡ€ΠΎΠ³Ρ€Π°ΠΌΠΌΠ° продолТаСтся нСпосрСдствСнно послС инструкции Wend. Если Π΄Π°Π½Π½ΠΎΠ΅ условиС истинно, Ρ†ΠΈΠΊΠ» выполняСтся Π΄ΠΎ Wend, Π° Π·Π°Ρ‚Π΅ΠΌ возвращаСтся ΠΊ инструкции While. Если Π΄Π°Π½Π½ΠΎΠ΅ условиС всС Π΅Ρ‰Π΅ истинно, Ρ†ΠΈΠΊΠ» Π±ΡƒΠ΄Π΅Ρ‚ Π²Ρ‹ΠΏΠΎΠ»Π½ΡΡ‚ΡŒΡΡ ΠΎΠΏΡΡ‚ΡŒ.

Π’ ΠΎΡ‚Π»ΠΈΡ‡ΠΈΠ΅ ΠΎΡ‚ инструкции Do...Loop, Ρ†ΠΈΠΊΠ» While...Wend Π½Π΅ ΠΌΠΎΠΆΠ΅Ρ‚ Π±Ρ‹Ρ‚ΡŒ ΠΏΡ€Π΅Ρ€Π²Π°Π½ ΠΊΠΎΠΌΠ°Π½Π΄ΠΎΠΉ Exit. Из Ρ†ΠΈΠΊΠ»Π° While...Wend нСльзя Π²Ρ‹ΠΉΡ‚ΠΈ с ΠΏΠΎΠΌΠΎΡ‰ΡŒΡŽ GoTo, ΠΏΠΎΡΠΊΠΎΠ»ΡŒΠΊΡƒ это ΠΌΠΎΠΆΠ΅Ρ‚ Π²Ρ‹Π·Π²Π°Ρ‚ΡŒ ΠΎΡˆΠΈΠ±ΠΊΡƒ Π²Ρ€Π΅ΠΌΠ΅Π½ΠΈ выполнСния.

ИспользованиС инструкции Do...Loop являСтся Π±ΠΎΠ»Π΅Π΅ Π³ΠΈΠ±ΠΊΠΈΠΌ, Ρ‡Π΅ΠΌ использованиС While...Wend.

Бинтаксис

While УсловиС [Π˜Π½ΡΡ‚Ρ€ΡƒΠΊΡ†ΠΈΡ] Wend

ΠŸΡ€ΠΈΠΌΠ΅Ρ€:

Sub ExampleWhileWend

Dim stext As String

Dim iRun As Integer

    sText ="Π­Ρ‚ΠΎ ΠΊΠΎΡ€ΠΎΡ‚ΠΊΠΈΠΉ тСкст"

    iRun = 1

    while iRun < Len(sText)

        if Mid(sText,iRun,1 )<> " " then Mid( sText ,iRun, 1, Chr( 1 + Asc( Mid(sText,iRun,1 )) )

        iRun = iRun + 1

    Wend

    MsgBox sText,0,"ВСкст Π·Π°ΠΊΠΎΠ΄ΠΈΡ€ΠΎΠ²Π°Π½"

End Sub