4. Вычисление суммы

Вычислить , где а = {2; 0.1; -4; 5.7; -3; 11; 0.2; 8; -6; 21}

Текст программы	Контрольный расчет
Private Sub CommandButon1_Click() Dim a As Single, s As Single Dim i As Integer s = 0 For i = 1 To 10 a = Cells(i, 1) s = s + a Next MsgBox s End Sub	Значения массива а	2
		0.1
		-4
		5.7
		-3
		11
		0.2
		8
		-6
		21
	Результат	44