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