Общее количество осадков, выпавших за год - 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

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


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

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

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