Question

How to find the prime factors of a number in VB.NET

Answer 1

Imports System

Public Class Program
	Public Shared Sub printPrimeFactor(ByVal n As Integer)
        Dim div As Integer = 2

        While n <> 0
            If n Mod div <> 0 Then
                div = div + 1
            Else
                Console.Write(div & ", ")
                n = n / div
                If n = 1 Then
                    Exit While
                End If
            End If
        End While

        Console.WriteLine()
    End Sub

	Public Shared Sub Main()
        Dim n As Integer = 124
			
        printPrimeFactor(n)
        printPrimeFactor(288)
        printPrimeFactor(1288)
        printPrimeFactor(4008)
    End Sub
End Class
	
	

	
' run:
'
' 2, 2, 31, 
' 2, 2, 2, 2, 2, 3, 3, 
' 2, 2, 2, 7, 23, 
' 2, 2, 2, 3, 167,
'

 

70+ SQL courses for beginners and professionals