Question

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

Answer 1

Sub average(ByVal N)  S = ""  sum = 0  N = Round(N)  For i = 1 To N     A = InputBox("Введите число № " + Str(i))     A = Round(A * 100) / 100     S = S + Str(A)     If i <> N Then       S = S + ", "     End If     sum = sum + A  Next i  MsgBox "Введённые числа " + S  MsgBox "среднее значение " + Str(sum / N)End Sub
Sub test()M1:  N = InputBox("Введите N; 0 - Закончить ")  If (N = 0) Or (N = "") Then    End  End If     Call average(N)GoTo M1:End Sub