例: IsArray function

Dim arrayFixed(1 To 5)	
Dim arrayDynam()
Print IsArray(arrayFixed)     ' Output:  True 
Print IsArray(arrayDynam)     ' Output:  True 
Dim v As Variant
Print IsArray(v)              ' Output:  False
v = arrayFixed
Print IsArray(v)              ' Output:  True