ДВУМЕРНЫЙ МАССИВ

ВЫДАЕТ ИНДЕКС ЗА ПРЕДЕЛАМИ ДИАПАЗОНА, УКАЖИТЕ ПОЖАЛУЙСТА ОШИБКУ,БИТЫЕ ЧАСЫ УЖЕ СИЖУ НАД ЭТОЙ ПРОГРАММОЙ((
Public Class Form1
Dim i, j, t, h, A(100, 100) As Integer
Dim f As Object
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
DataGridView1.ColumnCount() = 0
t = InputBox("число столбцов")
h = InputBox("число строк")
Randomize()
If RadioButton1.Checked = True Then
For Me.i = 0 To t
DataGridView1.Columns.Add("колонка", i)
DataGridView1.Columns(i).Width = 50
For Me.j = 0 To h
DataGridView1.Rows.Add()
A(i, j) = Val(InputBox("введите элемент", "ввод матрицы", A(i, j)))
DataGridView1.Rows(0).Cells(i).Value = A(i, j)
Next j
Next i
End If
Randomize()
If RadioButton2.Checked = True Then
For Me.i = 0 To t
For Me.j = 0 To h
A(i, j) = -20 + Int(Rnd(1) * 41)
DataGridView1.Rows(j).Cells(i).Value = A(i, j)
Next j
Next i
End If
For Me.j = 0 To h
f = 0
For Me.i = 0 To t
f = f + A(i, j)
Next i
DataGridView1.Rows(j).Cells(t).Value = f / t
Next j
End Sub