stiphen

Заело в туалете молнию на джинсах. Так сыкотно еще никогда не было.

Пост для кармы. Интертеймента не будет. На пикабу сидят разные люди. Есть шанс найти помощь тут, т.к. форумы мне не смогли помочь. Ищу уже неделю пневмомуфту привода вентилятора для двигателя cummins 15 isx egr 12 ручьевый (машина inter 9200i) Возможно, вы, читатель, знаете лучше меня, где найти сие приспособление. Или хотя бы указать направление, где искать? (нахер и в жопе уже искал). Верю, что мир не без добрых людей.

Не чувствуйте себя старыми.
Всем хорошей недели :)

Задание:
Напишите фрагмент программы, который обеспечивает ввод целых чисел с клавиатуры до тех пор, пока пользователь не введет 0. Необходимо, чтобы было вычислено среднее арифметическое введенных чисел, и результат был отображен на экране.

Ввожу в VB

Dim intX, intSum As Integer
Do
intX = InputBox("Ведите число")
intSum += intX
Loop Until intX = 0
MsgBox(intSum)

Собственно, сумму введенных чисел и условие выхода я написал. Проблема в подсчете среднего арифметического.
Помогите, кто знает как?