• Home
 · 
• Math/Dates
 · 
• Displays all factors of a given number

Displays all factors of a given number

Displays all factors of a given number

Rate Displays all factors of a given number

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

List1.Clear
List2.Clear
a = CDbl(Text1.Text)
For b = 1 To a
  For c = 1 To a
  d = b * c
  If d = a Then
  List1.AddItem b
  List2.AddItem c
  End If
  Next c
Next b
End Sub