用CMS做网站的好处/盐城seo培训

  vb6中存在几个虚幻的值：Null、Missing、Empty、Nothing、vbNullString。除了最后一个之外，每一个值都不能直接用“a=值”来判断。下面分别解释一下这几个值的含义。

1、Null

Null（空值）指一个不合法的数据，判断一个变量是否为Null使用SQL中的isNull函数。

1.1 ISNull函数

ISNULL函数：使用指定的替换值替换 NULL。

语法：ISNULL ( check_expression , replacement_value )

isnull(a,0)  '如果a字段有空值返回0 没有空值就返回a的本身
isnull(a,1)=2 '字段a有空值返回1，判断isnull(a,1)是否等于2'从TbStudent里查找stuAdress为空值的学生姓名和学号，并把空值替换成未知'
'stuAdress是int类型的，未知是varchar类型的，不允许添到同一列上'
select stuName,stuNumber,ISNULL(stuAdress,'未知') from TbStudent

  check_expression：将被检查是否为 NULL的表达式。check_expression 可以是任何类型的。

  replacement_value：代替值，在 check_expression 为 NULL时将返回的表达式。

注释：
  replacement_value 必须与 check_expresssion 具有相同的类型。
  如果 check_expression 不为 NULL，那么返回该表达式的值；否则返回 replacement_value。

1.2 使用Null的三种情况

(1)最简单的，函数直接返回Null给调用方。譬如

Function DivideEx(ByVal A as Double, ByVal B as Double) as DoubleIf B=0 Then		'当B=0时返回Null，表示为不合法数据'DivideEx=NullElseDivideEx=A/BEnd if
End Function

(2)数据库中，当一个字段设为“允许空值”时，VB读取到空值就会用Null表示,例如

Function GetCity(rst as ADODB.Recordset) as StringIf isNull(rst.Field("City")) Then	'当City字段为空时返回Province字段，否则返回City字段'GetCity=rst.Field("Province") Else GetCity=rst.Field("City")End if
End Function

(3)在调用库函数时，如果遇到传送变量类型与定义类型不一样时有时会出现Null值。

Null值在计算时有点奇怪，譬如Null-Null=Null，Null+10=10，Null+""=""等

2、Missing

Missing指传递进入Variant变量的缺少，判断Missing使用isMissing函数。
Missing只会在Varient中出现，如果给入的数据类型是Byte,Integer,Long,Single,Double等缺少时为0；String缺少时为""；Object缺少时为Nothing。**

data value;input var1 var2 @@;if missing(var2) then delete;	'如果var2的的对象丢失，就删除'datalines;
127 988 195 .
122 .n								'就这里吧n（nothing）删除了'
;
run;
proc print ;run;

if var2=. then delete这样的结果只会删除缺失的值，不能删除缺少的对象。

2.1 IsMissing函数

IsMissing是一个VB函数，它返回一个布尔值，表示一个可选参数是否未被传递给一个函数。


语法：IsMissing (ArgName) As Boolean

ArgName参数：必需，一个Variant类型的可选参数名。

备注：
  使用 IsMissing 函数可检测调用过程时是否提供了可选 Variant 参数。 如果未为指定参数传递任何值，则 IsMissing 将返回 True；否则将返回 False。
  如果 IsMissing 针对某参数返回 True，则在其他代码中使用缺少参数可能导致用户定义的错误。
  如果对 ParamArray （可变参数）参数使用 IsMissing，则将始终返回 False。
  IsMissing 对简单数据类型（如 Integer 或 Double）无效，因为与 Variants 不同，它们没有针对“丢失”标志位的设置。

示例：
  下例使用 IsMissing 函数检查是否已将可选参数传递到用户定义的过程。 请注意， Optional 参数现在可具有默认值和 Variant 之外的类型。

Dim ReturnValue		'下面的语句调用用户定义的函数过程'ReturnValue = ReturnTwice()    ' Return是Null'ReturnValue = ReturnTwice(2)    ' Returns是4'Function ReturnTwice(Optional A)	'函数过程定义'If IsMissing(A) Then			'如果缺少参数A，则返回Null'ReturnTwice = NullElse							'如果存在参数A，则返回值的两倍'ReturnTwice = A * 2End If
End Function

3、Empty

  VB特有的一种数据类型叫Variant 可变类型，理论上可以接受任何其他数据类型，如果变量未定义，VB自动将其作为可变类型对待。它的默认值就是 Empty，值 Empty 是异于0、零长度字符串 (“”) 或 Null 值的特定值。判断Empty使用isEmpty函数，例如：

If IsEmpty (Z) Then Z = 0

  当 Variant 变量包含 Empty 值时，可在表达式中使用它；将其作为 0 或零长度字符串来处理，这要根据表达式来定。

  只要将任何值（包括 0、零长度字符串或 Null）赋予 Variant 变量，Empty 值就会消失。而将关键字 Empty 赋予 Variant 变量，就可将 Variant 变量恢复为 Empty。

3.1 ISEmpty函数

IsEmpty返回一个指示是否已初始化变量的布尔值。


语法：IsEmpty(expression)

Dim MyVar, MyCheckMyCheck = IsEmpty(MyVar)    ' 返回值为True'MyVar = Null    			' 给MyVar赋值为空值'MyCheck = IsEmpty(MyVar)    ' 初始变化量已发生变化，返回值为False'MyVar = Empty    			' 将关键字 Empty 赋予 MyVar 变量'MyCheck = IsEmpty(MyVar)    ' 返回值为True'

Set MyObject = Nothing 

Dim i As Integer
If IsNothing(i) Then	'使用IsNothing，代码可以编译和运行 额。。。'' Do something 
End If

Dim i As Integer		'使用Is Nothing，代码不能运行，编译器会提出错误'
If i Is Nothing Then	'Is不接受类型为Integer的操作，必须是引用类型或可空类型''  Do something 	
End If

Dim temp As String
'这个时候temp还没有附值，只是定义了类型，就是说还没有真正占用内存，地址就是0'
'这时候temp就等于vbNullString'temp=""	
'把""赋值给temp，尽管等于空字符串，但是已经占用了内存，地址就发生了变化'

Const vbNull = 1Const vbNullChar = “”Const vbNullString = “”

Sub QQ1722187970()
Dim str1 As Stringstr1 = ""				'零长度字符的Len返回0'Debug.Print Len(str1)	'Len(vbNullChar)返回1'Debug.Print Len(vbNullChar)		'返回False'Debug.Print str1 = vbNullChar
End Sub