Вывод данных в label - VB
Формулировка задачи:
Написал программу которая возводит каждую последующую строку в степень первой, но не могу понять как сделать так чтобы он в label выводил матрицу.
Листинг программы
- Private Sub CommandButton1_Click()
- Dim a(1 To 20, 1 To 20) As Integer
- Dim n, m, i, j As Integer
- n = TextBox1
- m = TextBox2
- For i = 1 To n
- For j = 1 To m
- If i = 1 Then
- a(i, j) = InputBox("Ââåäèòå (" & i & "," & j & ")")
- Else: a(i, j) = a(i - 1, j) * a(1, j)
- End If
- Next j
- Next i
- For i = 1 To n
- For j = 1 To m
- Label1.Caption = a(i, j)
- Next j
- Next i
- End Sub
Решение задачи: «Вывод данных в label»
textual
Листинг программы
- Label1.AutoSize = True
- For i = 1 To n
- For j = 1 To m
- Label1.Caption = Label1.Caption & a(i, j) & " " 'Складываем в строку
- Next j
- Label1.Caption = Label1.Caption & vbCrLf 'Переносим строку при выходе из цикла
- Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д