вот такое у меня задание-сформировать элементы массива 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

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