VBA for...next один из вариантов

[Denton72]

есть два числа x и n узнасть сумму

S=sin(x +1)+sin(x +2)+...+sin(x + n)
использовать for ... next

нужно проверить просто
метод я использую правильный ?
или можно потругому как то?

Dim n As Double, x As Double, S As Double, y As Integer

Dim result As String

x = InputBox("enter a value")
n = InputBox("enter a value")
y = 1
For S = Sin(x + y) To (x + n)
y = y + 1
 result = result & " " & S
Next
MsgBox ("Numbers : " & result)

[Аватар]

For S = Sin(x + y) To (x + n)

Это что за абракадабрасть повышенная?

[ViktorR]

У тебя есть ряд: S=sin(x +1)+sin(x +2)+...+sin(x + n)
Вводишь x и n.
Цикл выполняешь по i от 1 до n.
Фрагмент:

S=0
For i = 1 to n
   S=S+Sin(x+i)
Next

Как-то так, ...

[Denton72]

в принципе тогда

x = InputBox("enter a value")
n = InputBox("enter a value")

For y = 1 To n
 S = S + Sin(x + y) 
 result = result & " " & S             
Next
MsgBox ("Numbers : " & result)

проверил щитает без y = y + 1
если взять x = 1 и n = 2
то два числа ответа(понятно что два) 0.90 и 1.05
неважно неважно у меня на компе бракованый калькулятор xD проверил всё правильно

cпасибо!

[Аватар]

Аргумент синуса в радианах. Учел?

[ViktorR]

проверил щитает без y = y + 1

Счетчик цикла инкрементируется автоматом.
Почитай повнимательнее об этом цикле Help.
Другая его версия под твою задачу - с указанием шага инкрементации:

For y = 1 To n Step 1
...
Next

[Step m] - шаг инкрементации. В квадратных скобках принято указывать необязательный параметр (может быть, а может и не быть).


Как-то так, ...

[Denton72]

Сообщение от Аватар

Аргумент синуса в радианах. Учел?

да учел злой человек

[Denton72]

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

Счетчик цикла инкрементируется автоматом.
Почитай повнимательнее об этом цикле Help.
Другая его версия под твою задачу - с указанием шага инкрементации:

For y = 1 To n Step 1
...
Next

[Step m] - шаг инкрементации. В квадратных скобках принято указывать необязательный параметр (может быть, а может и не быть).


Как-то так, ...

спасибо ещё раз полезная информацыя