Private Sub Form_Load()
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   	 		            'Организация цикла по строкам: 
                                      	 		 'c 1-ой по среднюю включительно
   For j =  1  To n                		            'Цикл по столбцам
      If (j >= i) And (j <= n – i +  1 ) Then
         a(i, j) = i:    a(n – i +  1 , j) = i
      Else
         a(i, j) =  0 :   a(n – i +  1 , j) =  0 
      End If
   Next j
Next i
 
For i =  1  To n 	            ′Вывод массива на форму с помощью оператора Print
    Print		            ′Для перевода курсора на следующую строку

    For j =  1  To n
        Print a(i, j);	′точка с запятой предназначена для избежания перевода 
                                  ′курсора на следующую строку после вывода элемента a(i, j)
    Next j
Next i
End Sub