Deret Faktorail dengan Menggunakan Visual Basic

Dalam matematika , bilangan faktorial dari bilangan asli n adalah hasil perkalian antara bilangan bulat positif yang kurang dari atau sama dengan n. Faktorial ditulis sebagai n! dan disebut n faktorial.

Sebagai contoh, 7! adalah bernilai 7×6×5×4×3×2×1 = 5040.
Berikut penjelasan secara gamblang :
- deret faktoraial 7 x 6 = 42
- deret faktoraial 42 x 5 = 210
- deret faktorial 210 x 4 =  840
- deret faktorial 810 x 3 = 2520
- deret faktorial 2520 x 2 = 5040
- deret faktorial 5040 x 1 = 5040

Berikut adalah langkah dengan visual basic :
buat lah userformnya :

syntac pemograman VB
Private Sub CommandButton1_Click()
'input nilai dari faktorial dengan variabel a
Dim a As Double
Dim nilai As Double

'Perumusan masalah
nilai = Val(TextBoxekoa.Text)
For a = Val(TextBoxekoa.Text) - 1 To 1 Step -1
ListBox1.AddItem nilai
ListBox1.AddItem a

'hasil faktorial
nilai = nilai * a
TextBoxnilai.Text = nilai
Next

'batasan faktorial
If nilai < 0 Then
MsgBox "maaf tidak ada faktorial negatif"
ElseIf nilai = 0 Then
MsgBox "hasil faktorial = 1"
ElseIf nilai = 1 Then
MsgBox "hasil faktorial = 1"
End If

End Sub

Private Sub CommandButton2_Click()
Unload UserForm1
End Sub


Hasil simulasi