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