Imports System
Public Class DividersOfANumber
Public Shared Sub Main(ByVal args As String())
Dim n As Integer = 70
For i As Integer = 1 To n
If n Mod i = 0 Then
Console.Write("{0, 3}", i)
End If
Next
End Sub
End Class
' run:
'
' 1 2 5 7 10 14 35 70
'