一个简单的数组问题

[yingxiangchen]

dim strCountryCode() as string

redim strCountryCode(X,Y)
xxxxxxxxxxxxxxxx
.......Code.......
xxxxxxxxxxxxxxxxx

ReDim Preserve strCountryCode(UBound(strCountryCode) + 2, 2)

最后一句有问题-----溢出

请帮大家帮忙看看是什么问题呀，谢谢！

[rainstormmaster]

//ReDim Preserve strCountryCode(UBound(strCountryCode) + 2, 2)

你不会是同时改变了两个维数吧

[yingxiangchen]

谢谢你，我现在才搞懂，在Ubound()里面还要加多一个东东，哈哈，谢谢你！

[yingxiangchen]

我上面的语句是只改变了二维数组的第一维（最左边），但后来才知道第一维是不可以改的是吧，可是我要怎样才能得出第二维的最大下标呢，（第一维可用Ubound(数组)），那第二维要怎样才能得出呢？比如 str(4,X) 要怎样才知道X的最大值呢？我其实也就这个问题。

[zou19820704]

只能改变数组的最后一唯的大小
a(12,20) as integer
MsgBox UBound(a, 2)
是20