Module
Contents
Index 🔎︎

# CBool Function

将字符串比较或数字比较的结果转换成布尔表达式，或者将单个数字表达式转换成布尔表达式。

## 语法：

    CBool (Expression1 {= | <> | < | > | <= | >=} Expression2) or CBool (Number)

## 返回值：

布尔

## 参数：

Expression1、Expression2：要比较的任意字符串或数字表达式。如果表达式匹配，CBool 函数将返回 True，否则将返回 False。

Number：要转换的任意数字表达式。如果表达式等于 0，则返回 False，否则返回 True。

下面的示例使用 CBool 函数对 Instr 函数返回的值进行求值。函数将检查用户输入的句子中是否含有 "and"。

## 错误代码：

5 无效的过程调用

## 示例：

    Sub ExampleCBool

    Dim sText As String

        sText = InputBox("Please enter a short sentence:")

        ' 验证句子中是否出现单词“and”。

        ' 未使用下面的命令行

        ' If Instr(Input, "and")<>0 Then...

        ' CBool 函数按如下方式使用:

        If CBool(Instr(sText, "and")) Then

            MsgBox "您输入的句子中出现了 "and"！"

        EndIf

    End Sub