vb 数组 下标越界

我的程序如下:Functionb(corpusAsSingle,rateAsSingle,yearAsInteger)AsSingleDimiAsIntegerDimar... 我的程序如下:Function b(corpus As Single, rate As Single, year As Integer) As Single
Dim i As Integer
Dim arr() As Single
corpus = Form1.f
rate = Form1.Combo4.Text
year = Form1.Combo3.Text
arr(1) = corpus / 12 + corpus * rate
For i = 2 To year
arr(i + 1) = corpus / year / 12 + (corpus - arr(i) * rate)
b = arr(i)
Next i
End Function

Private Sub Form_Click()
Dim h As Single
Dim i As Single
Dim j As Integer
Dim k() As Single
Print b(h, i, j)
End Sub
关于arr(1) = corpus / 12 + corpus * rate这句VB老是说我的程序下标越界,请问各位高手如何改才好?还有对于动态数组如何用变量设置它的边界了?
展开
 我来答
kurt023
2006-10-18 · TA获得超过767个赞
知道小有建树答主
回答量:377
采纳率:0%
帮助的人:0
展开全部
使用redim关键字设置动态数组大小
加入
redim arr(1 to year + 1)
arr(1) = corpus / 12 + corpus * rate

动态数组的用法:
组到底应该有多大才合适,有时可能不得而知。所以希望能够在运行时具有改变数组大小的能力。

动态数组就可以在任何时候改变大小。在 Visual Basic 中,动态数组最灵活、最方便,有助于有效管理内存。例如,可短时间使用一个大数组,然后,在不使用这个数组时,将内存空间释放给系统。

如果不用动态数组,就要声明一个数组,它的大小尽可能达到最大,然后再抹去那些不必要的元素。但是,如果过度使用这种方法,会导致内存的操作环境变慢。

要创建动态数组,请按照以下步骤执行:

(如果希望数组为公用数组,则)用 Public 语句声明数组,或者,(如果希望数组为模块级,则)在模块级用 Dim 语句声明数组,或者(如果希望数组为局部数组,则)在过程中用 Static 或 Dim 语句声明数组。给数组附以一个空维数表,这样就将数组声明为动态数组。
Dim DynArray ()

用 ReDim 语句分配实际的元素个数。
ReDim DynArray (X + 1)

ReDim 语句只能出现在过程中。与 Dim 语句、Static 语句不同,ReDim 语句是一个可执行语句,由于这一语句,应用程序在运行时执行一个操作。

ReDim 语句支持这样的语法,它与固定数组中使用的语法相同。对于每一维数,每个 ReDim 语句都能改变元素数目以及上下界。但是,数组的维数不能改变。

ReDim DynArray (4 to 12)

例如,用第一次声明在模块级所建立的动态数组 Matrix1:

Dim Matrix1 () As Integer

然后,在过程中给数组分配空间:

Sub CalcValuesNow ()
.
.
.
ReDim Matrix1 (19, 29)
End Sub

这里的 ReDim 语句给 Matrix 分配一个 20 × 30 的整数矩阵(元素总大小为 600)。还有一个办法,用变量设置动态数组的边界:

ReDim Matrix1 (X, Y)

注意 您可以将字符串赋值给大小可变的字节数组。一个字节数组也可以被赋值给一个可变长的字符串。一定要注意字符串中的字节数会随平台而变化。同一个字符串在 Unicode 平台上的字节数是它在非 Unicode 平台上的两倍。

保留动态数组的内容
每次执行 ReDim 语句时,当前存储在数组中的值都会全部丢失。Visual Basi 重新将数组元素的值置为 Empty(对 Variant 数组)、置为 0(对 Numeric 数组)、置为 零长度字符串(对 String 数组)或者置为 Nothing(对于对象的数组)。

在为新数据准备数组,或者要缩减数组大小以节省内存时,这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 Preserve 关键字的 ReDim 语句就可做到这点。例如,使用 UBound 函数引用上界,使数组扩大、增加一个元素,而现有元素的值并未丢失:

ReDim Preserve DynArray (UBound (DynArray) + 1)

在用 Preserve 关键字时,只能改变多维数组中最后一维的上界;如果改变了其它维或最后一维的下界,那么运行时就会出错。所以可这样编程:

ReDim Preserve Matrix (10, UBound (Matrix, 2) + 1)

而不可这样编程:

ReDim Preserve Matrix (UBound (Matrix, 1) + 1, 10)

参考资料: http://www.programfan.com/club/showbbs.asp?id=165998

阚敏刘文乐
2019-12-05 · TA获得超过3727个赞
知道大有可为答主
回答量:3143
采纳率:29%
帮助的人:223万
展开全部
当然会下标越界啦,你的for循环里有一句写的是
If
a(i)
<
a(i
+
1)
Then
那你试想,当i=5的时候,这句就成了
If
a(5)
<
a(6)
Then
开始时你没有给数组元素6赋值,只赋值从0到5号,vb就当成6号没有了,所以就下标越界了。。。
如果我没猜错,你这段程序,本意应该是将数组元素降序排列的吧?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式