Найти среднее арифметическое последовательности положительных чисел - 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