Mencari Faktor Bilangan Dengan Visual Basic 6.0


 

Faktor adalah pembagi dari suatu bilangan, atau bilangan-bilangan yang membagi habis bilangan tersebut.

contoh faktor bilangan 12 adalah 1, 2, 3. 4, 6, 12

berikut kita akan mencari faktor bilangan dengan visual basic

Dim n, b, c As Integer ‘mendeklarasikan
Private Sub Form_Load()
Call faktor(100)   ‘100 disini adalah bilangan yang akan dicari faktornya
End Sub
Function faktor(n As Integer) ‘membuat fungsi
b = 0
Do ‘mulai
b = b + 1
c = n Mod b ‘mencari sisa bilangan jika bilangan n dibagi bilangan b
If  c = 0 Then ‘jika sisanya 0 maka bilangan b adalah faktor dari bilangan n
Text1.Text = Text1.Text & “[” & b & “] ” ‘menampilkan bilangan b ke dalam teks
Else
End If
Loop Until b = n ‘ulangi sampai bilangan b sama dengan bilangan n
End Function

berikut hasilnya:


berikut setelah saya kembangkan sedikit

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s