Заполнить двумерный массив по правилу - VB
Формулировка задачи:
Помогите, пожалуйста.Заполнить двумерный массив по правилу.
Решение задачи: «Заполнить двумерный массив по правилу»
textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Integer, n As Integer, i As Integer, j As Integer
n = InputBox("n =", , 10)
ReDim A(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n
A(i, j) = n - (i - 1)
Print A(i, j); vbTab;
Next j
Print
Next i
End Sub