Menghitung Faktorial

ini adalah kode programnya

Private Sub cmd_hitung_Click()
Dim i As Integer
Dim Faktor As Integer

Faktor = 1

Angka = Val(txt_angka.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
MsgBox "Hasil Faktorial" + "=" + CStr(Faktor)
End If
End Sub

NB:
1. label1(name) = Masukkan Angka(Caption)
2. txt_angka(name)= textbox buat masukkan angka
3. cmd_hitung = commandbutton buat hitung

Selamat Mencoba,
Ridon-Na70