Как вывести массив в TextBox?
Я написала:
Код:
Private Sub Command1_Click()
Dim I(1 To 10) As Integer
Dim M As Integer
For M = 1 To 10
I(M) = InputBox("Введите температуру")
Text1.Text = I(M) & "" & Str(M)
Next M
End Sub
Dim I(1 To 10) As Integer
Dim M As Integer
For M = 1 To 10
I(M) = InputBox("Введите температуру")
Text1.Text = I(M) & "" & Str(M)
Next M
End Sub
Код:
Private Sub Command1_Click()
Dim I(1 To 10) As Integer
Dim M As Integer
Text1.Text = ""
For M = 1 To 10
I(M) = InputBox("Введите температуру")
Text1.Text = Text1.Text + I(M) & "" & Str(M) + vbcrlf
Next M
End Sub
Dim I(1 To 10) As Integer
Dim M As Integer
Text1.Text = ""
For M = 1 To 10
I(M) = InputBox("Введите температуру")
Text1.Text = Text1.Text + I(M) & "" & Str(M) + vbcrlf
Next M
End Sub