MENGHITUNG FAKTORIAL PADA VISUAL BASIC

Langkah – langkah untuk menghitung Factorial pada VB adalah sebagai berikut :

1. Desain form seperti gambar di bawah.

2. Buatlah field – field sebagai berikut :

3. Masukkan code script berikut pada command Hitung

Private Sub Cmdhitung_Click()

Dim A As Double

A = 1

For i = 1 To Text1.Text

A = A * i

Next i

Text2.Text = A

End Sub

4. Pada command hapus tuliskan code berikut

Private Sub cmdhapus_Click(Index As Integer)

Text1.Text = ""

Text2.Text = ""

Text1.SetFocus

End Sub

5. Kemudian untuk command keluar tuliskan scrip sebagai berikut :

Private Sub cmdkeluar_Click(Index As Integer)

End

End Sub

6. Jalankan aplikasi dengan menekan tombol F5 pada keyboard atau klik tombol start pada toolbar standar.

Berbagi Pengetahuan