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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы