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.
Sebagai contoh, 7! adalah bernilai 7×6×5×4×3×2×1 = 5040.

Memuat foto
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.







Dibuat Oleh Heri Afrizal Di Bireuen

Komentar

Postingan populer dari blog ini

Tutorial Membuat Kalender Menggunakan Publisher 2007

Program Mencari Bilangan Prima Dengan Vb 6.0

Cara Membuat File PDF dari Microsoft Word