Заполнить двумерный массив по правилу - 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

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы