VBA基础
关于VBA的0、""(空字符串)、Null、Empty、与 Nothing 的区别
2017-08-02 17:13:42

给网友讲Is Nothing 与 Null 及 “”的区别,说了之后感觉不够完整,百度了一下。从CSDN抄了一段,献给菜鸟 -------------------------------------------------------------------------------------------------------------------------------- Option ExplicitPrivate Sub Command1_Click()    Dim A As Variant    Dim B As String    Dim C As Integer    Dim D As Object      Debug.Print A = Empty     '一个尚未初始化的variant变量是empty    A = Null: Debug.Print A   '一个variant变量可以赋值为Null    Debug.Print IsNull(A)     '判断一个varint变量是否为Null    Debug.Print B = ""        '判断一个string变量为""(空字符串)    Debug.Print C             '定义一个integer变量后,它自动初始化为0    Debug.Print D Is Nothing  '定义一个object变量后,它自动初始化为nothing     End Sub  'A 等于 Empty, 因为尚未初始化的“不定型变量”都等于 Empty。'但如果检测 A = "" 或 A = 0, 也都可以得到 True 值。'B 等于 "", 未初始化或初始化为""的“非固定长度字符串变量”都等于""。'但请注意'B<> Null。'C 等于 0, 这个还有问题吗?'D 等于 Nothing, 尚未初始化的或用set设置为nothing的对象变量都等于 Nothing,'但请不要使用 D = Nothing , 而要使用 D Is Nothing 来判断 D 是否等于 Nothing,'因为判断对象是否相等的符号是 Is 不是 = 。'最令人迷惑的地方是 Null 这个保留字,请看以下语句:'A = Null'Print A = Null'Print A <> Null'结果都是输出 Null(不是 True 也不是 False),这是因为任何一个运算式只要含有 Null,'则该运算式就等于 Null, '实际上想要判断某一数据是否为 Null 绝对不能使用:'If A = Null Then ' 永远都会得到 Null'而要使用:'If IsNull(A) Then  '哪一种数据会等于 Null 呢?除了含有 Null 运算式之外, 就是没有输入任何数据的'“数据字段”(在数据库中) 会等于 Null。 '后补:B 的默认值是 vbNullString(这个才是空字符串),不是 ""(这个叫零长度的字符串),尤其在调用 API 时是         不能搞混的