Membuat Nilai Faktorial pada VB

Pada Kesempatan ini penulis mencoba membuat program pada VB untuk mencari nilai faktorial yang kita inginkan, berikut langkah-langkahnya :

Hasil :

Penjelasan Algoritma :

• Pada awalnya membuat userform seperti gambar hasil di atas.
• Terdapat 2 Textbox, yang satu untuk memasukkan input data nilai faktorial yang kita inginkan dan yang satu lagi adalah hasil faktorial yang keluar.
• Kemudian terdapat listbox untuk menampilkan hasil deret faktorial beserta hasil perkalian tiap 2 bilangan.
• Langkah perhitungan dimulai pada angka yang kita input. Contoh 10 (yang merupakan variabel hasil)
• Lalu nilai variabel a adalah nilai input di kurang 1. Dengan fungsi loop For, dari nilai a hingga ke 1 dengan step -1. karena input 10, maka nilai a adalah 9 dan dihitung hingga 1
• pada listbox ditampilkan nilai variabel hasil dan a. Yaitu : 10 dan 9
• Terdapat perhitungan hasil = hasil * a, sehingga nilai hasil berubah menjadi 10 * 9 = 90
• Lalu muncul pada textbox2 nilai hasilnya.
• Karena baru pada loop For a = 9, masih ada a = 8, a=7, dst hingga a =1, sehingga deretnya akan turun dari 10 - 9 - 8 - 7 - 6 - 5 - 4 - 3 - 2 - 1. Dan antara bilangan ada hasil perkalian faktorialnya.
• Pada loop terakhir yaitu a = 1 akan muncul listbox semua urutan faktorial dan muncul hasil perkalian faktorial terakhir pada textbox2.
• Perlu ada batasan faktorial, jika input yang kita masukkan bernilai negatif, maka akan muncul Message Box "tidak ada faktorial negatif", sedangkan jika kita input nilai 0 dan 1 maka nilai faktorial adalah 1.

Sekian dari saya. mohon komentarnya ya.. terima kasih!