Dim,Redim和ReDim Preserve的问题，帮忙看看这小段代码怎么总是“下标越界”

[小乖]

dim MyArray()
Redim MyArrray(2)

MyArray(0) = "hello"
MyArray(1) = "good-bye"

ReDim Preserve MyArray(5)

MyArray(2) = "more stuff"
MyArray(3) = "even more stuff"
MyArray(4) = "yet more stuff"

for i=0 to ubound(myarray)-1
msgbox myarray(i)
next

是我错了？

[mjpclab]

Redim MyArrray(2)
------>
Redim MyArray(2)

还有，服务器端不可以执行msgbox，你想让对话框在服务器上显示？

[mjpclab]

Redim MyArray(2)
实际定义的是MyArray(0)，MyArray(1)，MyArray(2)
这和C语言是有区别的

[baby21st]

小妹，你看看你的程序!!!

dim MyArray()
Redim MyArrray(2)
---------^
多了个r，唉~~

[baby21st]

不好意思，叫错了~~不要骂我啊~ 刚才看题库怎么就把小看成小妹了~~呵呵~~

[seraphgxh]

请注意 mjpclab(http://mjpclab.8u8.com) 的回答

[小乖]

baby21st(愚人): ..............-_-...


mjpclab(http://mjpclab.8u8.com): 谢谢了。。。不好意思。。。。。还是自己马虎。。。

[smallyear]

代碼里面可能含有其它無法識別的字符
你試著重新用手輸入﹐不要COPY﹗

[sunjiujiu]

Dim MyArray() As Integer '声明动态数组。
Redim MyArray(5) '分配 5 个元素。
For I = 1 To 5 '循环 5 次。
MyArray(I) = I '初始化数组。
Next I

下一条语句重定义该数组的大小，并清除其中的元素。

Redim MyArray(10) '大小重定为 10 个元素。
For I = 1 To 10 '循环 10 次。
MyArray(I) = I '初始化数组。
Next I

下面的语句重定义该数组的大小，但没有清除其中的元素。

Redim Preserve MyArray(15) '大小重定为 15 个元素


******************* 以上为msdn中的说明 **********************
Dim MyArray() As String '声明动态数组。
ReDim MyArray(5) '分配 5 个元素。
For i = 1 To 5 '循环 5 次。
MyArray(i) = CStr(i) '初始化数组。
Next i

'下一条语句重定义该数组的大小，并清除其中的元素。

'ReDim MyArray(10) '大小重定为 10 个元素。
'For I = 1 To 10 '循环 10 次。
' MyArray(I) = I '初始化数组。
'Next I

'下面的语句重定义该数组的大小，但没有清除其中的元素。

ReDim Preserve MyArray(15) '大小重定为 15 个元素。
For i = 5 To 14 '循环 10 次。
MyArray(i) = "more stuff"
Next i


For i = 0 To UBound(MyArray) - 1
MsgBox MyArray(i)
Next

******************** 以上为我的试验,没有问题 *********************
你对照一下看看你的代码哪里出问题了吧