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
Ghofarudin 