ايران ويج

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

(۲۵-اردیبهشت-۱۳۸۸, ۰۲:۲۷:۲۷)milad5310 نوشته است: [ -> ]والگوريتم فاكتوريل(!) رو چطوربايد در ويژوال بيسيك نوشت؟؟؟

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

کد: 
f = InputBox("")

x = f

For i = f - 1 To 1 Step -1

x = x * i

Next

MsgBox x

الگوریتم چگونه باید نوشته شود:
دانلود کلیپ آموزشی از وبلاگ 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 

milad5310

shedayat

hmiranled