Заменить знак на противоположный во всех элементах в строки и в первом столбце матрицы - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д