Программирование циклических алгоритмов (цикл с параметром) - VB
Формулировка задачи:
Помогите пожалуйста!!!
Решение задачи: «Программирование циклических алгоритмов (цикл с параметром)»
textual
Листинг программы
Dim N As Integer, I As Integer
Dim R As Single
N = CInt(InputBox("Введите N:", , 1))
For I = 1 To N
R = R + Sin(1 / (I * N))
Next I
Call MsgBox("Результат: " & R, vbInformation + vbOKOnly)