Решить по простейшим циклам... - VB

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

Уважаемые помогите решить задачу... Хотя задач вообще-то девять... Сестра просто одолела, а я сам не знаю как делать!!! Дано натуральное число n. Вычислить

Решение задачи: «Решить по простейшим циклам...»

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

                            sub main()
dim s as long, i as integer
s=1
for i=2 to 10
  s=s*(1-1/facktorial(i))
next i
msgbox s
end sub
 
private function facktorial (n as integer) as long
dim s as long, i as integer
s=1
for i=1 to n
  s=s*n
next i
facktorial=s
end function
                        