CBool 函数

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

CBool(expression)

expression 是任意有效的表达式。

说明

如果 expression 是零，则返回 False；否则返回 True。如果 expression 不能解释为数值，则将发生运行时错误。

下面的示例使用 CBool 函数将一个表达式转变成 Boolean 类型。如果表达式所计算的值非零，则 CBool 函数返回 True；否则返回 False。

Dim A, B, CheckA = 5: B = 5            ‘ 初始化变量。Check = CBool(A = B)    ‘复选框设为 True 。A = 0                   ‘定义变量。 Check = CBool(A)        ‘复选框设为 False 。

VBS教程：函数-CBool 函数

原文：http://www.jb51.net/article/4647.htm