Question

How to find the biggest dividers of two numbers in VB.NET

Answer 1

Imports System

Public Class BiggestDividersOfTwoNumber
    Public Shared Sub Main(ByVal args As String())
        Dim a As Integer = 60, b As Integer = 72, BiggestDivider As Integer = 0

        For i As Integer = 1 To a / 2
            If a Mod i = 0 AndAlso b Mod i = 0 Then
                Console.Write("{0, 3}", i)
                BiggestDivider = i
            End If
        Next

	Console.WriteLine(Environment.NewLine & "The biggest dividers of two number is: {0}", BiggestDivider)
    End Sub
End Class



' run:
'
'   1  2  3  4  6 12
' The biggest dividers of two number is: 12
' 

 

70+ SQL courses for beginners and professionals