VB Подсчитать % введеных пользователем 0
Формулировка задачи:
VB Подсчитать % введеных пользователем 0. Ввод осуществить, пока пользователь не введет 1.
Вроде легкий материал, но и с ним не могу совладать, смог только вторую часть
Dim X, Sum As Integer
Do
X = InputBox("Ведите число")
Sum = X
Loop Until X = 1
MsgBox(Sum)
Решение задачи: «VB Подсчитать % введеных пользователем 0»
textual
Листинг программы
Dim count As Integer, k As Integer, s As String
Do
s = InputBox("Ведите число, окончание ввода 1")
If IsNumeric(s) Then 'cчитаем только числа
If Val(s) = 0 Then count = count + 1
k = k + 1
End If
Loop Until Val(s) = 1
MsgBox "Всего введено чисел: " & k & vbCrLf & _
"Всего введено нолей: " & count & vbCrLf & _
"Процентов от общего количества: " & Round((100 / k) * count, 2) & " %"
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д