UC知道vb下标越界问题 请高手指教
来源：百度知道 编辑：UC知道 时间：2024/06/04 17:07:16
Option Base 1
Private Sub Form_Click()
Dim a(2321) As Integer
Sum = 0
b = 0
For i = 1 To 3570
For j = 1250 To 3570
If a(j) Mod i = 0 Then（下表越界）
Sum = Sum + 1
End If
Next j
Next i
If Sum = 2 Then
b = b + a(j)
End If
End Sub
这是怎么回事啊？？
Private Sub Form_Click()
Dim a(2321) As Integer
Sum = 0
b = 0
For i = 1 To 3570
For j = 1250 To 3570
If a(j) Mod i = 0 Then（下表越界）
Sum = Sum + 1
End If
Next j
Next i
If Sum = 2 Then
b = b + a(j)
End If
End Sub
这是怎么回事啊？？
Dim a(2321) As Integer 你定义了一个2321个元素的数组 怎么有For i = 1 To 3570 For j = 1250 To 3570 ???
Option Base 1
Private Sub Form_Click()
Dim a(3570) As Integer
Sum = 0
b = 0
For i = 1 To 3570
For j = 1250 To 3570
If a(j) Mod i = 0 Then（下表越界）
Sum = Sum + 1
End If
Next j
Next i
If Sum = 2 Then
b = b + a(j)
End If
End Sub