براي حساب كردن !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