Вычислить и вывести на экран среднее геометрическое десяти введённых числовых значений - VB

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

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

Написать программу, которая генерирует N случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее геометрическое. 3 часа никак не мог написать программу... помогите =)

Решение задачи: «Вычислить и вывести на экран среднее геометрическое десяти введённых числовых значений»

textual
Листинг программы
Private Sub Command1_Click()
n = Text1.Text
Text2.Text = ""
For i = 1 To n
Next i
    x = n * (n - 1)
    Text2.Text = x
End Sub

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

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