الگوریتم فاكتوريل

[milad5310]

فاكتوريل(!) رو چطوربايد در ويژوال بيسيك والگوريتم نوشت؟؟؟به صورت فارسي وانگليسي

[shedayat]

والگوريتم فاكتوريل(!) رو چطوربايد در ويژوال بيسيك نوشت؟؟؟

اگه اشتباه نكنم منظورت اين كد بود.

کد:

f = InputBox("")
x = f
For i = f - 1 To 1 Step -1
x = x * i
Next
MsgBox x

[hmiranled]

الگوریتم چگونه باید نوشته شود:
دانلود کلیپ آموزشی از وبلاگ MyProgrammingVB.blogsky.com:
http://www.myprogrammingvb.blogsky.com/1.../09/post-9
نمایش کلیپ در سایت آپارات:
http://www.aparat.com/v/x4vDU

نحوه کد نویسی آن در ویژوال بیسیک:
اگر عدد را کاربر در جعبه متن وارد کند و پیش فرض نام آن Text1 باشد:

کد php:

Dim Mull
Mull = 1
For i = 2 To Val(Text1.Text)
    Mull = Mull * i
Next i
MsgBox "Result is : " & Mull