Заменить знак на противоположный во всех элементах в строки и в первом столбце матрицы - VB
Формулировка задачи:
Есть задача: заменить знак на противоположный во всех элементах в строки и в первом столбце (на пересечении знак не меняется ).Вроде программа работает,но результат замены знака только в 1, 3 и 5 строке.Если кто то сталкивался с подобным,буду признателен на помощь.
Решение задачи: «Заменить знак на противоположный во всех элементах в строки и в первом столбце матрицы»
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