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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы