visual basic вычисления математического ожидание и дисперсии

[Roma-N T]

Помогите написать программу в visual basic для вычисления математического ожидание и дисперсии или хотя бы как записать формулы для вычисления в visual basic ?
проблема в том что мы проходили только интерфейс программы а не код а надо написать курсовую на эту программу которую я сделаю.

[ex.cluz]

Сами формулы нужны?
Тогда советую (если есть) посмотреть в справке по какой-нить стат. программе, типа SPSS или Origin, там прямо формулы даны, по которым вычисление идет.

ПС. В самом вижуал бэйсике я практически ноль, поэтому могу с формулами помочь, но не с кодом.

[KobolD]

Public Const N = 10
Sub Main()
Dim i As Integer
Dim Avr As Double
Dim Disp As Double
Dim Mas(N) As Double

For i = 0 To N 'Çàïîëíÿåì ìàñèâ
    Mas(i) = Rnd(10)
Next
    
Avr = Average(Mas) 'Ñ÷èòàåì ñðåäíåå (ìàò îæèäàíèå)
Disp = Dispersia(Mas, Avr) 'Ñ÷èòàåì äèñïåðñèþ

End Sub

Function Average(Mas() As Double)
Dim Av As Double
Dim i As Integer
Av = 0
For i = 0 To N
    Av = Av + Mas(i)
Next
Av = Av / N
Average = Av
End Function

Function Dispersia(Mas() As Double, Awerage As Double)
Dim sigma As Double
Dim i As Integer
sigma = 0
For i = 0 To N
    sigma = sigma + (Mas(i) - Awerage) ^ 2 / N
Next
Dispersia = sigma
End Function