Заполнить массив n*n по правилу - VB
Формулировка задачи:
Заполнить массив по правилу,который показан на картинке.
Помогите сделать пожалуйста!Бейсик 6.0
Решение задачи: «Заполнить массив n*n по правилу»
textual
Листинг программы
Sub Богатый_папа()
Dim n As Long, R As Long, C As Long
n = InputBox("N=")
ReDim a(1 To n, 1 To n) As Double
For R = 1 To n
For C = 1 To n
If C >= R Then a(R, C) = 2 ^ R
Debug.Print a(R, C);
Next C
Debug.Print
Next R
End Sub