Question

下标越界怎么办，跪求高手

Private Sub huazheng(m1, n1)
Dim i As Double
Dim j As Integer
i = Val(Text1.Text)
m1 = 1
n1 = Mid(i, 3)
For j = 1 To Len(n1)
m1 = m1 & "0"
Next
End Sub

Private Sub Command1_Click()
Dim x_array(), f_array(), m_array()
Static j
Dim m, n As Long
Dim r As Long
Dim x As Integer, y As Integer, k As Integer
Call huazheng(m, n)
Print "m="; m; ",n="; n
Do
ReDim Preserve x_array(j)
x = m \ n
x_array(j) = x
j = j + 1
r = m Mod n
m = n
n = r
Loop While (r <> 0)
Print "j="; j
Print Join(x_array, ",")
ReDim f_array(j)
ReDim m_array(j)
f_array(0) = x_array(0) * 0 + 1
f_array(1) = x_array(1) * f_array(0) + 0
m_array(0) = x_array(0) * 1 + 0
m_array(1) = x_array(1) * m_array(0) + 1
For k = 0 To j

f_array(k) = x_array(k) * f_array(k - 1) + f_array(k - 2)
m_array(k) = x_array(k) * m_array(k - 1) + m_array(k - 2)
Next k

Print Join(m_array, ",")

End Sub

Answer 1

当k=0时，f_array(k-1)不就变成f_array(-1)，而你的数组的初始下标为0，所以说下标越界啊

Answer 2

一般循环的最后一次要注意，最后一次的下标一般都越界。注意检查