Задача на двумерный массив

Dim b(20, 20) As Double
Private Sub Command1_Click()
Picture1.Cls
n = InputBox("введите n")
For i = 1 To n
For j = i To n
b(i, j) = i * 2
Next
Next
For i = 1 To n
For j = 1 To n
Picture1.Print b(i, j);
Next
Picture1.Print
Next
End Sub

Option Explicit
Option Base 1
'
'       ©  FelixMacintosh
'
'Задача на двумерный массив / Visual Basic
' Помогите дорешать
' Задача 2#
' 1. . Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.
' 2. Заполнить массив n*n по правилу:
 
Private Sub Command1_Click()
    Dim s$, f, f1, i&
    Const n = 20 - 1, m = 20 - 1
    Dim b(n, m) As Double
    Randomize Timer
    Cls
    For f = 1 To n
        For f1 = 1 To m
            b(f, f1) = Fix(Rnd * 10)
            Print b(f, f1);
        Next
        Print
    Next
    
    Do
        If IsNumeric(s) Then Exit Do
        s = InputBox("введите n", , 5, 0, 0)
        If s = "" Then Exit Sub
    Loop
    Cls
    '----------------------Опустошаем указанный квадрат
    For f = 1 To s
        For f1 = 1 To s
            b(f, f1) = 0
        Next
    Next
    i = 2
    '----------------------Заполняем по правилу
    For f = 1 To s
        For f1 = f To s
            b(f, f1) = i
        Next
         i = i * 2
    Next
   '----------------------Демонстрация
    For f = 1 To n
        For f1 = 1 To m
            Print b(f, f1);
        Next
         Print
    Next
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''Dim b(20, 20) As Double
'''Private Sub Command1_Click()
'''Picture1.Cls
'''n = InputBox("введите n")
'''For i = 1 To n
'''For j = i To n
'''b(i, j) = i * 2
'''Next
'''Next
'''For i = 1 To n
'''For j = 1 To n
'''Picture1.Print b(i, j);
'''Next
'''Picture1.Print
'''Next
'''End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub