CBool Function
āĻāĻāĻāĻŋ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻ āĻĨāĻŦāĻž āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨āĻā§ āĻŦā§āĻ˛āĻŋā§āĻžāĻ¨ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°ā§ āĻĨāĻžāĻā§ āĻ āĻĨāĻŦāĻž āĻāĻāĻ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨āĻā§ āĻŦā§āĻ˛āĻŋā§āĻžāĻ¨ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) āĻ
āĻĨāĻŦāĻž CBool (Number)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
Bool
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
Expression1, Expression2: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸ā§āĻā§āĻ°āĻŋāĻ āĻ āĻĨāĻŦāĻž āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻāĻĒāĻ¨āĻŋ āĻ¤ā§āĻ˛āĻ¨āĻž āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨āĨ¤ āĻ¯āĻĻāĻŋ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨āĻāĻŋ āĻŽāĻŋāĻ˛ā§ āĻ¯āĻžā§, CBool āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ True āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§, āĻ āĻ¨ā§āĻ¯āĻĨāĻžā§ False āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¸āĻāĻā§āĻ¯āĻž: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻāĻĒāĻ¨āĻŋ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨āĨ¤ āĻ¯āĻĻāĻŋ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§āĻ° āĻŽāĻžāĻ¨ 0 āĻšā§, āĻ¤āĻžāĻšāĻ˛ā§ False āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§, āĻ āĻ¨ā§āĻ¯āĻĨāĻžā§ True āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻ¨āĻŋāĻā§āĻ° āĻāĻĻāĻžāĻšāĻ°āĻŖāĻāĻŋ Instr āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻĻāĻžāĻ¨āĻā§āĻ¤ āĻŽāĻžāĻ¨ āĻŽā§āĻ˛ā§āĻ¯āĻžā§āĻ¨ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ CBool āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšā§āĻ¤ āĻšā§āĨ¤ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻĒāĻ°ā§āĻā§āĻˇāĻž āĻāĻ°āĻž āĻšā§ āĻ¯āĻĻāĻŋ "and" āĻļāĻŦā§āĻĻāĻāĻŋ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ°āĻāĻžāĻ°ā§ āĻāĻ°ā§āĻ¤ā§āĻ āĻ¸āĻ¨ā§āĻ¨āĻŋāĻŦā§āĻļāĻā§āĻ¤ āĻŦāĻžāĻā§āĻ¯ā§ āĻĒāĻžāĻā§āĻž āĻ¯āĻžā§āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
Sub ExampleCBool
Dim sText As String
sText = InputBox("Please enter a short sentence:")
REM Proof if the word ÂģandÂĢ appears in the sentence.
REM āĻāĻŽāĻžāĻ¨ā§āĻĄ āĻ˛āĻžāĻāĻ¨ā§āĻ° āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤ā§
REM If Instr(Input, "and")<>0 Then...
REM CBool āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻ¨āĻŋāĻŽā§āĻ¨āĻ°ā§āĻĒā§ āĻĒā§āĻ°ā§ā§āĻ āĻāĻ°āĻž āĻšā§:
If CBool(Instr(sText, "and")) Then
MsgBox "The word ÂģandÂĢ appears in the sentence you entered!"
EndIf
End Sub