Program mencari factorial

Buatlah 1 textbox (beri nama misal : txtangka) untuk menampung angka dan 1 buah teksbox (beri nama misal : txthasil)untuk menampung hasil.

Seperti yang kita ketahui rumus factorial 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.

bil = 1
For i = 1 To txtangka.Text
bil = bil * i
Next
txthasil.Text = Str(bil)

Syntax diatas bermakna : dalam melakukan bilangan ini kita gunakan variable Bantu yaitu bil = 1, diberi harga 1 karena kalau tidak akan diberi harga 0. Kemudian untuk fungsi i maka 1 sampai angka yang dimasukkan dalam textbox txtangka.Text maka lakukanlah perintah bil (=1) dikalikan angka-angka yang disebutkan oleh fungsi i dan lakukanlah perulangan (next) sampai angka yang dimasukkan dalam textbox dan tempatkanlah hasil perhitungan tersebut dalam textbox txthasil.Text

Anda juga dapat langsung mempraktekannya:


Dim vangka, vhasil, vfaktorial As Double


Private Sub Cmdfaktorial_Click()
vbil = Val(Textangka.Text)
vhasil = 1
For i = 1 To vbil
vhasil = vhasil * i
Next i
Texthasil.Text = vhasil

End Sub

Private Sub Cmdulang_Click()
Textangka.Text = ""
Texthasil.Text = ""
Textangka.SetFocus
End Sub