Question

VB提示下标越界：提示下面的st(j)数组下标越界。

Function tread()
Dim nac As Integer, area As Single
Dim sumac As Single, nch As Integer
ReDim ach(nch - 1) As Single, d(nch - 1) As Single
Input #3, subcat
Print #5, "subtchment :", subcat
Input #3, nac, area
For j = 0 To nac - 1
Input #3, ac(j), st(j)
Next j
For j = 0 To nac - 1
tarea = tarea + ac(j)
Next j
tl = 0
ac(0) = ac(0) / tarea
sumac = ac(0)
For j = 1 To nac - 1
ac(j) = ac(j) / tarea
sumac = sumac + ac(j)
tl = tl + ac(j) * (st(j) + st(j - 1)) / 2
Next j
ac(nac) = 0
End Function

Answer 1

ST() 数组是否定义错误.

Answer 2

ReDim ach(nch - 1) As Single, d(nch

Answer 3

As Single, nch As Integer

Answer 4

是不是option base 1 了。。。？