Como testar se um número é um quadrado perfeito em VB.NET - Solução usando Sqrt() e Floor() - Desafio de Programação Resolvido em VB.NET

Informe um valor inteiro: 64
O número 64 é um quadrado perfeito
Informe um valor inteiro: 28
O número 28 não é um quadrado perfeito
Informe um valor inteiro: 16
O número 16 é um quadrado perfeito

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos pedir para o usuário informar um valor inteiro
    Console.Write("Informe um valor inteiro: ")
    Dim valor As Integer = Int32.Parse(Console.ReadLine())

    ' vamos testar se o número informado é um quadrado perfeito
    If TestarQuadradoPerfeito(valor) Then
      Console.WriteLine("O número " & valor & " é um quadrado perfeito")
    Else
      Console.WriteLine("O número " & valor & " não é um quadrado perfeito")
    End If

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

  Function TestarQuadradoPerfeito(numero As Integer) As Boolean
    ' primeiro calculamos a rais quadrada do número recebido
    Dim raiz_quadrada As Double = Math.Sqrt(numero)

    ' agora testamos se a raiz quadrada do número menos o arredondamento
    ' dele para baixo é igual a 0
    Return ((raiz_quadrada - Math.Floor(raiz_quadrada)) = 0)
  End Function

End Module