Матрица - VB (59053)
Формулировка задачи:
Задана матрица
1 2 2 1
2 1 1 2
2 1 1 2
1 2 2 1
а) ввести ее в двумерный массив I;
б) элементы побочной диагонали заменить 0;
в) подсчитать количество элементов массива, которые равны 2;
г) вывести это количество и исходный массив на экран в виде таблицы.
Решение задачи: «Матрица»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Const n As Integer = 4 Dim A(1 To n, 1 To n) As Integer, i As Integer, j As Integer, k As Integer, s As String s = "Исходный массив:" & vbCrLf For i = 1 To n For j = 1 To n A(i, j) = IIf((i > 1 And i < n) Xor (j > 1 And j < n), 2, 1) s = s & A(i, j) & vbTab Next j s = s & vbCrLf Next i s = s & "Результат:" & vbCrLf For i = 1 To n For j = 1 To n If (i + j) - n = 1 Then A(i, j) = 0 If A(i, j) = 2 Then k = k + 1 s = s & A(i, j) & vbTab Next j s = s & vbCrLf Next i MsgBox s & vbCrLf & "Количесто элементов равных 2: " & k End Sub