Factors Finder (Low Level) - Visual Basic

Program sederhana yang dikhususkan untuk menampilkan faktor-faktor bilangan yang telah dimasukkan. Faktor bilangan adalah angka yang dapat membagi habis bilangan yang bersangkutan. Khusus untuk angka 1 bukanlah faktor bilangan apapun kecuali angka itu sendiri. Misalnya angka 15, faktornya adalah 3, 5, dan 15. Angka 32, faktornya adalah 2, 4, 8, 16, dan 32. Dan seterusnya ...
Buka program VB, dan buat project dengan properties dan form seperti gambar.

Kemudian, masukkan kode berikut ke dalam kode editor program tersebut.

Private Sub Command1_Click()
Dim N, x As Integer
N = Val(Text1.Text)
For x = 2 To N - 1
If N Mod x = 0 Then
List1.AddItem (x)
End If
Next
List1.AddItem (N)
End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
End Sub

Private Sub Command3_Click()
End
End Sub

Setelah itu, aktifkan program dengan menekan tombol "Start" di toolbar sehingga muncul tampilan seperti berikut.

Tampilan program setelah mengetikkan angka 28 dan mengklik tombol LAUNCH

Program telah sukses dirancang!
Jika ada permasalahan, silahkan komentarnya dibawah....