برنامه ی حل فاکتوریل

برنامه ای بنویسید که عددی را از ورودی دریافت نموده ، فاکتوریل آن عدد را محاسبه نموده ، چاپ نماید

نکته: هر متغیر در صورتیکه مقدار دهی اولیه نشود مقدار پیش فرض آن صفر خواهد بود

نکته : فاکتور هر عدد برابر است با حاصل ضرب اعداد 1و2و...وN 

N!=1*2*3*4*…*N

Private Sub Command1_Click()

N= Val(InputBox(""))

S=1

For  I= 1  To  N

S= S*I

Next   I

Print  "Fact(";N;")=";S

End Sub