Option Explicit
Dim A(1 To 100) As Single
Dim w, sA As Single
Dim n, i As Byte
'Zadaniem programu jest wprowadzenie wektora A o n współrzędnych, a następnie
'policzenie wariancji spośród wartości składowych wektora A(i)
'z klasycznego wzoru na wariancję


Private Sub Form_Load()

Do 'Pętla ta wymusza aby liczba składowych wektora n<100
n = InputBox("Podaj wartość n")
Loop Until n < 100

n = Val(n)

For i = 1 To n 'zadajemy tyle składowych wektora A ile wynosi n
A(i) = InputBox("Podaj wartość A(" & i & ")")
A(i) = Val(A(i))
Next i

sA = 0 'w pierwszym kroku liczymy srednia arytmetyczna
For i = 1 To n
sA = sA + A(i) / n
Next i
MsgBox ("Średnia arytmetyczna składowych wektora sA=" & sA)


w = 0 'w drugim kroku liczymy już całą wariancję
For i = 1 To n
w = w + ((A(i) - sA) ^ 2) / n
Next i
MsgBox ("Wariancja składowych wektora w=" & w)


End Sub