Двумерный массив, отладить программу - VB

Формулировка задачи:

Найти наибольший элемент матрицы Х(10х15) и записать 1 в ту строчку и столбец, где он находится. программа

Sub pr4()
Randomize
Dim i, j, k, p, A(10 * 15), max
For i = 1 To 10
 For j = 1 To 15
 Cells(i, j) = 50 - Int(Rnd(10) * 10)
 Next j
Next i
max = A(1, 1)
'выдает ошибку с размерностью
k = 1
p = 1
For i = 1 To 10
 For j = 1 To 15
  If A(i, j) > max Then
  max = A(i, j)
  k = i
  p = j
  End If
 Next j
Next i
For i = 1 To 10
A(i, p) = 1
Next i
For j = 1 To 15
A(k, j) = 1
Next j
For i = 1 To 10
 For j = 1 To 15
 'дальше нужно вывести на экран полученный массив, но я не знаю как
 Next j
Next i
End Sub

Решение задачи: «Двумерный массив, отладить программу»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Me.AutoRedraw = True
Me.Cls
Randomize Timer
Dim i, j, k, p, A(10, 15), max
For i = 1 To 10
 For j = 1 To 15
 A(i, j) = Int(Rnd * 10) - 5
 Print A(i, j); "  ";
 Next j
  Print
Next i
max = A(1, 1)
'выдает ошибку с размерностью
k = 1: p = 1: fl = False
1: For i = k To 10
 For j = p To 15
  If A(i, j) >= max Then
  max = A(i, j)
  k = i: p = j: fl = True
  End If
 Next j
Next i
For i = 1 To 10
A(i, p) = 1
Next i
For j = 1 To 15
A(k, j) = 1
Next j
 
 Print: Print "Amax=A("; k; ";"; p; ") = "; max: Print
For i = 1 To 10
 For j = 1 To 15
 'дальше нужно вывести на экран полученный массив, но я не знаю как
 Print A(i, j); "  ";
 Next j
  Print
Next i
 
 
End Sub
                        