Цикл с параметром S=Sin(x)+2/4+3/5+4/6+.. - VB

Формулировка задачи:

Цикл с параметром S=Sin(x)+2/4+3/5+4/6+...... Всего десять членов! Ответ должен получиться 6,96 Цикл с условием S=2+x+2/x^2+3/x^3+......... с точностью E=10^-3 WHILE условие! Помогите пожалуйсто а то зачет немогу получить((( Заранее огромное спасибо

Решение задачи: «Цикл с параметром S=Sin(x)+2/4+3/5+4/6+..»

textual
                            Листинг программы 
                        

                            res = 6.96
x = ASin(res - s)
 
'-------------------------------------------
Function ASin(x As Double) As Double
If Abs(x) = 1 Then
    ASin = 3.14159265358979 / 2 * Sgn(x)
ElseIf Abs(x) < 1 Then
    ASin = Atn(x / (1 - x ^ 2) ^ 0.5)
End If
End Function
                        