Заполнить двумерный массив по правилу - VB

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

Помогите, пожалуйста.Заполнить двумерный массив по правилу.

Код к задаче: «Заполнить двумерный массив по правилу - 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.000 из 5


СОХРАНИТЬ ССЫЛКУ