Заполнить двумерную квадратную матрицу
2009-12-22 07:00 Александр
Заполнить двумерную квадратную матрицу
Private Sub Command1_Click()
Dim A() As Integer, i As Integer, j As Integer, n As Integer
n = InputBox("Введите размерность матрицы")
If n < 2 Then MsgBox "Недопустимое значение": Exit Sub
ReDim A(n, n)
For i = 1 To n
Print
For j = 1 To n
If i = 1 Then A(i, j) = [...]