Program Mencari Bilangan Faktorial

Codingnya :

Private Sub cmdproses_Click()

bil = 1

For i = 1 To txtangka.Text

bil = bil * i

Next

txthasil.Text = Str(bil)

Command1.Enabled = True

cmdproses.Enabled = False

End Sub