فاکتوریل ( ! )

سلام:


من می خواهم برنامه ای بنویسم که مثلا اگر به آن عدد 4 را بدهیم به ما عدد 24 را بدهد. به طوری که ابتدا 4 را با 3 ضرب کند ( 1-4) و سپس جواب را در سه ضرب کند( 1-4) و آن قدر این کار را ادامه دهد تا به یک برسد ( همان فاکتوریل)


مثال :

فاکتوریل 5 می شود : 120
فاکتوریل 6 می شود : 720


لطفا جواب بدین:31:

بیا دوست من
یک تکس باکس و یک لیبل و یک دکمه به فرم اضافه کن
کد های زیر رو هم که توی دکمه بنویس

کد:

---

t = Val(Text1.Text)
f = 1
For i = 1 To t
f = f * i
Next i
Label1.Caption = f

---