Заполнить двумерную квадратную матрицу
2009-12-21 07:00 Александр
Заполнить двумерную квадратную матрицу
Private Sub Form_Load()
Dim A() As Integer
N = 7 'РАЗМЕР МАТРИЦЫ
ReDim A(N, N)
For Y = 1 To N
For X = 1 To N
A(X, Y) = X + (Y - 1) * N 'ВОТ И ВСЯ ФОРМУЛА
Print A(X, Y),
Next X
Print
Next [...]