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:")
        REM 檢驗句子中是否含有「and」。
        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