объясните в чем ошибка

[transformice]

когда я написал код, он выдает ошибку run-time error 1024 с ссылкой на вот эту строку Cells(j, 1) = a(i). Объясните мне как правильно записать надо)

Public Sub задача_3()
Dim a(1 To 10) As Single
Dim i As Single
i = 1
For i = 1 To 10
a(i) = i / (Math.Sin(i / p))
Cells(j, 1) = a(i)
j = j + 1
Next i
End Sub

[alex77755]

скорее на эту:

a(i) = i / (Math.Sin(i / p))

деление на 0
А здесь у тебя откуда J если в цикле i

Cells(j, 1) = a(i)

Зачем лишняя переменная

Public Sub задача_3()
Dim a(1 To 10) As Integer
Dim i As Integer
For i = 1 To 10
a(i) = i / (Math.Sin(i / 3.14159))
Cells(i, 1) = a(i)
Next i
End Sub

[doober]

Сообщение от transformice

когда я написал код, он выдает ошибку run-time error 1024 с ссылкой на вот эту строку Cells(j, 1) = a(i). Объясните мне как правильно записать надо)

Public Sub задача_3()
Dim a(1 To 10) As Single
Dim i As Single
i = 1
For i = 1 To 10
a(i) = i / (Math.Sin(i / p))
Cells(j, 1) = a(i)
j = j + 1
Next i
End Sub

p -это что за переменная,это не ПИ.она в данном случае не определена
Получается деление непонятно на что

[EugeneS]

делить на ноль нельзя, задайте значение переменной "р"

[transformice]

Ой не 1024 а 1004 - run-time error '1004' application-defined or object-defined error
А на ноль деления нет

[transformice]

аа все понял, спасибо

[alex77755]

(i / p)

Может что-то поменялось в математике.?
Когда я учился это называлось делением(хотя ты мог назначить значение где-то в другом месте а нам не показал)
А вот J у тебя назначается после попытки использования
Cells(j, 1) = a(i)
Перед началом цикла должно было быть J = 1(а не i = 0)