Замена минимальных элементов массива на число L - VB

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

нужно заменить минимальные элементы матрицы на число L. Массив генерирует числа автоматически при помощи

For I = 0 To N - 1
 For j = 0 To m - 1
  A(I, j) = Int(21 * Rnd - 10)
 Next j
Next I

далее вывод этих элементов на MSFlexGrid

Private Sub Command4_Click()
 
MSFlexGrid2.Rows = N + 1
   MSFlexGrid2.Cols = m + 1
  
  MSFlexGrid2.Row = 0
   For j = 0 To m
    MSFlexGrid2.Col = j
    MSFlexGrid2.ColWidth(j) = 700
    MSFlexGrid2.Text = j
   Next j

   MSFlexGrid2.Col = 0
   MSFlexGrid2.ColWidth(0) = 300
   For I = 0 To N
    MSFlexGrid2.Row = I
    MSFlexGrid2.Text = I
   Next I
       
 For I = 0 To N - 1
  MSFlexGrid2.Row = I + 1
   For j = 0 To m - 1
    MSFlexGrid2.Col = j + 1
    MSFlexGrid2.Text = A(I, j)
    Next j
 Next I

поиск минимальных элементов и замена их на L

l = Val(Text4.Text)
Picture2.Cls
For j = 0 To m
For I = 0 To N
   If A(I, j) < Min Then A(I, j) = l
 Next I
 Next j
 Picture2.Print Min
 End Sub

в конечном счете получается,что заменяются не минимальные элементы,а все отрицательные числа. помогите найти ошибку

Решение задачи: «Замена минимальных элементов массива на число L»

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

                            L = Val(Text4.Text)
Picture2.Cls
Dim min As Double, iMin As Integer, jMin As Integer
For j = 0 To m
  min = A(0, j): iMin = 0: jMin = j
  For i = 0 To n
     If A(i, j) <= min Then min = A(i, j): iMin = i: jMin = j
  Next i
  A(iMin, jMin) = L
Picture2.Print Min
Next j
                        