请参阅

描述

返回表达式，此表达式已转换为 Boolean 子类型的 Variant。

语法

CBool(expression)

expression 是任意有效的表达式。

说明

如果 expression 是零，则返回 False；否则返回 True。如果 expression 不能解释为数值，则将发生运行时错误。 下面的示例利用 CBool 函数把 expression 转换为 Boolean。如果 expression 不为零， CBool 返回 True；否则,返回 False。

Dim A, B, Check
A = 5: B = 5            ' 初始化变量
Check = CBool(A = B)    '复选框设为 True

A = 0                   '定义变量 
Check = CBool(A)        '复选框设为 False