Дана квадратная матрица 3х3. Если в ней встретился отрицательный элемент, то диагональ матрицы удваивается - VB

Узнай цену своей работы

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

Дана квадратная матрица 3х3. Если в ней встретился отрицательный элемент, то диагональ матрицы удваивается. Помогите, пожалуйста, вывести на экран обе матрицы. Неужели никто не может?

Решение задачи: «Дана квадратная матрица 3х3. Если в ней встретился отрицательный элемент, то диагональ матрицы удваивается»

textual
Листинг программы
Private Sub Command1_Click()
Dim a(1 To 3, 1 To 3) As Integer
Dim b(1 To 3, 1 To 3) As Integer
Dim flag As Boolean
flag = False
Print "ÏåðâГ*Гї Г¬Г*òðèöГ*:";
 
For i = 1 To 3
 Print
  For j = 1 To 3
  a(i, j) = InputBox("Ââîä ýëåìåГ*ГІГ* (" & i & ";" & j & ")")
  If a(i, j) < 0 Then flag = True
  Print a(i, j);
  Next
Next
  Print "ÂòîðГ*Гї Г¬Г*òðèöГ*:";
Print
For i = 1 To 3
 Print
  For j = 1 To 3
  If flag Then
    If i = j Then
      b(i, j) = 2 * a(i, j)
    Else
      b(i, j) = a(i, j)
    End If
  Else
  b(i, j) = a(i, j)
  End If
  Print b(i, j);
  Next
Next
End Sub

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

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