вот такое у меня задание-сформировать элементы массива B(13) по правилу: b(i)=cos((пи*b(i-1))/2), где b1=1. Подсчитать кол-во нулевых элементов массива и сумму положительных элементов массива.
Вот что я сделала:
Private Sub CommandButton1_Click()
Dim b(1 To 13) As Single, i As Integer
p = 3.14159265
For i = 1 To 13
b(i) = Cells(1 + i, 2)
b(1) = 1
b(i) = Cos((p * b(i - 1)) / 2) вот здесь он не понимает значение b(i - 1),пишет что за рамки массива
выходит
If b(i) > 0 Then
s = s + b(i)
next i
TextBox1.Value = s
If b(i) = 0 Then
k = k + 1

Next i
TextBox2.Value = k
End Sub

я уже вообще полностью запуталась, помогите пжлст)

У Вас первый элемент массива имеет индекс 1.
В первом шаге цикла производится попытка обратится к элементу с индексом 0.

Вообщем сделайте следующее:
1. Уберите "b(i) = Cells(1 + i, 2)"
2. Выносите "b(1) = 1" из цикла
3. Начальное значение s должно равнятся b(1)
4. Цикл начинайте с 2, вместо 1