Найти наименьший элемент каждой строки матрицы и заменить его нулем - VB

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

Здравствуйте! Пожалуйста помогите найти ошибку Дана действительная квадратная матрица. найти наименьший элемент каждой строки матрицы и заменить его нулем. Вывести на форме исходную и новые матрицы.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim a(1 To 4, 1 To 4) As Integer, b(1 To 4, 1 To 4) As Integer, Min As Integer
Dim i As Integer
Dim j As Integer
   
Show
 
For i = 1 To 4
For j = 1 To 4
 a(i, j) = 10 * Rnd - 2
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
For i = 1 To 4
For j = 1 To 4
Next j
Next i
For i = 1 To 4
For j = 1 To 4
Picture2.Print b(i, j);
Next j
Picture2.Print
Next i
For i = 1 To 4
Min = b(i, 1)
For j = 1 To 4
If Min < b(i, j) Then
Min = b(i, j)
End If
Next j
Print "Min", Min
Next i
Print
End Sub

Решение задачи: «Найти наименьший элемент каждой строки матрицы и заменить его нулем»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
Dim a(1 To 4, 1 To 4) As Integer, Min As Integer, minIndex As Integer
Dim i As Integer
Dim j As Integer
   
Show
 
For i = 1 To 4
For j = 1 To 4
 a(i, j) = 10 * Rnd - 2
Picture1.Print a(i, j);
Next j
Picture1.Print
Next i
 
For i = 1 To 4
Min = a(i, 1)
minIndex = 1
For j = 1 To 4
If a(i, j) < Min Then Min = a(i, j): minIndex = j
Next j
a(i, minIndex) = 0
Print "Min", Min
Next i
Print
 
 
For i = 1 To 4
For j = 1 To 4
Picture2.Print a(i, j);
Next j
Picture2.Print
Next i
End Sub