Заменить знак на противоположный во всех элементах в строки и в первом столбце матрицы - VB

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

Есть задача: заменить знак на противоположный во всех элементах в строки и в первом столбце (на пересечении знак не меняется ).Вроде программа работает,но результат замены знака только в 1, 3 и 5 строке.Если кто то сталкивался с подобным,буду признателен на помощь.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
 
Dim Mas(5, 5) As Integer
Dim rez As String
 
Min = -9
Max = 9
 
Randomize
 
For i = 1 To 5
    For j = 1 To 5
        Mas(i, j) = Int((Max - Min) * Rnd() + Min)
        rez = rez + " | " + Str(Mas(i, j))
    Next j: Print
    rez = rez + " |" + Chr(13)
Next i
        
rez = rez + "*********" + Chr(13)
 
k = InputBox("Введите номер строки от 1 до 5")
 
If k >= 1 And k <= 5 Then
    For i = 1 To 5
        For j = 1 To 5
            Mas(k, j) = Mas(k, j) * (-1)
            Mas(i, 1) = Mas(i, 1) * (-1)
            rez = rez + " | " + Str(Mas(i, j))
        Next j
        rez = rez + " |" + Chr(13)
    Next i
    MsgBox (rez)
Else
    MsgBox ("Неправильный ввод")
    Form2.Hide
End If
 
End Sub

Решение задачи: «Заменить знак на противоположный во всех элементах в строки и в первом столбце матрицы»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
 
Dim Mas(5, 5) As Integer
Dim rez As String
 
 
Min = -9
Max = 9
 
Randomize
 
 
 
For i = 1 To 5
    For j = 1 To 5
        Mas(i, j) = Int((Max - Min) * Rnd() + Min)
        rez = rez + " | " + Str(Mas(i, j))
    Next j: Print
    rez = rez + " |" + Chr(13)
Next i
        
rez = rez + "*********" + Chr(13)
        
 
   
   
        
   k = InputBox("Введите номер строки от 1 до 5")
 
If k >= 1 And k <= 5 Then
    For i = 1 To 5
        Mas(k, i) = Mas(k, i) * (-1)
        Mas(i, 1) = Mas(i, 1) * (-1)
    Next i
Else
    MsgBox ("Неправильный ввод")
    'Form2.Hide
    Exit Sub
End If
 
For i = 1 To 5
      For j = 1 To 5
             rez = rez + " | " + Str(Mas(i, j))
      Next j
        rez = rez + " |" + Chr(13)
 Next i
 MsgBox (rez)
End Sub