2.8w+
社区成员
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
是我错了？
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
是我错了？
...全文
当前发帖距今超过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
******************** 以上为我的试验,没有问题 *********************
你对照一下看看你的代码哪里出问题了吧
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﹗
你試著重新用手輸入﹐不要COPY﹗
- 打赏
- 举报
小乖 2004-08-05
baby21st(愚人): ..............-_-...
mjpclab(http://mjpclab.8u8.com): 谢谢了。。。不好意思。。。。。还是自己马虎。。。
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，唉~~
dim MyArray()
Redim MyArrray(2)
---------^
多了个r，唉~~
- 打赏
- 举报
mjpclab 2004-08-05
Redim MyArray(2)
实际定义的是MyArray(0)，MyArray(1)，MyArray(2)
这和C语言是有区别的
实际定义的是MyArray(0)，MyArray(1)，MyArray(2)
这和C语言是有区别的
- 打赏
- 举报
mjpclab 2004-08-05
Redim MyArrray(2)
------>
Redim MyArray(2)
还有，服务器端不可以执行msgbox，你想让对话框在服务器上显示？
------>
Redim MyArray(2)
还有，服务器端不可以执行msgbox，你想让对话框在服务器上显示？
- 打赏
- 举报
清华大学版VB第二版课件 专业VB课件这个程序的目的是为了实现得到文本框1中的 数组b 和 内置 数组a 的交集，并以交集元素的个数作为 文本框二 显示可以执行的条件。代码如下： Private Sub Command1_Click() Dim a(0 To 9) As String '定义...
VBA每日一练（18），数组array的用法 redim preserve等 dim arr11 (5) dim arr12 (0 to 5 ) dim arr13 (1 to 5) dim arr21(1,5) dim arr22(0 to 1 ,0 to 5) dim arr22(1 to 1 ,1 to 5) dim arr3() 静态数组 dim arr51(5) 动态数组 dim arr61() redim arr61(13) r...
VBA 为什么你redim() 动态二维数组总出错？因为 redim 动态数组不太适合和循环搭配 redim时只有最后1维可变化，redim不太适合和循环搭配，即使用 redim preserve也不行！ 你装数据时一般都会有一个充当计数器的变量,这个变量最后的值就是数组中装入值的数量 一般是声明一个足够大的静态数组,或二次...
VBS变量类型和语法格式小结 数组的长度是N，最大下标为ubound(Array),即为N-1，下标从0开始（lbound(Array)），否则下标会越界3.VBS木有赋值号“==”，都只是用“=”4.重定义数组长度时，会丢失前面的赋值数据，要保留前面赋值的数据，需要用...
VB速查大全(数据库、表格及报表编程) ★ VB错误处理，ado常见错误，VB数据类型等，网上有很多教程是错的，强烈建议看此文 vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等
VB常见错误和难点分析 1．在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对...2．多边选择ElseIf关键字的书写和条件表达式的表示 多边选择ElseIf子句的关键字ElseIf之间不能写有空格，即不能写成Else If。 在多个条件表...
【原创】VBA学习笔记（12）VBA的数组 array---基础知识（1） dim 直接定义数组，也可以缺省定义---其实就是定义了一个动态数组 ， 如 dim arr1() 这个数组的维数和每个维数的长度都没声明 redim （可以定义静态数组 或动态数组） redim 的本意就是允许数组在运行过程中改变...
Visual Basic快捷教程——数组与字符串 将原子型数据按照一定的规则重组，就可以形成结构化数据，数组可以被认为是一种...数组和字符串是编程语言中的重要组成部分，也是实际开发中被大量使用的内容，本文主要介绍Visual Basic 2013中数组与字符串的基本用法
vb 如何定义一个未知大小一维数组？ 2012-12-09 10:33 酷依航 | 分类：VB | 浏览1941次我是这样定义 dim a(100) as string，但是经常性出现下标越界，又不想定义的范围太大，就想问下可不可以定义一个自适应的一维数组？ 删除问题 举报违规...
常见错误和难点分析 常见错误和难点分析 1．在选择结构中缺少配对的结束语句 对多行式的If块语句中，应有配对的End If语句结束。否则，在运行时系统会显示"块 If没有End If"的编译错误。同样对Select Case语句也应有与其相...
HTML ASP VBSCRIPT JAVASCRIPT SKILLS 常见问题 问题描述: 网页错误，无法显示。 解决办法： 1) 服务器端配置 iis 中 “允许客户端调试”，“发送具体的asp 错误" 2) 客户端 ie -> 工具 -> Internet 选项 -> 高级 -> 把 "显示友好http 错误”这个选项去掉 ...
VB实现List集合 Option Explicit '***********************List集合***************************** Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef psa() As Any) As Long ... Dim Size.
按键精灵什么是动态数组？如何使用动态数组？（新手进阶） 前言 如果你没有编程基础，对数组还没什么了解，建议不要...Dim GG(3) //定义一个数组GG，下标为3，数组元素数为4(公式：数组下标+1=数组中元素个数) GG(0)=8 GG(1)=3 GG(2)=4 GG(3)=6 // 上面是数组的定义与赋值，
无效过程调用或参数 这可能是由于参数超出范围，或包含无效数据。另外，有可能在不适当的时间对过程进行了调用。要纠正该错误 验证传递给过程的参数是有效的。 验证在适当的时间调用函数。 溢出试图赋给变量的赋值太大，这是因为： 赋值...
vb6备忘录（4） 数组 public/private/dim 数组名（下标） as 类型 下标：为整形（integer,可为负），默认以0开始。a(10)下载为0到10，故为11个元素。超出范围将产生 越界错误。亦可自定上下界a(3 to 23) 类型：多种，可基础类型
Excel中VBA编程学习笔记（二） ReDim Preserve Arr(1 To 5, 1 To 6) '修改第一维空间大小，提示下标越界 '测试增加数组维数 ReDim Preserve Arr(1 To 2, 1 To 6, 1 To 3) '增加数组维数，提示下标越界 '使用了 Preserve ...
excel vba真正的动态数组实例 动态数组的定义，一开始不需要给数组标明上界和下界。直接定义即可，如下面的代码： Dim MyStr() As String 这样，就定义了一个动态数组及其名称：MyStr()，现在，该数组的上界下界都是个未知数，也就是说，...
VB数组详解 这些变量称为数组的元素，每个数组元素都有一个编号，这个编号叫做下标，我们可以通过下标来区别这些元素。数组元素的个数有时也称之为数组的长度。一般情况下，数组的元素类型必须相同，可以是前面讲过的各种基本...
