Question

求VB大神！这个5*5数组.求主对角线n个元素之积！为什么我输入3的时候！就溢出了呢？怎么改才对？

Option Base 1
Dim A() As Integer, i, j, n, s As Integer
Private Sub Command1_Click()
ReDim A(5, 5) As Integer
For i = 1 To 5
For j = 1 To 5
A(i, j) = Int(Rnd * 90) + 10
Text1 = Text1 & A(i, j) & " "
Next j
Text1 = Text1 & vbCrLf
Next i
End Sub
Private Sub Command2_Click()
n = Text2.Text
s = 1
For i = 1 To n
s = s * A(i, i)
Next i
Text3 = s
End Sub

Answer 1

A(5,5)等同于A(0 to 6,0 to 6),要表示5*5的话就用A(4,4)或者是A(1 to 5,1 to 5),看你后面用的for循环，应该选择后者。

追问

可是我第一句写了 option base 1 了啊！