Осуществлять ввод чисел до тех пор,пока их сумма не привысит 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д