Question

How to find the divisors of a number in VB.NET

Answer 1

Imports System

Public Class Test
    Public Shared Sub printDivisors(n As Integer) 
        for i As Integer = 1 To n
            if n Mod i = 0 Then
                Console.Write("{0}, " , i)
            End If
        Next
    End sub
    Public Shared Sub Main()
        Dim n as Integer = 24
        
        printDivisors(n)
    End Sub
End Class



' run:
'
' 1, 2, 3, 4, 6, 8, 12, 24, 

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Test
    Public Shared Sub printDivisors(n As Integer) 
        For i As Integer = 1 To Math.Sqrt(n) 
            If n Mod i = 0 Then 
                If n / i = i Then
                    Console.Write(i + ", ")
                Else
                    Console.Write("{0}, {1}, ", i, n / i)
                End If
            End If
        Next
    End sub
    Public Shared Sub Main()
        Dim n as Integer = 24
        
        printDivisors(n)
    End Sub
End Class



' run:
'
' 1, 24, 2, 12, 3, 8, 4, 6, 

 

70+ SQL courses for beginners and professionals