کمک در حل یک تمرین

[Mohsen_2008]

سلام دوستان استادمون یه تمرین برای جلسه بعدی داده اما نمی تونم حلش کنم :عصبانی++: لطفا کمک کنید
سوال:برنامه ای بنویسید که عدد طبیعی N و عدد حقیقی X را دریافت کرده و مجموع زیر را نمایش دهد.
http://i28.tinypic.com/14y6eiu.jpg
این هم چیزهایی که به ذهن خودم رسید


Private Sub Command1_Click()
Dim S, X, N As Variant
N = Val(Text1.Text)
X = Val(Text2.Text)
S = X - 2 * X ^ 2
L1 = S
End Sub

[vbhamed]

سلام
حل تمرين تو سايت مخالف قوانين هست، اما راهنماييتون مي كنم
توانها از 1 تا N هستند پس يك حلقه از يك تا N مي خواهيم، متغير حلقه همون توانهاست
مخرج كسرها هم همون متغير حلقه هست كه فاكتوريلش گرفته شده
يك تابع فاكتوريل نوشتن هم كه كاري نداره

براي تعويض علامت هم كافيه يك متغيري رو اول برنامه 1 كنيد و سپس تو حلقه معكوسش كنيد اينطوري

a = -a

و سپس اين متغير رو ضربدر جمله جاري كنيد

[NNASER2AB]

این برنامه همان بست ساده است این دو تا مورد داره که باید حلش کنید من کد های این برنامه رو دارم ولی کمکتون می کنم تا خودتون برنامشو بنوسین حالا دقت کنید:
1- برای مخرج باید یک فرمول بازگشتی فاکتوریل بنوسید. که سادهس.
2- مورد دیگش همون علامت منهاست که اگه دقت کرده باشین تو توان های زوج اتفاق می افته که با یه شرط ساده می تونین تو حلقه کنترلش کنین که اگه توان زوج برسه علامت جمع به منفی تبدیل بشه مثل مثال زیر

If I mod 2 = 0 then
s=s-(I*(x^I)/fuct(I))
else
s=s+(I*(x^I)/fuct(I))
end if

حالا خود این شرطو باید تو یه حلقه کار بزاری که از I=1 تا N باید جلو بره و نهایتاً S رو چاپ کنه.
امیدوارم کمکی براتون باشه. موفق باشین:متفکر::تشویق: