1 Option Explicit
 2 ‘@author :yinzhengjie
 3 ‘blog:http://www.cnblogs.com/yinzhengjie/tag/python%E8%87%AA%E5%8A%A8%E5%8C%96%E8%BF%90%E7%BB%B4%E4%B9%8B%E8%B7%AF/
 4 ‘EMAIL:y1053419035@qq.com
 5 ‘CBool 函数
 6 ‘请参阅
 7 ‘CByte 函数 | CCur 函数 | CDate 函数 | CDbl 函数 | CInt 函数 | CLng 函数 | CSng 函数 | CStr 函数
 8 ‘返回表达式，此表达式已转换为 Boolean 子类型的 Variant。
 9 
10 ‘CBool(expression)
11 ‘expression 是任意有效的表达式。
12 
13 ‘说明
14 ‘如果 expression 是零，则返回 False；否则返回 True。如果 expression 不能解释为数值，则将发生运行时错误。
15 
16 ‘下面的示例使用 CBool 函数将一个表达式转变成 Boolean 类型。如果表达式所计算的值非零，则 CBool 函数返回 True；否则返回 False。
17 
18 Dim A, B, Check,Check_1,Check_2
19 
20 A = 5: B = 5            ‘ 初始化变量,可以用":"定义多个变量
21 Check = CBool(A = B)    ‘ 复选框设为 True 。（5=5为真）
22 Check_1 = CBool(A)  
23 MsgBox Check_1
24 A = 0                   ‘ 定义变量。
25 Check_2 = CBool(A)        ‘ 复选框设为 False 。（0=5为假）
26 MsgBox Check_2

 1 Option Explicit
 2 ‘@author :yinzhengjie
 3 ‘blog:http://www.cnblogs.com/yinzhengjie/tag/python%E8%87%AA%E5%8A%A8%E5%8C%96%E8%BF%90%E7%BB%B4%E4%B9%8B%E8%B7%AF/
 4 ‘EMAIL:y1053419035@qq.com
 5 
 6 ‘CByte(expression)
 7 ‘expression 参数是任意有效的表达式。
 8 ‘说明
 9 ‘通常，可以使用子类型转换函数书写代码，以显示某些操作的结果应被表示为特定的数据类型，而不是默认类型。例如，在出现货币、单精度、双精度或整数运算的情况下，使用 CByte 强制执行字节运算。
10 ‘CByte函数用于进行从其他数据类型到Byte子类型的的国际公认的格式转换。例如对十进制分隔符（如千分符）的识别，可能取决于系统的区域设置。
11 ‘如果 expression 在 Byte 子类型可接受的范围之外，则发生错误。下面的示例利用 CByte 函数把 expression 转换为 byte: 
12 
13 Rem 如果你没有看懂上面啥意思，其实你就可以理解成四舍五入啦，通过下面的例子你就理解啦！
14 Dim MyDouble, MyByte,MyDouble_1,MyByte_1
15 MyDouble = 125.5678         ‘ MyDouble 是一个双精度值。
16 MyDouble_1 = 125.4999
17 MsgBox MyDouble
18 MsgBox MyDouble_1
19 MyByte = CByte(MyDouble)    ‘ MyByte 包含 126 。
20 MyByte_1 = CByte(MyDouble_1)
21 MsgBox MyByte
22 MsgBox MyByte_1