[已解决]动态数组声明的一例

爱疯

刚看到DJ的一个问题：http://www.excelpx.com/forum.php?mod=viewthread&tid=122946

于是，我胡乱测试，满以为会报错：

 

Sub test()

    Dim x As String
    Dim arr As Variant

    x = "1,2,3"
    ReDim arr(x)
    Stop
    
End Sub

结果，出乎意料。。。。 请问：为什么结果会这样？谢谢！

最佳答案

月排行榜 / 总排行榜

amulee

2010-3-30 11:16

可以看到，其特性与Cint完全一致

当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。例如，0.5 转换为 0、1.5 转换为 2。

Sub Test1()
    Dim arr As Variant
    ReDim arr("1,2,3，1", "1.5")
    Stop
    '等同于下面语句
    ReDim arr(CInt("1,2,3，1"), CInt("1.5"))
    Stop
End Sub

跳转到最佳答案楼层

amulee

在Redim语句中，若subscripts类型不符，则会自动执行Cint函数将其转化成整形。

Sub Test1()
    Dim arr As Variant
    ReDim arr("1,2,3，1", "1.2")
    Stop
    '等同于下面语句
    ReDim arr(CInt("1,2,3，1"), CInt("1.2"))
    Stop
End Sub

amulee

可以看到，其特性与Cint完全一致

当小数部分恰好为 0.5 时，Cint 和 CLng 函数会将它转换为最接近的偶数值。例如，0.5 转换为 0、1.5 转换为 2。

Sub Test1()
    Dim arr As Variant
    ReDim arr("1,2,3，1", "1.5")
    Stop
    '等同于下面语句
    ReDim arr(CInt("1,2,3，1"), CInt("1.5"))
    Stop
End Sub

爱疯

谢谢阿木！

学习了，，，，，，你是怎么想到的[em11]

amulee

我也不知道怎么想到的。。。。

爱疯

QUOTE:

以下是引用amulee在2010-3-30 12:13:00的发言：
我也不知道怎么想到的。。。。

“好强大的小宇宙啊。。。。。”

--- 圣斗士中常听到一句话

xdwy81129

QUOTE:

以下是引用爱疯在2010-3-30 12:59:00的发言：

“好强大的小宇宙啊。。。。。”

--- 圣斗士中常听到一句话

比较经典，学习来了