Как накопить сумму данных из одного Textbox? - VB

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

Уважаемые программисты. Есть вот такой код
Private Sub Command1_Click()
Dim i As Integer
Dim P As Long
Dim Pi As Long
P = 0
For i = 1 To 10
Pi = InputBox("Введите силу ", "Окно введения", 10, 9000, 6000)
P = P + Pi
Next i
Print P
End Sub
Всё просто всё работает. Можно ли сделать так, чтобы значение Рi вводилось из ОДНОГО Textbox. То есть ввёл в текстбокс 10, нажал кнопку (условно добавить), Р стало 10. Ввёл в текстбокс 20, нажал кнопку (условно добавить), Р стало 30. Количество таких вводов неизвестно заранее, может быть 1, а может и 100 раз.

Код к задаче: «Как накопить сумму данных из одного Textbox? - VB»

textual
Dim P As Long
Private Sub Command1_Click()
         P = P + Val(Replace(Text1.Text, ",", "."))
         Print P
End Sub

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

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

10   голосов, оценка 4.100 из 5


СОХРАНИТЬ ССЫЛКУ