Найти среднее арифметическое последовательности положительных чисел - VB

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Найти среднее арифметическое последовательности положительных чисел»

textual
Листинг программы
Option Explicit
Dim a As Integer, sum As Integer
Dim counter As Integer
Private Sub Form_Click()
Dim sr As Single
counter = 0
sum = 0
    Do
        a = Val(InputBox("Введите число"))
        Print a;
        If a <> 0 Then counter = counter + 1
        sum = sum + a
    Loop Until a = 0
    sr = sum / counter
Print
Print sr;
End Sub

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

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