براي حساب كردن !n چه كار بايد بكنم ؟

براي حساب كردن !n در يك عبارت بايد چه كار كنم .
در يك عبارت كسري ميخوام بدست بياد .
( مسئله اينه كه از تكس باكس يه عدد كه n هست رو ميگيريم و در يك عبارت كسري كه 1+1/2!+...n/n+1! هست رو بايد حساب كنيم . )

ممنون از توجهتون به سوال من

عزيز من درست منظورتون رو متوجه نشدم ولي در عبارات كسري معمولا n! رو با انجام يك سري تبديلات با مخرج كسر ساده ميكنن!!!...حالا اگه مخرج كسر رو هم بگي چيه واضحتر ميشه جواب داد!

بابا ترخدا دیگه مسائل مدرسه و دانشگاه خودتون حل کنید .
با استفاده از توابع بازگشتی شما میتونید این کارو بکنید .

(n=val(text1
fact=1
for i=1 to n
fact=fact*i
next

دوست عزیز این فقط فاکترویل رو حساب میکنه . دوستمون یک چیز دیگه می خواهد ... البته باید تو برنامش این کد هم بزاره .

اين علامت يعني / علامت كسر هست ديگه
اميدوارم متوجه شده باشيد

البته عبارت عددي رو در پست اول از راست به چپ بخونيد ....
خيلي ممنون از اقا مانيا لطفي گل چه بديت اوردن !n رو يادم داد .

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اينم متن كامل سوال خيلي ممنون ميشم كه برنامه رو بنويسيد و بعد تحليل كنيد . يعني توضيح بديد .
بينهايت ممنون از اينكه به من كمك ميكنيد ( باور كنيد من خيلي در ويژوال ضعيف هستم و با كمك هاي شما پيشرفت ميكنم .)

بايد به عرض برسونم كه من آقا نيستم.خانومم.

s = 1
(n = Val(Text1
For i = 1 To n
fact = 1
For j = 1 To i + 1
fact = fact * j
Next j
s = s + i / fact
Next i
( Text2 = Str(s

اگه اشكالي داشتيد بپرسيد توضيح ميدم

دوست عزیز . لطفا کنید اینجور سوالهای را جواب ندید . بزارید یه مقدار خودشون فکر کنن . اگر قرار باشه همه مسائل اینطوری حل کنن هیچ وقت نمیتونن برنامه نویس خوبی بشن .
در ضمن اینجور سوال های همیشه وقتی که توابع بازگشتی رو درس میدن میگن . و میگن با استفاده از توابع بازگشتی نوشته بشه . نه با دو تا حلقه For
موفق باشی .

این جواب نداد یه توضیح میدید که چی میخواد و چی باید در برنامه باشه ؟ ممنون میشم
راستی مانیا جان بابت اشتباهم معذرت میخوام

براي اين كار كدهاي زير را در يك ماژول بنويسيد .
public function fact (n as integer) as long
dim f as long , i as integer
f=1
for i=1 to n
f=f*i
next i
fact=f
end function