Как вывести матрицу на экран - VB
Формулировка задачи:
Пожалуйста помогите составить программу выводящая матрицу.(Visual Basic)
1 2 3 … n-2 n-1 n
n+1 n+2 n+3 … 2n-2 2n-1 0
… … … … … … …
(nn+n)/2 0 0 … 0 0 0
Решение задачи: «Как вывести матрицу на экран»
textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Integer, i As Integer, j As Integer, n As Integer
n = InputBox("Введите n", "", 10)
Cls
ReDim A(1 To n, 1 To n)
For i = 1 To n
For j = 1 To n - (i - 1)
A(i, j) = n * (i - 1) + j
Next j
Next i
For i = 1 To n
For j = 1 To n
Print A(i, j); vbTab;
Next j
Print
Next i
End Sub