Question

How to check whether number is perfect square or not in VB.NET

Answer 1

' When a square root is a whole number, then the number is a perfect square number

Imports System

Public Class Program
	Public Shared Function isPerfectSquare(ByVal number As Integer) As Boolean
        Dim d_sqrt As Double = Math.Sqrt(CDbl(number))
        Dim n As Integer = CInt(d_sqrt)

        If n = d_sqrt Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Shared Sub Main()
        Dim num As Integer = 81

        If isPerfectSquare(num) <> False Then
            Console.Write(num & " is a perfect square")
        Else
            Console.Write(num & " is not a perfect square")
        End If
    End Sub
End Class





' run:
'
' 81 is a perfect square
'

 

70+ SQL courses for beginners and professionals

Answer 2

' When a square root is a whole number, then the number is a perfect square number

Imports System

Public Class Program
	Public Shared Function isPerfectSquare(ByVal number As Integer) As Boolean
        If number >= 0 Then
            Dim d_sqrt As Double = Math.Sqrt(CDbl(number))
            Return d_sqrt * d_sqrt = number
        End If

        Return False
    End Function

    Public Shared Sub Main()
        Dim num As Integer = 81

        If isPerfectSquare(num) <> False Then
            Console.Write(num & " is a perfect square")
        Else
            Console.Write(num & " is not a perfect square")
        End If
    End Sub
End Class





' run:
'
' 81 is a perfect square
'

 

70+ SQL courses for beginners and professionals

Answer 3

' When a square root is a whole number, then the number is a perfect square number

Imports System

Public Class Program
	Public Shared Function isPerfectSquare(ByVal number As Integer) As Boolean
 		Dim d_sqrt As Double = Math.Sqrt(CDbl(number))
		
        If CInt(Math.Pow(CInt((d_sqrt)), 2)) = number Then
            Return True
        Else
            Return False
        End If
    End Function

    Public Shared Sub Main()
        Dim num As Integer = 81

        If isPerfectSquare(num) <> False Then
            Console.Write(num & " is a perfect square")
        Else
            Console.Write(num & " is not a perfect square")
        End If
    End Sub
End Class





' run:
'
' 81 is a perfect square
'

 

70+ SQL courses for beginners and professionals

Answer 4

' When a square root is a whole number, then the number is a perfect square number
 
Imports System
 
Public Class Program
    Public Shared Function isPerfectSquare(ByVal number As Integer) As Boolean
    	Dim sq As Double = Math.Sqrt(number) 
         
       	return (sq - Math.Floor(sq)) = 0
    End Function
 
    Public Shared Sub Main()
        Dim num As Integer = 81
 
        If isPerfectSquare(num) <> False Then
            Console.Write(num & " is a perfect square")
        Else
            Console.Write(num & " is not a perfect square")
        End If
    End Sub
End Class
 
 
 
' run:
'
' 81 is a perfect square
'

 

70+ SQL courses for beginners and professionals