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

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

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

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

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

15   голосов, оценка 3.733 из 5


СДЕЛАЙТЕ РЕПОСТ