Как вывести массив в TextBox?
Задача вывести в Textbox значение температуры пациента за 10 дней (измеряли один раз в день), чтобы была прописана температура и день измерения.
Я написала:
Но в текстбоксе выводиться только последнее значение, а мне нужны все. MultiLine стоит на true, а также я пыталась ставить в цикле vbNewLine, но ничего не получилось. Подскажите, что ещё нужно?
Я написала:
Код:
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