MSアクセス：添字が範囲

Question

のうちは私が実行TMEエラーを取得しています「9」：添字が範囲外のこの場所でコードに：コードの

interval(i) = i 

ワンピース：

Public Sub array_fill(a As Integer, b As Integer) 

Dim i As Integer 
Dim interval() As Integer 
Dim arraySize As Integer 

arraySize = b - a 

ReDim interval(arraySize) 

For i = a To b Step 1 
    interval(i) = i 
Next i 

End Sub 

何が原因で起こりますか？

Answer 1

あなたが使用して（例えば）あなたのコードを実行した場合：次に

Public Sub array_fill 8, 10 

：あなたのループでは2に

ReDim interval(arraySize) 

意志サイズあなたの配列0をiの最初の値は8です。ありませんinterval(8)

あなたのコードを変更する方法は、作成しているアレイで何をしたいかによって異なります。