Mencari Nilai Factorial Dengan Vb 6.0
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.
Private Sub Command1_Click()
Sebagai contoh, 7! adalah bernilai 7×6×5×4×3×2×1 = 5040.

Private Sub Command1_Click()
bil
= 1
For
i = 1 To Text1.Text
bil
= bil * i
Next
Text2.Text
= Str(bil)
End
Sub
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 text1 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 text2.
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 text1 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 text2.
Dibuat Oleh Heri Afrizal Di
Bireuen
Komentar
Posting Komentar
Tulis komentar anda disini.....