Komponen   : label1 , text1, label2, text2, commandbutton

atur tampilan seperti berikut :

Sintax :

Private Sub Command1_Click()
Dim i As Integer
Dim Faktor As Double

Faktor = 1

Angka = Val(Text1.Text)

If Angka <= 0 Then
MsgBox “Maaf, tidak ada faktorial yang bernilai negatif”
ElseIf Angka = 1 Then
MsgBox “Hasil Faktorial I = 1”
ElseIf Angka > 0 Then
For i = 1 To Angka
Faktor = Faktor * i
Next
Text2.Text = CStr(Faktor)
End If
End Sub

Hasil :

Semoga bermanfaat……