[已解决]数组可以相除吗？？

北漂的猪

已知两个数组，想得到第三个 例如 arr1=array(5,2,6) arr2=array(1,1,2) 想得到对应相加的arr3 即5,2,3 请问该怎么做

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-7-3 05:55

'请再测试

1. Sub 数组相除()
   
2.     Dim arr1(), arr2(), arr3()
   
3.     Dim i As Byte
   
4.     arr1 = Array(5, 2, 6)
   
5.     arr2 = Array(1, 1, 2)
   
6.     ReDim Preserve arr3(0 To 2)
   
7.     For i = 0 To UBound(arr1)
   
8.         arr3(i) = arr1(i) / arr2(i)
   
9.     Next
   
10.     Cells(1, 1).Resize(3) = Application.Transpose(arr3)
    
11. End Sub

复制代码

跳转到最佳答案楼层

lyf7276

感觉要用循环才行：
for i=1to 3
arr3(i)=arr1(i)/arr2(i)
next

cjainwei

经本人测试,你的想法是好的,实际是行不通的

hwc2ycy

得用循环，这点处理上，不像在工作表里，可以加，乘。

hwc2ycy

1. Sub tst()
   
2.     Dim arr1, arr2, arr3
   
3.     Dim i As Byte
   
4.     arr1 = Array(5, 2, 6)
   
5.     arr2 = Array(1, 1, 2)
   
6.     arr3 = arr1
   
7.     For i = LBound(arr1) To UBound(arr1)
   
8.         arr3(i) = arr1(i) / arr2(i)
   
9.     Next
   
10. End Sub

复制代码

hwc2ycy

1. Sub tst()
   
2.     Dim arr1(), arr2(), arr3()
   
3.     Dim i As Byte
   
4.     arr1 = Array(5, 2, 6)
   
5.     arr2 = Array(1, 1, 2)
   
6.     arr3 = arr1
   
7.     For i = LBound(arr1) To UBound(arr1)
   
8.         arr3(i) = arr1(i) / arr2(i)
   
9.     Next
   
10. End Sub

复制代码

上清宫主

a = [{5,2,6} /{ 1,1,2}]  

上清宫主

arr1 = Array(5, 2, 6)
arr2 = Array(1, 1, 2)
arr3 = Evaluate("{" & Join(arr1, ",") & "}/{" & Join(arr2, ",") & "}")

北漂的猪

上清宫主 发表于 2013-6-12 21:20
arr1 = Array(5, 2, 6)
arr2 = Array(1, 1, 2)
arr3 = Evaluate("{" & Join(arr1, ",") & "}/{" & Join(a ...

Cells(1, 1).Resize(3) = (arr3)
经过测试，得出3个5， 5 ，5

北漂的猪

hwc2ycy 发表于 2013-6-12 20:58

Cells(1, 1).Resize(3) = (arr3)
经过测试，得出3个5， 5 ，5