Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Enter a number")

        Dim number As Integer = Console.ReadLine()

        Dim isinteger As String = PerfectSquare(number)

        Console.WriteLine(isinteger)

    End Sub

​

    Function PerfectSquare(ByVal number As Integer) As Boolean

        Dim squareroot As Decimal

        squareroot = System.Math.Sqrt(CDec(number))

        If squareroot ^ 2 = CDec(number) Then

            Return True

        Else

            Return False

        End If

    End Function

End Module

​