Сформировать матрицу по правилу - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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