Осуществлять ввод чисел до тех пор,пока их сумма не привысит 100 - VB
Формулировка задачи:
осуществлять ввод чисел до тех пор,пока их сумма не привысит 100.вывести количество введенных чисел(только надо чтобы вводилось не руками а через файл).
Решение задачи: «Осуществлять ввод чисел до тех пор,пока их сумма не привысит 100»
textual
Листинг программы
Private Sub Command1_Click()
Dim summ As Integer, n As Integer
Do While summ < 100
summ = summ + Val(InputBox("Введи число")): n = n + 1
Loop
MsgBox "Введено " & n & " чисел" & vbCrLf & "Сумма " & summ
End Sub