墙上那一串串红辣椒——数组入门讲座

liaoyaming · 发表于 2011-6-14 15:53

太强了，真是大师啊

jayzoudequan · 发表于 2011-7-1 22:33

太厉害，学习了·······

热浪2006 · 发表于 2011-7-1 23:12

很是精彩，非常实用！
想请教山菊花版主，如何纵（横）向连接两个二维数组？
如：arr1是100行5列、arr2是50行5列，连接后为150行5列且原数据不丢？
或：arr3是4行50列、arr4是4行40列，连接后为4行90列且原数据不丢？

系统没有提供像连接字符串一样简单的函数或语句供数组使用。在实际运用中，我们只能向蚂蚁学习，把这个家的东西一件一件对号入座挪向另一个家。
首先用ReDim语句将指定数组的地盘扩大，为了保留原数据，需要使用关键字Preserve，使用时要注意，该方法只能改变数组末维的大小，举例如一个二维数组，只能改变第2维的大小，详见帮助。
上例中，合并arr3与arr4，代码为：
ReDim Preserve arr3(1 To 4, 1 To 90)
For i = 1 To 4
For j = 1 To 40
arr3(i, 50 + j) = arr4(i, j)
Next
Next
受ReDim限制，不能用该方法直接合并arr1与arr2。
--山菊花

tong01 · 发表于 2011-7-23 13:55

谢谢老师了，上网能跟老师学到东西感觉很充实，头也不晕了，哈哈

yangshengli · 发表于 2011-7-23 14:23

不错,收下了!

mis2000 · 发表于 2011-7-31 09:37

经典之作，5年之后学习依然津津有味，感谢山版。

热浪2006 · 发表于 2011-7-31 18:04

先谢谢山菊花版主赐教！我一直也是用扩充数组再追加数据的办法，今得知别无简易他法，虽有些惆怅，但也算是验证了，静心了。

梦竹2 · 发表于 2011-9-25 15:07

收藏起来,慢慢学习,谢谢老师.{:soso_e179:}

wlianke · 发表于 2011-10-28 19:19

山菊花版主，高手出招！

alex_bn_lee · 发表于 2011-10-31 11:09

{:soso_e122:}经典的红辣椒数组~

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