While...Wend Statement

While རྗོད་པ་ཕྲད་པའི་སྐབས་བྱ་རིམ་གྱིས་ཆ་རྐྱེན་ལ་ཚོད་བགམ་བྱེད། གལ་ཏེ་ཆ་རྐྱེན་ནི་ Falseཡིན་ན་ ཐད་ཀར་དུ་ Wend རྗོད་པའི་རྗེས་ལ་བྱ་རིམ་ལག་བསྟར་བྱེད། གལ་ཏེ་ཆ་རྐྱེན་ནི་ Trueཡིན་ན་མུ་མཐུད་ནས་བསྐྱར་འཁོར་ལག་བསྟར་བྱས་ཏེ་ Wend རྗོད་པ་ལ་ཐུག་པའི་བར་དེ་ལྟར་བྱེད། དེ་རྗེས་ While རྗོད་པ་ལ་མཆོངས་བྱེད། གལ་ཏེ་ཆ་རྐྱེན་དེ་ད་དུང་ Trueཡིན་ན་བསྐྱར་དུ་བསྐྱར་འཁོར་ལག་བསྟར་བྱེད།

Do...Loop རྗོད་པ་དང་མི་འདྲ་ ཕྱིར་ཐོན་ While...Wend བསྐྱར་འཁོར་སུབ་པ་བེད་སྤྱོད་མི་རུང་། དེས་འཁོར་རྒྱུག་སྐབས་ནོར་འཁྲུལ་ཐོན་པ་ཆགས་ངེས་ GoTo ཕྱིར་ཐོན་ While...Wend བསྐྱར་འཁོར་རྩ་བ་ནས་སྤྱོད་མི་རུང་ དེས་འཁོར་རྒྱུག་སྐབས་ནོར་འཁྲུལ་ཐོན་པ་ཆགས་ངེས།

Do...Loop རྗོད་པ་ནི་ While...Wend རྗོད་པ་ལས་རྐྱེན་པ་ཡོད།

བརྡ་འཕྲོད་


While Condition [Statement] Wend

དཔེ་གཞི་


  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

Please support us!