by Salvador "Doy" Relleta Jalayajay (3 Submissions)
Category: Math/Dates
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 17th July 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Displays all factors of a given number
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