Contoh progam visual basic MTK faktorial

contoh 1 : Membuat Program Faktorial Dengan Vb 6.0

a.    Buatlah New Project pada software VB anda kemudian tambahkan 3 buah label, 3 commandbutton dan 2 textbox pada form. Kemudian ubah properti masing-masing dan Atur form seperti pada gambar berikut :



Gambar Program faktorial

b.    kemudian ketikkan code/listing/script program berikut :

Private Sub Command1_Click()

Dim a, b, i As Integer

i = 1

b = Text1.Text

For a = 1 To b

i = i * a

Next

Text2.Text = i

End Sub



Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub



Private Sub Command3_Click()

End

End Sub

c.     Run(F5) dan coba masukkan nilai faktorial 4 dimana 4!=1x2x3x4=24 berikut dapat anda lihat hasilnya pada gambar dibawah ini :



 















Gambar Program faktorial dengan VB 6.0