Сформировать в массиве матрицу и вывести ее на экран - 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

Решение задачи: «Сформировать в массиве матрицу и вывести ее на экран»

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
Похожие ответы