Вывод данных в label - VB

Узнай цену своей работы

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

Написал программу которая возводит каждую последующую строку в степень первой, но не могу понять как сделать так чтобы он в label выводил матрицу.
Листинг программы
  1. Private Sub CommandButton1_Click()
  2. Dim a(1 To 20, 1 To 20) As Integer
  3. Dim n, m, i, j As Integer
  4. n = TextBox1
  5. m = TextBox2
  6. For i = 1 To n
  7. For j = 1 To m
  8. If i = 1 Then
  9. a(i, j) = InputBox("Ââåäèòå (" & i & "," & j & ")")
  10. Else: a(i, j) = a(i - 1, j) * a(1, j)
  11. End If
  12. Next j
  13. Next i
  14. For i = 1 To n
  15. For j = 1 To m
  16. Label1.Caption = a(i, j)
  17. Next j
  18. Next i
  19. End Sub

Решение задачи: «Вывод данных в label»

textual
Листинг программы
  1. Label1.AutoSize = True
  2. For i = 1 To n
  3.     For j = 1 To m
  4.          Label1.Caption = Label1.Caption & a(i, j) & "   " 'Складываем в строку
  5.    Next j
  6.     Label1.Caption = Label1.Caption & vbCrLf 'Переносим строку при выходе из цикла
  7. Next i

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


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

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

15   голосов , оценка 3.733 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут