Сформировать в массиве матрицу и вывести ее на экран - VB (171321)

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

Подскажите как правильно сформировать в массиве такую матрицу и вывести её на экран. Заранее приношу свои извинения, если неправильно оформил вопрос или внешний вид матрицы. 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1

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

textual
Private Sub Command1_Click()
    n = 7
    ReDim mas(n - 1, n - 1)
    t = ""
    For i = 0 To n - 1
        For j = 0 To n - 1
            mas(i, j) = IIf( i + j < 3 Or i + j > 9 Or i - j > 3 Or j - i > 3, 1, 0)
            t = t & mas(i, j) & vbTab
        Next
        t = t & vbCrLf
    Next
    Text1 = t 'для text1 MultiLine должен быть true
End Sub

15   голосов, оценка 3.667 из 5


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