قاکتوریل در ویژوال بیسیک

[alireza1375]

دوستان چگونه می توانم کاری کنم که با کلیک روی یک دکمه فاکتوریل اعداد از 1 تا 100 (متغییر) را پشت سر هم print کند؟

[ms-ninja]

یک تکست باکس + یک comman buttom رو فورمت بزار

بعد کد زیر رو تو comman buttom وارد کن


f = 1
n = InputBox("enter number ")
For i = 1 To n
f = f * i
Text1.Text = f
Next i