Заменить знак на противоположный во всех элементах в строки и в первом столбце матрицы - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.5 из 5
Похожие ответы