Как вывести матрицу на экран - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4.3 из 5
Похожие ответы