Дана квадратная матрица 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