Заполнить массив десятью случайными числами и вычислить их среднее арифметическое - VB

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

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

1. Создать проект, который заполняет массив десятью случайными числами и вычисляет их среднее арифметическое.
помогите 10 случайных чисел выдает но не могу задать вычисление среднего значения

Решение задачи: «Заполнить массив десятью случайными числами и вычислить их среднее арифметическое»

textual
Листинг программы
Private Sub Command1_Click()
Dim Summa
Dim Srednee
ReDim a(1 To 10)
Randomize Timer
Summa = 0
For i = 1 To 10
  a(i) = Int(100 * Rnd)
  Text2.Text = Text2.Text + "" + Str(a(i))
  Summa = Summa + a(i)
Next i
Srednee = Summa / 10
End Sub

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

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