Общее количество осадков, выпавших за год - VB
Формулировка задачи:
Создать проект заполнения данного массива с клавиатуры и вывести на форму: Общее количество осадков, выпавших за год.
написал вот такой код, но он что-то не то делает
null
Решение задачи: «Общее количество осадков, выпавших за год»
textual
Листинг программы
Dim Y, X, S
Randomize
Do While Y < 12
Y = Y + 1
X = InputBox("введите количество осадков в " & Y & " месяце", "Ввод данных", Int(50 * Rnd + 10))
S = S + Val(X)
Loop
MsgBox S / 12