如何判断一个数组为空数组

E-H-P · 发表于 2010-4-8 11:10

本帖最后由爱疯于 2011-9-19 19:12 编辑

'Split,Array,Filter函数会返回空数组，但是如何判断呢？
'下面和大家分享一下
[hide]'空数组的概念：空数组首先它必须是数组，其次它没有元素。
'空数组有一个特性就是下界大于上界。
'利用这一特性就知道如何判断一个数组是否为空数组了。
'例：
Sub Ehp_arr()
Dim i!
Dim arr, arr2, arr3
arr = Array("face", "计费", "Sheet1")
arr2 = Array("单价", "计费", "表")
For i = 0 To UBound(arr2)
    arr3 = Filter(arr, arr2(i))
    'Filter函数返回空数组
    If LBound(arr3) > UBound(arr3) Then
    '通过比较arr的上下界来判断数组是否为空
        MsgBox "数组arr3是一个空数组"
    Else
        MsgBox "数组arr3不是一个空数组"
    End If
Next
End Sub[/hid]

平原 · 发表于 2010-4-8 11:18

学习学习。

枯禅 · 发表于 2010-4-8 11:32

学习学习。

ease12 · 发表于 2010-4-8 11:37

[em31][em31][em31]

QQ9947 · 发表于 2010-4-8 11:37

来学习

爱疯 · 发表于 2010-4-8 11:38

[em26][em26][em26]

爱疯 · 发表于 2010-4-8 11:38

[em26][em26]

开辆小富康 · 发表于 2010-4-8 12:02

这个有用。来学学

上清宫主 · 发表于 2010-4-8 12:08

学习学习。

hyhhh · 发表于 2010-4-8 12:14

[em02][em02]

		自动登录	找回密码
密码			注册

[分享] 如何判断一个数组为空数组

ipip学习下