运用split函数后，如何将字符串数组转为数值数组

pipiludaxian

如何使by(n)作为数值类型输出  
用了CInt函数 无效果啊
请高人赐教
Sub del()
Rem 测试
Dim myary
Dim item
Dim by

mary = Split("23,16,88,2,3, 1000", ",")
n = 0
For Each item In mary
    Debug.Print item
    by(n) = CInt(item)
    Debug.Print by(n)
    n = n + 1
Next
end

lu_zhao_long

把 (n) 去掉：
by = CInt(item)
    Debug.Print by

pipiludaxian

老大 你这是把数组中的元素逐个赋给变量 by
我要实现的是逐个赋给数组 by
然后输出数字by的每个元素（要求是int型）  再进一步对输出的整形数字进行排序等处理

pipiludaxian

到底哪不对呢
Sub del()
Rem 测试
Dim myary
Dim item
Dim a
Dim by()

mary = Split("23,16,88,2,3,1000", ",")
Debug.Print UBound(mary)
For n = 0 To UBound(mary)
   ' Debug.Print CInt(mary(n))
     by(n) = CInt(mary(n))
     Debug.Print by(n)
Next

qy1219no2

1. 
   
2. by(n)=Val(Item)
   
3. '或者
   
4. by(n)=Item+0

复制代码

lu_zhao_long

pipiludaxian 发表于 2015-2-14 08:58
到底哪不对呢
Sub del()
Rem 测试

1. 
   
2. Sub del()
   
3. Rem ??
   
4. Dim mary
   
5. Dim item
   
6. Dim n
   
7. Dim by()
   
8. 
   
9. mary = Split("23,16,88,2,3,1000", ",")
   
10. Debug.Print UBound(mary)
    
11. 
    
12. 
    
13. ReDim by(0 To UBound(mary))
    
14. 
    
15. For n = 0 To UBound(mary)
    
16. ' Debug.Print CInt(mary(n))
    
17.     by(n) = CInt(mary(n))
    
18.     Debug.Print by(n)
    
19. Next
    
20. End Sub
    

复制代码

关键的是这一句：ReDim by(0 To UBound(mary))