کمک کمک

[mostafabad2007]

من دیروز امتحان ویژوال بیسیک داشتم توی فنی وحرفه ای یک سوال امده بود که کسی بلد نبود درست کنه
لطفا اگه کسی بلده این برنامه رو برام بنویسه تا مام یاد بگیریم و اما سوال
برنامه ای بنویسید که سری زیر را تولید بکنه
1 تقسیم بر ! (x+1)+
1 تقسیم بر ! (x+2) +
1 تقسیم بر ! (x+3) +
1 تقسیم بر ! (x+4) +
1 تقسیم بر ! (x+5)

[aliaghaaaaa]

dim s,a as integer
s=0
a=0
for i=1 to 5
a= 1/(x+i)
s=a+s
next i
امیدوارم درست باشه
موفق باشی