Сформировать в массиве матрицу и вывести ее на экран - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д