Массив: Печать двумерного массива в виде матрицы - VB

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

Option Base 1
Private Sub Command1_Click()
Dim i As Integer, j As Integer, a() As Integer, n As Integer
Dim m As Single
n = InputBox("Введите размерность матрицы n")
ReDim a(n)
Print
Print "Матрица A:";
For i = 1 To n
For j = 1 To n
a(i, j) = InputBox("Введите элемент матрицы, a (" & i & " , " & j & ") = ")
Print a(i, j)
Next j
Next i
If i = j Then
For i = 1 To n
For j = 1 To n
    m = m + a(i, j)
Next j
Next i
End If
m = m / n
Print
Print
Print "Среднее арифметическое главной диагонали:", m
End Sub
 
Private Sub Command2_Click()
End
End Sub
Помогите пожалуйста напечатать матрицу как она должна быть на бумаге(столбцы и строчки). 2 4 0 3 3 3 4 6 4 1 1 5 5 1 2 4 это матрица в качестве примера дана

Код к задаче: «Массив: Печать двумерного массива в виде матрицы - VB»

textual
a(i, j) = InputBox("Введите элемент матрицы, a (" & i & " , " & j & ") = ")

10   голосов, оценка 4.100 из 5


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