Сформировать матрицу по правилу - VB

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

Напишите программный код на VB для формирования двумерного массива следующего вида: 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 Вот получилось что-то примерное, но не правильное.

Option Explicit
Sub primer_5()
Const m = 5, n = 5
Dim A(m, n) As Integer
Dim i, j As Integer

For i = 1 To m     
    For j = 1 To n  
    
        If i = j Then A(i, j) = j
         If i <> j Then A(i, j) = j
         If j = 1 Then A(i, j) = i
         Next j

Next i
 
For i = 1 To m    
    For j = 1 To n  '
        Cells(i, j) = A(i, j)
    Next j
Next i
End Sub

Решение задачи: «Сформировать матрицу по правилу»

textual
                            Листинг программы 
                        
                            A(i, j) = (i + j)-1

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

11 голосов , оценка 3.636 из 5

Похожие ответы