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