arr()与arr 有什么区别？

LAOMALIN

Dim arr
arr = Split("123,456,654,546,465", ",")
MsgBox arr(2)
与
Dim arr（）
arr = Split("123,456,654,546,465", ",")
MsgBox arr(2)
split函数的结果应该是数组，为什么dim arr()会错误？

Zamyi

Dim arr：arr是一 Variant变量，dim arr()：arr是一动态数组，也想知道为什么不能用：
Dim arr（）
arr = Split("123,456,654,546,465", ",")
MsgBox arr(2)
其实也不难理解，数组是不能一次赋值的，变量就可以，就是被赋值后就是一数组。

[ 本帖最后由 Zamyi 于 2009-6-26 11:17 编辑 ]

extyg

Dim arr,由于没有显式地申明arr的类型,编译时默认为Variant类型,可以被赋值为数组.
Dim arr(),arr这时为数组,数组是不能直接赋值的,只能对数组里的元素赋值.
Sub test()
    Dim arr(), tempArr, i
    tempArr = Split("123,456,654,546,465", ",")
    ReDim arr(UBound(tempArr))
    For i = 0 To UBound(tempArr)
        arr(i) = tempArr(i)
    Next
    MsgBox arr(2)
End Sub

LAOMALIN

dim arr()不能直接赋值？
Sub ronhy()
Dim arr()
arr = Range("a1:b10")
MsgBox arr(1, 1)
End Sub
那这个怎么解释呢

LAOMALIN

Dim arr（） as string
arr = Split("123,456,654,546,465", ",")
MsgBox arr(2)
这样不会出错
欢迎大家讨论此问题！！！

Zamyi

Range("a1:b10")是一对象，Split("123,456,654,546,465", ",")是一数组

LAOMALIN

dim arr as range
set arr=range("a1:b5")
这样才是一个对象
dim arr()
arr=range("a1:b5")
这样是一个2维数组
我是这样理解的，不知道对不对

gyzzf

赞楼主“钻牛角尖”的精神，顶一下

ldy

dim arr()不能直接赋值？可以的 但要数据类型一致
'arr 是 Variant型数组
arr = Split("123,456,654,546,465", ",")  '错误split 返回string数组
arr =  array(1,131,111,"aaa",123)    'Ok  array 是 Variant型数组

dim brr() as string
'brr 是 string 型数组
brr = Split("123,456,654,546,465", ",")  'OK  split 返回string数组
brr =  array(1,131,111,"aaa",123)    '错误  array 是 Variant型数组

taller

动态数组可以直接赋值，对于Range区域的值作为数组元素可以使用下面两种形式。如果是Split的结果，数组字可以声明为String类型。
这种区别可能来源于无法确定Range对象中的数据类型（只是个人猜想）

1. 
   
2. Sub m1()
   
3.     Dim arr()
   
4.     arr() = Range("a1:A4").Value
   
5. End Sub
   
6. Sub m2()
   
7.     Dim arr
   
8.     arr = Range("a1:A4").Value
   
9. End Sub
   
10. 
    
11. Sub m3()
    
12.     Dim arr() As String
    
13.     arr() = Split("123,456,654,546,465", ",")
    
14. End Sub
    

复制代码

[ 本帖最后由 taller 于 2009-6-26 11:54 编辑 ]