Разработка программ на VBA

[Melfinka]

Помогите пожалуйста решить задачи по программированию!!!((
Работаем мы в excel 2007.
Вот 2 задачки, первая из этих задач на "Операции с массивами",
а вторая - "Линейный поиск"

[Melfinka]

Вторую задачку я смогла сделать, а вот первую так и не сумела
Помогите.

[doober]

Private Sub Задание1()
    Dim Masik(1 To 10)  As Single, Xcp As Single, dx As Single
    Randomize (Second(Now))
    For n = 1 To 10
        Masik(n) = Math.Round(10 * Rnd, 2)
        Xcp = Xcp + Masik(n)
    Next
    Xcp = Xcp / 10
    For n = 1 To 10
        dx =dx+ (Masik(n) - Xcp) ^ 2
    Next
    dx = dx / (10 - 1)
End Sub

Благодарю gaw4,все верно вы подметили.

[gaw4]

опечатка в строке

dx = dx+(Masik(n) - Xcp) ^ 2

[Melfinka]

В таком виде ничего не происходит. Я не понимаю эту задачу

[Melfinka]

help

[doober]

help + пояснения +выполненное задание=( OR ) AND Not