Сколько всего прямоугольников? - VB

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

Нужно написать программу, которая сосчитает общее число прямоугольников. (смотрите рисунок) ... решение 1. Создаем матрицу А() размером 5×5. Элемент А(i, j) = 10*i + j 2. Вероятно проще всего подсчитать прямоугольники с минимальной стороной равной 1. Потом со стороной 2, далее 3, 4, 5 3. Используем симметрию, то есть такие прямоугольники лежат в строках. Сосчитав их результат множится на 2. 4. запишем нашу матрицу 11 12 13 14 15 21 22 23 24 25 31 32 33 34 35 41 42 43 44 45 51 52 53 54 55 Надеюсь вы поняли, числа образуют прямоугольник (в строках) если они составляют арифметическую прогрессию. Пожалуй здесь подойдет двойной цикл...(это для прямоугольников с наименьшей стороной равной 1) 5. Далее рассматриваем прямоугольники с наименьшей стороной равной 2. Они будут находиться в двух смежных строках (4 варианта) 6. Их счет, пожалуй, не отличается от счета предыдущих прямоугольников 7. Аналогично должны считаться и прямоугольники с наименьшей стороной равной 3 и так далее ... В общем я запутался в том, как для них определяется ...

Код путают квадраты

(В ответе дано число 225) Кто поможет составить программу или часть ее, например для счета прямоугольников с наименьшей стороной равной 2? Буду рад просто советам.

Решение задачи: «Сколько всего прямоугольников?»

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

                            REM
REM  Ответ: 225
REM
 
CLS
CONST n = 5
 
FOR i1 = 0 TO n
FOR j1 = 0 TO n
FOR i2 = 1 TO n
FOR j2 = 1 TO n
   IF i1 < i2 AND j1 < j2 THEN k = k + 1
NEXT j2, i2, j1, i1
 
PRINT k
                        