CBool Function
ཡིག་རྒྱུན་ག་བསྡུར་ཡང་ན་ཨང་གྲངས་ཀྱི་ག་བསྡུར་་ལས་བུ་ལིན་གསལ་བརྗོད་ལུ་གཞི་བསྒྱུར་འབདཝ་ཨིན་ ཡང་ན་ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་རྐྱང་པ་ལས་བུ་ལིན་གསལ་བརྗོད་ལུ་གཞི་བསྒྱུར་འབདཝ་ཨིན།
ཚིག་སྦྱོར:
སི་བུལ་ (གསལ་བརྗོད་ ༡ {= | <> | < | > | <= | >=} གསལ་བརྗོད་ ༢ ) ཡང་ན་ སི་བུལ་ (ཨང་)
གནས་གོང་སླར་ལོག:
བུལ།
ཚད་བཟུང་ཚུ་:
གསལ་བརྗོད་ ༡ གསལ་བརྗོད་ ༢: ཡིག་རྒྱུན་གང་རུང་ཡང་ན་ཨང་གྲངས་ཀྱི་གསལ་བརྗོད་དེ་ཁྱོད་ཀྱིས་ག་བསྡུར་འབད་ནི་ཨིན་མི། གསལ་བརྗོད་དེ་མཐུན་སྒྲིག་འབད་བ་ཅིན་ སི་བུལ་ ལས་འགན་དེ་ བདེན་པ་སྦེ་སླར་ལོགཔ་ཨིན་དེ་མེན་པ་ཅིན་ རྫུན་མ་སྦེ་སླར་ལོགཔ་ཨིན།
ཨང་: ཨང་གྲངས་ཀྱི་གསལ་བརྗོག་གང་རུང་ཁྱོད་ཀྱིས་གཞི་བསྒྱུར་འབད་ནི་ཨིན་མི། གསལ་བརྗོད་དེ་ ༠ མཉམ་པ་ཅིན་ རྫུན་མ་སྦེ་སླར་ལོག་ཡོདཔ་་དེ་མེན་བདེན་པ་སླར་ལོག་ཡོདཔ་ཨིན།
འོག་གི་དཔེར་བརྗོད་ཀྱིས་ སི་བུལ་ ལས་འགན་དེ་ ཡིག་རྒྱུན་ ལས་འགན་གྱིས་སླར་ལོག་ཡོད་མི་གནས་གོང་དེ་བརྟག་ཞིབ་འབད་ནི་ལུ་ལག་ལེན་འཐབ་ཨིན། ལས་འགན་གྱིས་ཡི་གུ་ "and" དེ་ལག་ལེན་པ་གིས་བཙུགས་ཡོད་མི་བརྗོད་ཚིག་ནང་འཚོལ་ཐོབ་ཨིན་ན་བརྟག་ཞིབ་འབདཝ་ཨིན།
དཔེར་བརྗོད:
Sub ExampleCBool
Dim sText As String
ཨེསི་ཚིག་ཡིག་ = ཨིན་པུཊི་སྒྲོམ("Please enter a short sentence:")
ཨར་ཨི་ཨེམ་གྱིས་»and« ཡིག་གུ་དེ་བརྗོད་ཚིག་ནང་འབྱུང་པ་ཅིན་ཞུན་ལྷག་འབདཝ་ཨིན།
ཨར་ཨི་ཨེམ་བརྡ་བཀོད་གྱལ་གྱི་ཚབ་ལུ།
ཨར་ཨི་ཨེམ་ ཨིནསི་ཊིར་ཨིན་པ་ཅིན་(Input, "and")<>༠ དེ་ལས...
ཨར་ཨི་ཨེམ་ སི་བུལ་ལས་འགན་དེ་འོག་ལུ་བཟུམ་སྦེ་འཇུག་སྤྱོད་འབད་ཡོདཔ་:
སི་བུལ་ཨིན་པ་ཅིན་(Instr(sText, "and")) དེ་ལས།
འཕྲིན་དོན་སྒྲོམ "The word »and« appears in the sentence you entered!"
EndIf
End Sub