ይዞታዎች
ማውጫ 🔎︎

# ትንሽ...መምሪያ አረፍተ ነገር

ፕሮግራም በሚያጋጥመው ጊዜ ትንሽ አረፍተ ነገር: ሁኔታውን ይሞክራል: ሁኔታው ሀሰት ከሆነ: ፕሮግራሙ ይቀጥላል በ ቀጥታ የሚከተለውን የ መምሪያ አረፍተ ነገር: ሁኔታው እውነት ከሆነ: ዙር ይፈጸማል ፕሮግራሙ መምሪያ እስከሚያገኝ ድረስ እና ከዛ ይዘላል ወደ ትንሽ አረፍተ ነገር: ሁኔታው አሁንም እውነት ከሆነ: ዙር እንደገና ይፈጸማል

የ ተለየ የ ዙር...መስሪያ አረፍተ ነገር: እርስዎ መሰረዝ አይችሉም የ ትንሽ...መቀጠያ ዙር በ መውጫ በፍጹም አይውጡ በ ትንሽ...ዙር መቀጠያ በ መሄጃ ወደ ይህ የ ማስኬጃ-ጊዜ ስህተት ስለሚፈጥር

የ ዙር...መስሪያ በጣም ተለዋዋጭ ነው ከ ትንሽ...መምሪያ ይልቅ

## አገባብ:

    ትንሽ ሁኔታ [ማስኬጃ ጊዜ] መምሪያ

## ለምሳሌ:

      Sub ExampleWhileWend
      Dim stext As String
      Dim iRun As Integer
          sText ="This Is a short text"
          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,"Text encoded"
      End Sub