Как вывести матрицу на экран - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д