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

小乖 2004-08-05 11:45:41
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

是我错了?
...全文
266 8 点赞 打赏 收藏 举报
写回复
8 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sunjiujiu 2004-08-05
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

******************** 以上为我的试验,没有问题 *********************
你对照一下看看你的代码哪里出问题了吧
  • 打赏
  • 举报
回复
smallyear 2004-08-05
代碼里面可能含有其它無法識別的字符
你試著重新用手輸入﹐不要COPY﹗
  • 打赏
  • 举报
回复
小乖 2004-08-05
baby21st(愚人): ..............-_-...


mjpclab(http://mjpclab.8u8.com): 谢谢了。。。不好意思。。。。。还是自己马虎。。。
  • 打赏
  • 举报
回复
seraphgxh 2004-08-05
请注意 mjpclab(http://mjpclab.8u8.com) 的回答
  • 打赏
  • 举报
回复
baby21st 2004-08-05
不好意思,叫错了~~不要骂我啊~ 刚才看题库怎么就把小看成小妹了~~呵呵~~

  • 打赏
  • 举报
回复
baby21st 2004-08-05
小妹,你看看你的程序!!!

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







  • 打赏
  • 举报
回复
mjpclab 2004-08-05
Redim MyArray(2)
实际定义的是MyArray(0),MyArray(1),MyArray(2)
这和C语言是有区别的
  • 打赏
  • 举报
回复
mjpclab 2004-08-05
Redim MyArrray(2)
------>
Redim MyArray(2)

还有,服务器端不可以执行msgbox,你想让对话框在服务器上显示?
  • 打赏
  • 举报
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-08-05 11:45
社区公告
暂无公告