Осуществлять ввод чисел до тех пор,пока их сумма не привысит 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы