У тебя Visual Basic стоит? У меня просто нету его)
Так что могу написать только сам алгоритм...
Интерфейс придется тебе самому делать.
Code
Dim i As Integer
Dim N As Integer
Dim P As Double
Dim a As Double
a=[тут должен быть какой-нить textbox и т.п. Т.е. здесь нужно передать необходиме значение переменной а]
For i = 2 To N-2 Step 1
P = P + ( a \ ( a + i ) )
Next i
Далее надо будет вывести значение переменной P в куда-нить на форму.
Ну вот, чем смог тем помог
ЗЫ: Если б надобыло на Паскале или на Си, то я бы тебя сразу готовую прогу смог бы написать
А качать и ставить VB я буду в аккурат до завтра