مشکل در VBA

[aref16]

سلام:10:

دوستان من چند تا مشکل در VBA داشتم ممنون میشم کمکم کنید:11:

[aref16]

این سوالم در مورد FOR هستش:40:

و قرار گرفتن NEXT در کجای حل هستش:31:


مثال)برنامه ای بنویسید که مجموع اعداد از یک تا ده را بنویسد
sub test()
for i = 1 to 10
sum=sum+i
msgbox sum
next
end sub
توی مثال بالایی next رو بعد از msgbox هستش ولی توی مثال پایینی
برنامه ای بنویسید که محموع سری زیر را بدست اورد؟
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
x=inputbox("enter x
for i = 1 to 10
y=y+1/i*(x-1)^i/x
next
msgbox sum
end sub

خب چرا جای NEXT توی مثال های بالایی فرق کرده ؟

[aref16]

سلام:10:

برنامه ای بنویسید که sinx را از سری زیر بدست اورده و با جواب ماشین حساب مقایسه کند؟
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]



Sub test3()
x = Cells(1, 1)
For i = 1 To 100 Step 4
Fact = 1
For j = 1 To i
Fact = Fact * j
Next j
sum1 = sum1 + x ^ i / Fact
Next i
For i = 3 To 100 Step 4
Fact = 1
For j = 1 To i
Fact = Fact * j
Next j
sum2 = sum2 + x ^ i / Fact
Next i
Sum = sum1 - sum2
Cells(3, 1) = Sum
End Sub
خوشحال میشم مثال بالا رو کاملا توضیح بده:11: