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

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

Подскажите как Сформировать в массиве матрицу и вывести ее на экран. Заранее спасибо

1 1 1 1 1 1
0 0 0 0 0 1
1 0 0 0 1 0
0 1 0 1 0 0
1 0 0 0 1 0
0 0 0 0 0 1
1 1 1 1 1 1

вот набросал кое что (помогите разобраться)

Private Sub Command1_Click()
Const n = 7                 
Dim a(1 To n, 1 To n) As Double
Dim i As Integer, j As Integer      
For i = 1 To (n + 1) \ 2     
 For j = 1 To n                  
      If (j =( i+1)) or (j = (n – i + 1)) or (i=1) or (i=n) Then
         a(i, j) = 1:    a(n – i + 1, j) = 1
      Else
         a(i, j) = 0:   a(n – i + 1, j) = 0
      End If
   Next j
Next i
For i = 1 To n  
    Print       
 
    For j = 1 To n
        Print a(i, j);  
    Next j
Next i
End Sub

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

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Const n = 7
Dim a(1 To n, 1 To n) As Byte 'Double?
Dim i As Integer, j As Integer
For i = 1 To n
  Print
  For j = 1 To n
    a(i, j) = -(i = 1 Or i = n Or ((i = j + 1 Or i = n - j + 2) And i <= (n + 1) \ 2) Or ((i = n - j Or i = j - 1) And i > (n + 1) \ 2))
    Print a(i, j);
  Next j
Next i
End Sub
                        

Оцени полезность:

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

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