Как сформировать матрицу заданной структуры - VB

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

Написать код по созданию вот такого двумерного массива: 0 0 0 0 1 0 0 0 1 2 0 0 1 2 2 0 1 2 2 2 1 2 2 2 2 Жду...

Код к задаче: «Как сформировать матрицу заданной структуры - VB»

textual
Option Explicit
'DefInt A-N
Private Sub Command1_Click()
    Dim A() As Integer, i As Integer, j As Integer
    Dim n As Integer
    n = InputBox("Введите размер", , 8)
    ReDim A(1 To n, 1 To n)
    For i = 1 To n
          For j = 1 To n
            If i + j >= n + 1 Then
                If i + j = n + 1 Then A(i, j) = 1 Else A(i, j) = 2
            End If
            Print A(i, j);
          Next
          Print
     Next
End Sub

8   голосов, оценка 3.750 из 5


СОХРАНИТЬ ССЫЛКУ